اخفاء ازرار

[toumy]

السلام عليكم اخوتي الكرام اتمني من الله ان تجدو لي الحل لهاذه المسالة

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

وشكرا

[طارق محمود]

أخي الكريم

إرسل الملف

ليستطيع من يريد المساعدة أن يساعد

[toumy]

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

هذا هو الملف وشكرا

youtube to mp3

Cac1123.rar

[طارق محمود]

السلام عليكم

جرب المرفق

وكلمة السر هي XYZ

وضعت لك كودين في حدث الورقة

الأول يفرغ محتويات الخلية B3 بمجرد الدخول للورقة

Private Sub Worksheet_Activate()

[B3] = ""

End Sub

والثاني يفحص B3 إذا كانت تحتوي علي كلمة السر يخفي الأزرار المطلوبة وإلا يظهرها

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> 2 Or Target.Row <> 3 Then Exit Sub

If Target.Value <> "XYZ" Then GoTo 100

ActiveSheet.Shapes("CommandButton2").Visible = False

ActiveSheet.Shapes("CommandButton3").Visible = False

ActiveSheet.Shapes("CommandButton4").Visible = False

ActiveSheet.Shapes("CommandButton5").Visible = False

Exit Sub

100

ActiveSheet.Shapes("CommandButton2").Visible = True

ActiveSheet.Shapes("CommandButton3").Visible = True

ActiveSheet.Shapes("CommandButton4").Visible = True

ActiveSheet.Shapes("CommandButton5").Visible = True


End Sub

تفضل المرفق

Cache2.rar

[الحسامي]

السلام عليكم

اخي الكريم هنا يجب عليك استخدام كودين

الاول عند فتح البرنامج لاخفاء الازرار ومسح الخلية استخدم الكود التالي في الحدث Workbook_Open

Private Sub Workbook_Open()

Feuil1.Range("b3").ClearContents

For i = 2 To 5

Feuil1.Shapes("CommandButton" & i).Visible = False

Next i

End Sub

والكود التالي في حدث التغيير للصفحة Worksheet_Change لاضهار الازرار عند ادخال كلمة السر

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("b3")) Is Nothing Then

If Target = 123 Then

For i = 2 To 5

Shapes("CommandButton" & i).Visible = True

Next i

End If

End If

End Sub

كامة السر 123

وهنا مرفق

Cache123.rar

[toumy]

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

شكرا لك اخ طارقوالاخ الحسامي على هذا الرد والاجابة الموفقة