kann man den x-schliessen-Button ganz oben rechts des Excel-Hauptfensters auch einfach nur deaktivieren (nicht die ganze Leiste ausblenden; das funktioniert zwar, bringt aber andere Probleme mit sich)?
Danke
thomas
Danke
thomas
probiers mal hiermit, einfach im VBA Editor bei `DieseArbeitsmappe` einfügen und fertig...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.StatusBar <> "xx" Then Cancel = True
MsgBox ("Bitte über das Hauptmenü 'Programmende' schliessen!") ' alternativ kannst du auch einen anderen Text als Meldung angeben :-)
Application.StatusBar = False
End Sub
Grüße Frank
Sub close1()
Sheets("Start").Visible = True
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Start" Then Worksheets(i).Visible = False
Next
' Application.DisplayFullScreen = False
ThisWorkbook.Save
Application.DisplayAlerts = False
' ThisWorkbook.SaveAs "W:\FCSD\gmall\p1all\test\backup\GMH-Reservierung_backup.xls"
Application.DisplayAlerts = True
ThisWorkbook.Close
End Sub
Nur leider lässt sich das Workbook darüber jetzt auch nicht mehr schliessen.
Bitte noch mal um Hilfe!