Re: Userform nicht mit Kreuz schliessen
25.08.2002 18:48:46
Hajo_Zi
Hallo Husi404. Schließkreuz Userform, Beenden Userform
wenn du das ereignis des close-button der userform abfangen willst nimm das QueryClose-Ereignis. also z.b.:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
If Application.UserName <> "mIsCHa1" Then
MsgBox "Sie haben nicht die Berechtigung zum schließen dieser UserForm", vbInformation, "Achtung !"
Cancel = 1
End If
End If
End Sub
wobei zu beachten ist, das der closemode angibt wie deine userform geschlossen wurde. die konstanten dafür sind:
0 = Der Benutzer hat auf der UserForm im Systemmenü den Befehl Schließen gewählt.
1 = Die Unload-Anweisung wird durch Code aufgerufen.
2 = Die aktuelle Windows-Betriebsumgebungssitzung wird beendet.
3 = Die Anwendung wird vom Windows-Task-Manager geschlossen.
um per button die userform zu schliessen geht "unload me" oder "unload userform1"(wenn deine form so heisst)
also z.b.:
Private Sub CommandButton1_Click()
Unload Me
End Sub
ich hoffe das hilft dir weiter
von mIsCHa
Gruß Hajo