Ich habe in einem Userform eine Checkbox mit Passwortabfrage erstellt. Nun möchte ich diese so weiter Programieren, dass nur derjenige der das Passwort weiss auch das UserForm über das x schliessen kann und die anderen nicht. Das x wurde gesperrt für die anderen Benutzer. Den Code den ich bis jetz gemacht habe sieht so aus wie ich aber weiter fahren muss bring ich einfach nicht hin:
Private Sub CheckBox1_Click()
Dim sWord As String
If CheckBox1.Value = True Then
sWord = InputBox("Passwort:")
If sWord = "test" Then Exit Sub
If sWord = Range("IV1").Value Then
MsgBox "Passwort ist OK"
Else
MsgBox "Falsches Passwort"
End If
End If
End Sub
Gruss Roger