Password på CommandButton

Allerførst i makro\'en laver du et check, som f.eks. her.

Sub CommandButton1_Click()
Dim Svar As String

Svar = InputBox(\"Indtast password\")
If Svar <> \"brandmand\" Then Exit Sub
    \'[din normale kode]
End Sub

Der kan tilføjes en løkke, så der kan forsøges 3 gange, og komme en MsgBox og fortælle at koden er forkert m.m.

God fornøjele

Tak for den hurtige hjælp!

Hurtig hjælp er dobbelt hjælp...

Mvh

Brandmanden

God fornøjelse :-)

Sub CommandButton1_Click()
Dim strPassWord As String
Dim intI As Integer

    For intI = 1 To 3
        strPassWord = InputBox(\"Indtast dit password\")
        If strPassWord <> \"brandmand\" Then
            If intI = 3 Then
                MsgBox \"Du har ikke flere forsøg.\"
                Exit Sub
            Else
                MsgBox \"Password\'et er forkert, du har brugt \" & intI & \" forsøg af 3.\"
            End If
        End If
    Next intI
 
    \'Din kode
End Sub