كود باسورد لاخفاء ورقة العمل

[زيدسالم]

ممكن بعد اذن الكبار زيادة كود باسورد لهذا الكود لاخفاء ورقة العمل وجزاكم اللة خيرا وزادكم من علمة  

 

Sub RoundedRectangle1_Click()
If [u1] <> False Then [u1] = False: GoTo 10
[u1] = True
10
For i = 3 To Sheets.Count
    Sheets(i).Visible = [u1].Value
Next i
End Sub
 

[ياسر خليل أبو البراء]

لم أفهم المقصود يرجى التوضيح

[ابو بهاء المصري]

اعتقد انه يقصد انا هذا الكود وظيفته اظهار واخفاء ورقة العمل ولاكن هذا بدون باسسورد 

لذا فهو يطلب اضافة سطر امر الي الكود المكتوب في الموضوع يجعل الظهور بكلمة سر 

[زيدسالم]

كلام الاستاذ ابوبهاء صحيح هو نفس قصدى يضاف سطر كود للباسورد بفورم الى الكود المكتوب واظهار اوراق العمل عند كتابة الباسورد وجزاكم الله خيرا