sayed hamdey قام بنشر يناير 30, 2020 مشاركة قام بنشر يناير 30, 2020 السلام عليكم اخوانى اريد ظهور الباسورد نجوم باستخدام هذا الكود 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد بدره قام بنشر يناير 30, 2020 أفضل إجابة مشاركة قام بنشر يناير 30, 2020 عليك السلام ورحمة الله وبركاته كان يجب عليك استخدام خاصية البحث في المنتدى شاهد الرابط 1 رابط هذا التعليق شارك More sharing options...
sayed hamdey قام بنشر فبراير 18, 2020 الكاتب مشاركة قام بنشر فبراير 18, 2020 الاستاذ/ احمد بدره المحترم ,, @احمد بدره بالفعل تم البحث فى المنتدى ولكن طريقتك تعمل فى حالة 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.