sayed hamdey

الاستاذ/ احمد بدره المحترم ,, @احمد بدره بالفعل تم البحث فى المنتدى ولكن طريقتك تعمل فى حالة user form ولكن ما اريده ليست هذه الطريقة وانما هى كود يكتب فقط , تجد ادناه الكود الذى أعمل به Sub Button2_Click() Dim strPass As String Dim iCount As Integer strPass = "Secret" For lCount = 1 To 3 strPass = InputBox(Prompt:="Please Enter Password", Title:="Password") If strPass = vbNullString Then Exit Sub ElseIf strPass <> "1478" Then MsgBox "Wrong Password", vbCritical, "DVB Software" Else Worksheets("Mangement Report").Visible = xlSheetVisible Worksheets("Mangement Report").Activate Exit For End If Next lCount If lCount = 4 Then Exit Sub End Sub

السلام عليكم اخوانى اريد ظهور الباسورد نجوم باستخدام هذا الكود Sub Button2_Click() Dim strPass As String Dim iCount As Integer strPass = "Secret" For lCount = 1 To 3 strPass = InputBox(Prompt:="Please Enter Password", Title:="Password") If strPass = vbNullString Then Exit Sub ElseIf strPass <> "1478" Then MsgBox "Wrong Password", vbCritical, "DVB Software" Else Worksheets("Mangement Report").Visible = xlSheetVisible Worksheets("Mangement Report").Activate Exit For End If Next lCount If lCount = 4 Then Exit Sub End Sub Password.xlsm