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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen