ich habe mir einen off/on button gebastelt mit dem ich den schreibschutz an oder ausschalte (der schreibschutzcode usw. fehlt noch aber egal). Jetzt habe ich diesen button auf jedem tabellenblatt. wie muss ich denn den code umschreiben damit ich den code nicht für jedes tabellenblatt kopieren muss? aktuell funktioniert dieser nur auf der ersten seite:
Sub ON_BUTTON()
Worksheets(1).Shapes("Button").Select
With Selection
.ShapeRange.IncrementLeft 30 'Position / Hier anpassen!
.ShapeRange.TextFrame2.TextRange.Characters.Text = "ON" 'Button Text / Hier _
anpassen!
.ShapeRange.Fill.ForeColor.RGB = RGB(0, 153, 0) 'Farbe / Hier anpassen!
End With
Worksheets(1).Shapes("Button").OnAction = "OFF_BUTTON"
Worksheets(1).Range("A1").Activate
End Sub
Grüße Marco