'Datei - Speichern unter...' deaktivieren
07.10.2011 15:05:51
NoNet
Hallo Gunnar,
das kannst Du ganz einfach erreichen :
1.) ermittle zunächst auf Deinem (deutschen ?) Excel die ID dieses Menüpunktes
2.) Deaktiviere dann gezielt diesen Menüpunkt
Hier ein ausführliches Codebeispiel dazu :
Dim dblCntID As Double
Sub ID_zu_Control_finden()
dblCntID = Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Controls(" _
Speichern unter...").ID
MsgBox dblCntID
End Sub
Sub BefehlDeaktivieren()
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=dblCntID, recursive:=True). _
Enabled = True
End Sub
Beachte jedoch folgende Hürden :
- Der Menüpunkt "Speichern unter..." kann theoretisch in mehreren Untermenüs enthalten sein
- 'Speichern unter...' ist dann immer noch per F12-Taste möglich bzw. per Strg+S wenn die Mappe noch nicht gespeichert war !
Ich würde daher nicht (nur) den Menüpunkt deaktivieren, sondern generell auf jegliches "Speichern unter..." reagieren.
Kopiere dazu den folgenden Code in das Klassenmodul "DieseArbeitsmappe" (bzw. "ThisWorkbook") der Mappe :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "Befehl 'Speichern unter...' wurde temporär deaktiviert !", vbInformation, " _
Fehler"
'MsgBox "Command 'Save as...' is temporary deactivated !", vbInformation, "Error"
Cancel = True 'Speichervorgang abbrechen
End If
End Sub
Gruß, NoNet
Exceltreffen 28.-30.10.2011 in Chemnitz
Ein Treffen für alle Excel-Freunde und Besucher deutschsprachiger Excel-Foren.
Alle Infos - Programm - Anmeldung - Teilnehmerliste etc. gibt es auf
http://www.exceltreffen.de/index.php?page=211
Wir freuen uns auf euch...