Hi Johannes,

im Codemodul DieseArbeitsmappe

Option Explicit

Private Sub Workbook_Open()
    deaktivieren
End Sub

Private Sub Workbook_Activate()
    deaktivieren
End Sub

Private Sub Workbook_Deactivate()
    aktivieren
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    aktivieren
End Sub

und in einem allgemeinen Modul

Option Explicit

Sub deaktivieren()
    Application.CommandBars("Worksheet Menu Bar").Controls(3).Controls(7).Enabled = False
End Sub

Sub aktivieren()
    Application.CommandBars("Worksheet Menu Bar").Controls(3).Controls(7).Enabled = True
End Sub

Bis später,
Karin

Und wie stell ich ein, dass ich "Kopf- und Fußzeile..." sperren will.

gruß

Hi Johannes,

mit dem geposteten Code wird beim Öffnen der Arbeitsmappe der Menüpunkt "Kopf- und Fußzeile" im Menü "Ansicht" deaktiviert. So habe ich deine Frage interpretiert - oder meinst du was anderes?

Bis später,
Karin

Ist dann schon klar geworden.

Hätte noch zwei sachen.
1. Der Button Seite einrichten unter Datei lässt sich so nicht sperren.
und wie geb ich die Speicherung von den 2 Button gleichzeitig ein?

2. Wenn ich beim starten der Datei auf Makros deaktivieren geh. Dann ist der Button nicht gesperrt. Kann man da was machen, um trotzdem eine Sperrung zu erreichen?

Gruß
Johannes

Hi Johannes,

zu Frage 1:

Sub deaktivieren()
    Application.CommandBars("Worksheet Menu Bar").Controls(3).Controls(7).Enabled = False
    Application.CommandBars("Worksheet Menu Bar").Controls(1).Controls(12).Enabled = False
End Sub

Sub aktivieren()
    Application.CommandBars("Worksheet Menu Bar").Controls(3).Controls(7).Enabled = True
    Application.CommandBars("Worksheet Menu Bar").Controls(1).Controls(12).Enabled = True
End Sub

zu Frage 2: Nein. Eine Möglichkeit habe ich dir in deinem anderen Beitrag genannt - Digitales Zertifikat.

Bis später,
Karin