لعمل شاشة دخول من ورقة العمل

كود الدخول لاوراق العمل و اظهار الاوراق المخفية



كود الدخول و اظهار اوراق العمل المخفية
Sub Login()
If Range("e3").Value = "yasser" And Range("e5").Value = "1234" Then
ThisWorkbook.Worksheets("Sheet2").Visible = True
ThisWorkbook.Worksheets("Sheet3").Visible = True
Else
MsgBox ("UserName or Password is incorrect")
End If
End Sub



كود الخروج و اخفاء اوراق عمل معينة
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Worksheets("Sheet2").Visible = xlVeryHidden
ThisWorkbook.Worksheets("Sheet3").Visible = xlVeryHidden
ThisWorkbook.Worksheets("Sheet1").Range("e3,e5").Value = ""
ThisWorkbook.Save
End Sub