ich habe ein kleines Problem mit meinem Passwortschutz. Ich möchte per Button, welcher auf mehreren Tabellenblättern vorhanden ist, ein Passwort setzen oder entfernen. Beim betätigen ändert sich die Farbe, Position, und der Text des Buttons (was auch funktioniert). Aktuell sieht mein Code für jede so aus:
Sub ON_BUTTON()
Dim Passwort As String
Dim wks As Worksheet
Passwort = Application.InputBox("Bitte Passwort eingeben!")
If Passwort = "Test" Then
Sheets("Settings").Protect Password:="Test"
Sheets("Settings").Protect userinterfaceonly:=True, Password:="Test"
Sheets("Settings").EnableAutoFilter = True
Sheets("Settings").EnableOutlining = True
Sheets("Settings").EnableSelection = xlUnlockedCells
Sheets("Database").Protect Password:="Test"
Sheets("Database").Protect userinterfaceonly:=True, Password:="Test"
Sheets("Database").EnableAutoFilter = True
Sheets("Database").EnableOutlining = True
Sheets("Database").EnableSelection = xlUnlockedCells
usw........
End If
For Each wks In Worksheets
With wks.Shapes("Button")
.IncrementLeft 30 'Position / Hier anpassen!
.TextFrame.Characters.Text = "ON" 'Button Text / Hier anpassen!
.Fill.ForeColor.RGB = RGB(0, 153, 0) 'Farbe / Hier anpassen!
.OnAction = "OFF_BUTTON"
End With
Next
Range("A1").Select
End Sub
Aber wie kann ich diesen Code reduzieren das ich nicht für jede Seite die gleichen 5 Zeilen schreiben muss bzw. verbessern?