Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Makro beim Start von Excel automatisch ausführen





Frage

Hi!!! Möchte in einer Excel 2003 Datei den Button "Kopf- und Fußzeile..." sperren, der sich unter dem Punkt "Ansicht" befindet. Außerdem soll das Makro automatisch beim Start der Datei gestartet werden. Auch wenn ich die Datei auf einem anderen Computer öffne. Gruß Johannes

Antwort 1 von Beverly

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

Antwort 2 von jockel01

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

gruß

Antwort 3 von Beverly

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

Antwort 4 von jockel01

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

Antwort 5 von Beverly

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