Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) If Bozu = False Then Cancel = True End Sub
Option Explicit Public Bozu As Boolean Sub schliessen() Bozu = True ThisWorkbook.Close End Sub
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) If Bozu = False Then Cancel = True MsgBox "Bitte benutzen Sie den Schliessen Button" End If End Sub
58.4k Fragen
249k Antworten
7k Nutzer