ظهور الباسورد نجوم فى كود vba

[sayed hamdey]

السلام عليكم اخوانى 

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

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

[احمد بدره]

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

كان يجب عليك استخدام خاصية البحث في المنتدى

شاهد الرابط

 

[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