"Speichern" und Speichen unter" bei öffnen deaktivieren

[mav70]

Guten Morgen zusammen,
ich würde gerne bei einem bestimmten Excel-Sheet das Speichern und Speichern unter deaktivieren.
Dazu habe ich mit folgendem Code rumgespielt aber ich laufe immer in den Debugger.
Hat jemand eine Idee?

Sub Menüeintrag_deaktivieren()
    CommandBars("Worksheet Menu Bar"). _
      Controls("Datei").Controls("Speichern").Enabled = False
End Sub


'Reaktiviert den Menüeintrag "Speichern" im Menü "Datei"
Sub Menüeintrag_reaktivieren()
    CommandBars("Worksheet Menu Bar"). _
      Controls("Datei").Controls("Speichern").Enabled = True
End Sub

[snb]

Wozu Excel mutilieren ?

[schauan]

Hallöchen,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub