ich möchte dem X-Button (Schließen oben rechts) eine andere Funktion zuordnen. Es soll beim klicken dieses Buttons die UserForm "Zugang" angezeigt werden und nicht das Fenster geschlossen werden.
MfG
Sebastian
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
'Verhindert das schliessen
Cancel = True
MsgBox "Dies ist nicht erlaubt.", vbOKOnly + vbInformation, "Error."
'Schliesst die UF
'Unload Me
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
'UserForm1.Hide
UserForm2.Show
End If
End Sub