title image


Smiley Re: Symbolleiste, ControlButton umschalten
Hallo Paul!



Probier doch mal als Alternative eine Umschaltfläche aus.

Der kannst Du, nachdem Du sie in die Symbolleiste eingefügt hast, direkt das Makro über Anpassen-MakroZuweisen dranhängen.



Das makro sähe etwa so aus:



Sub BlattSchutzUmschalten()

Dim ac As CommandBarControl

Dim wsh As Worksheet

Set ac = CommandBars.ActionControl



With ac

.State = Not .State

If .State Then

.Caption = "Blattschutz aktiviert"

Else

.Caption = "BLattschutz deaktiviert"

End If

For Each wsh In ActiveWorkbook.Worksheets

wsh.Protect DrawingObjects:=.State, Contents:=.State, Scenarios:=.State

Next

End With



End Sub



Gruß

Manes


Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: