Speichern ausschalten
31.03.2016 18:01:18
chris58
Ich bitte um Hilfe. Ich habe die beiden u.a. Codes, weiß nicht mehr woher, die schalten das Speichern einer Datei aus. Sie gehen auch .........
NUR:
Wenn ich das speichern abschalte, dann kann ich auch in den anderen Excel-Dateien keine Speicherung mehr durchführen.
1. Wie kann ich das verhindern, das nur diese eine Datei mit der Inaktiviät des Speicherns belegt wird ....und
2. Wie kann ich, wenn das gehen würde, es von einem anderen Tabellenblatt aus Ein- und Ausschalten ?
Danke für Eure Hilfe
Hier die Codes:
Sub SpeichernButtonsSperren()
'06.05.2009, NoNet
Dim btnSave As CommandBarControl
'Symbol "Speichern" sperren :
Set btnSave = Application.CommandBars.FindControl(ID:=3)
If Not btnSave Is Nothing Then btnSave.Enabled = False
'Menü "Datei - Speichern" sperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=3, recursive:=True)
If Not btnSave Is Nothing Then btnSave.Enabled = False
'Menü "Datei - Speichern unter..." sperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=748, recursive:=True)
If Not btnSave Is Nothing Then btnSave.Enabled = False
Application.OnKey "^s", "" 'Sperrt Strg+S
Application.OnKey "{F12}", "" 'Sperrt F12-Taste
End Sub
Sub SpeichernButtonsAktivieren()
'06.05.2009, NoNet
Dim btnSave As CommandBarControl
'Symbol "Speichern" entsperren :
Set btnSave = Application.CommandBars.FindControl(ID:=3)
If Not btnSave Is Nothing Then btnSave.Enabled = True
'Menü "Datei - Speichern" entsperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=3, recursive:=True)
If Not btnSave Is Nothing Then btnSave.Enabled = True
'Menü "Datei - Speichern unter..." entsperren :
Set btnSave = Application.CommandBars.ActiveMenuBar.FindControl(ID:=748, recursive:=True)
If Not btnSave Is Nothing Then btnSave.Enabled = True
Application.OnKey "^s" 'Entsperrt Strg+S
Application.OnKey "{F12}" 'Entsperrt F12-Taste
End
Sub