|
VBA - Userform Schließkreuz |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Samstag, 01. November 2008 um 07:18 Uhr |
Das Schließkreuz der Userform wird abgeschaltetWenn man Userforms erstellt, so werden dort oft Schalter eingebaut, welche der Anwender betätigen soll. Dabei wird zum Teil nicht gewünscht, dass ein Anwender diese Userform über das Schließkreuz verlässt. Dieser kleine Code, welchen ihr nur hinter die Userform einfügen müsst, deaktiviert dieses Schließkreuz.
Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
Schöner sieht es allerdings aus, wenn Ihr noch einen Hinweis darauf gebt, dass man die Userform nicht mit dem Schließkreuz verlassen soll (und kann). Der Code dafür würde dann so aussehen:
Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Userform mit OK - Schalter beenden", vbInformation, "Hinweis"
Cancel = True
End If
End Sub
Hinweis: Ihr solltet Euch sicher sein, dass ihr keinen Fehler mehr in dieser Userform habt!
|
VBA Makro Beispiele 