تعديل فورم التنقل بين اوراق العمل

[مصطفى محمود مصطفى]

السلام عليكم

الاخوة الاعزاء جزاكم الله خيرا

لدي ملف به فورم التنقل بين الاوراق للاخ ابراهيم الحداد جزاه الله خيرا

المشكلة الاولى انه لما انتقل للورقة تختفي الورقة والفورم معا

اما المشكلة الثانية عندي ورقة محمية بكلمة مرور عند الانتقال اليها تظهر رسالة تطلب كلمة المرور وهذا طبيعي

المطلوب عند كتابة كلمة المرور بالخطا ارغب بكود يعيدنا الى الفورم وليس للورقة الاخرى

لكم وافر احترامي وتقديري

 

فورم التنقل بين الصفحات.xlsm

[مصطفى محمود مصطفى]

السلام عليكم ورحمة الله وبركاته

وجدت ملف للاستاذ ضاحي الغريب  جزاه الله خيرا

به فورم التنقل كذلك ووضعت كود الحماية لورقة واحدة برقم سري لكن المشكلة اكتب الرقم صحيح او خطا يفتح لي الورقة

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

تم تعديل أغسطس 16, 2018 بواسطه مصطفى محمود مصطفى