Thema: UserForm nur über Schaltfläche schließen

Home

Die UserForm kann nicht über ein Abbrechen des Programms oder durch Anklicken des Schließkreuzes geschlossen werden. UserForm nur über Schaltfläche schließen

UserForm nur über Schaltfläche schließen

Dialogaufruf
- Prozedur: CallBtnOnly
- Art: Sub
- Modul: Standardmodul
- Zweck: Dialogaufruf
- Ablaufbeschreibung:
  - Abbruch über die Tastenkombination Strg+Pause verhindern
  - UserForm aufrufen
- Code:
```
Sub CallBtnOnly()
   Application.EnableCancelKey = xlDisabled
   frmBtnOnly.Show
End Sub
```
Schließbefehl abfragen
- Prozedur: UserForm_QueryClose
- Art: Ereignis
- Modul: Klassenmodul der UserForm
- Zweck: Schließen über Schließkreuz verhindern
- Ablaufbeschreibung:
  - Wenn der Schließbefehl über das Schließkreuz erfolgte ...
  - Hinweis, dass das Schließen nur über die Schließen-Schaltfläche möglich ist
- Code:
```
Private Sub UserForm_QueryClose(Cancel As Integer, _
   CloseMode As Integer)
   If CloseMode = 0 Then
      Beep
      MsgBox "Bitte nur über die dafür " & _
         "vorgesehene Schaltfläche schließen!"
      Cancel = True
   End If
End Sub
```