AW: Befehle in Menüleisten deaktivieren
10.11.2006 18:36:52
fcs
Hallo Niels,
Eingriffe in die Menüs und Symboleisten sind relativ kompliziert und müssen beim Schließen der Datei ja auch wieder rückgängig gemacht werden.
Mit folgender Makrokonfiguration kannst du das Speichern über den Button erzwingen.
Gruss
Franz
Code für Speichern-Button:
Private Sub CommandButton1_Click()
'Speichern der Datei
Application.EnableEvents = False
'Code zum Speichern
Application.EnableEvents = True
End Sub
Unter DieseArbeitsmappe fügst du die folgenden beiden Ereignismakros ein:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveWorkbook.Saved = True Then
Exit Sub
Else
Cancel = True
MsgBox "Datei nicht gespeichert, bitte Button im Tabellenblatt verwenden!!"
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Zum Speichern bitte Button im Tabellenblatt verwenden!!"
End Sub