|
|
|
Thema:
|
Excel 97, 2000 und 2002 |
|
Problem:
|
In den UserForms von Excel wird standardmässig das X-Symbol in der
rechten oberen Fensterecke angezeigt, über die der Dialog geschlossen
werden kann. Wie kann ich dieses Symbol ausblenden? Ich möchte
erreichen, dass die Anwender den Dialog nur über meine Schaltflächen
verlassen können. |
|
Lösung:
|
Mit viel Aufwand und dem Einsatz entsprechender API-Funktionen
lässt
sich das X-Symbol entfernen, aber es geht viel einfacher: Über das
Ereignis "QueryClose" können Sie das Schliessen des
Dialoges mit ein paar Codezeilen verhindern. Das Ereignis tritt immer
dann ein, wenn die UserForm geschlossen wird. Mit Hilfe des Parameters
"CloseMode" stellen Sie fest, ob das X-Symbol angeklickt
wurde. In diesem Fall brechen Sie den Vorgang einfach ab, so dass die
UserForm nicht geschlossen wird:
Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub
|
|
