Hallo,
ich habe mir folgendes aus dem Netz gezogen:
&ltpre&gt
Private Sub CheckBox1_Click()
Dim sWord As String
If CheckBox1.Value = True Then
sWord = InputBox("Passwort:")
If sWord = "" Then Exit Sub
If sWord = "1234" Then
MsgBox "Passwort ist OK"
Unload Me
Else
MsgBox "Falsches Passwort"
End If
End If
End Sub&lt/pre&gt~f~
Ich wollte das ganze jetzt über einen CommandButton, nur leider funktioniert folgendes nicht:
~f~&ltpre&gt
Private Sub CommandButton1_Click()
Dim sWord As String
If CommandButton1 = True Then
sWord = InputBox("Passwort:")
If sWord = "" Then Exit Sub
If sWord = "1234" Then
MsgBox "Passwort ist OK"
Else
MsgBox "Falsches Passwort"
End If
End If
End Sub&lt/pre&gt
Was muss ich ändern?!