Hallo,

"Kontrollkästchen" heißt das Ding was ich suche und einbinden will.

Wolfgang

Hallo Wolfgang,

ich habe so was mal realisiert im Kontextmenü, vielleicht ist das ein Ansatz?
Kontextmenü mit Haken Link zur Datei

Gruß Hajo

Hallo Wolfgang,

realisiere dass doch über eine Schaltfläche in der Menüleiste, die entsprechend den Zustand des Blattschutzes den Text und ggf. das Icon wechselt. nachfolgend mal ein Beispiel:

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

If ActiveSheet.ProtectContents = True Then
    With .Controls.Add
        .Caption = "Blattschutz aus"
        .OnAction = "Blattschutz_aus"
    End With
ElseIf .ProtectContents = False Then
    With NeueSymbolleiste.Controls.Add
        .FaceId = 794
        .Caption = "Blattschutz ein"
        .OnAction = "Blattschutz_ein"
    End With
End If

Hier wird geprüft, ob das Blatt geschützt ist oder nicht und der Schaltflächentext und die OnAction-Anweisung entsprechend geändert, quasi ein Wechselschalter.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Hajo,
ich habe hier zwar schon diverse Fragen zu Makros gestellt, konnte Makros gelegentlich auf meine Bedürfnisse anpassen, verwende diverse Makros, aber wenn ich dann sowas wie dein oben verlinktes Makro betrachte, dann denke ich, ich habe mich im Wald verirrt .

Hallo Oliver,
zwischen durch, beim schreiben, habe ich mal kurz nachgesehen ob es neue Antworten gibt. Dein Vorschlag sieht gut aus.
Aber jetzt will ich endlich Fußball gucken.

Bis Morgen
mfg
Wolfgang

Hallo Oliver,
ich bin dabei ein AddIn mit diversen Makros zu erstellen, da soll auch "Blattschutz ein/aus" mit rein.
Deinen Vorschlag habe ich wie folgt angepasst (tatsächlich sind es schon mehr Menuepunkte):

Option Explicit
Sub MenueBI()
On Error Resume Next
Application.CommandBars.ActiveMenuBar _
.Controls("BIMakros").Delete
With Application.CommandBars.ActiveMenuBar.Controls.Add(Type:=msoControlPopup)
.BeginGroup = False 'Trennlinie
On Error GoTo 0
.Caption = "&BIMakros"

If ActiveSheet.ProtectContents = True Then
With .Controls.Add
.FaceId = 505
.Caption = "Blattschutz aus"
.OnAction = "Blattschutz_aus"
End With
Else: With .Controls.Add
.FaceId = 505
.Caption = "Blattschutz ein"
.OnAction = "Blattschutz_ein"
End With
End If
End With
End Sub

Hier funktioniert das zwar nicht als "quasi ein Wechselschalter".
In den Makros "...Schutz ein / aus" rufe ich einfach dieses Makro am Ende auf und das Menue wird gelöscht und erneut (verändert) erstellt.
Vielen Dank
Jetzt sehe ich mir auch noch deine Antwort auf meine zweite Frage an.
mfg
Wolfgang

Hallo Wolfgang,

Du musst in den Makros "Blattschutz_Ein" und "Blattschutz_Aus" am Ende jedesmal das Makro zum Erzeugen der Menüleiste erneut über

Call Makroname_zum_Erzeugen_der_Menüleiste

aufrufen, damit der Menüpunkt immer wechselmäßig sich ändert.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,
ich hatte das bereits genau so gemacht. Das wollte ich oben schon mitgeteilt haben:
"In den Makros "...Schutz ein / aus" rufe ich einfach dieses Makro am Ende auf und das Menue wird gelöscht und erneut (verändert) erstellt."
Meine ursprüngliche Vermutung war, das sich so ein "Wechselschalter" innerhalb des Makros für die Menueleiste direkt erstellen lässt, deshalb hat es etwas gedauert bis ich auf obige Lösung gekommen war.
mfg
Wolfgang