السلام عليكم ورحمة الله وبركاته
وجدت ملف للاستاذ ضاحي الغريب جزاه الله خيرا
به فورم التنقل كذلك ووضعت كود الحماية لورقة واحدة برقم سري لكن المشكلة اكتب الرقم صحيح او خطا يفتح لي الورقة
Private Sub Worksheet_Activate()
Dim WS As Worksheet
Set WS = æÑÞÉ11
Dim PROTECT As Integer
PROTECT = 123
WS.PROTECT Password:=PROTECT
WS.Unprotect Password:=PROTECT
'Me.Columns.Hidden = True
WS.PROTECT Password:=PROTECT
x = InputBox("Please INTER PASSWORD 123")
If PROTECT = x Then
WS.Unprotect Password:=x
WS.Unprotect Password:="123"
WS.Select
Me.Columns.Hidden = False
ElseIf PROTECT <> x Then
UserForm1.Show
WS.PROTECT Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
المطلوب عند الدخول للورقة التي بها باسبوورد اذا ادخل الرقم صحيح يقوم بنقلي للورقة اما اذا ادخلته خطا او رفضته يرجعني للفورم
حفظكم الله
اخفاء اوراق العمل والتنقل بالفورم ضاحي الغريب.xlsm