Wie kann ich bitte eine Userform mittels Eingabe eines Passwortes mit dem Schliesskreuz oben rechts schliessen. Ist das Passwort nicht bekannt dann soll die Userform mit dem Schliesskreuz nicht geschlossen werden.
Danke
Josef
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim strPW As String
If CloseMode = False Then
strPW = InputBox("Passwort?", "Passwort-Abfrage")
If strPW <> "Passwort" Then Cancel = True
End If
End Sub