Sub MeinSchutz()
Dim cmb As CommandBar
Dim cbb As CommandBarButton
Application.CommandBars("Protection").Controls(1).Delete
Set cmb = Application.CommandBars("Protection")
Set cbb = Application.CommandBars("Protection").Controls. _
Add(Type:=msoControlButton)
Application.CommandBars("Protection").Controls(3).Move Before:=1
cbb.Caption = "Blatt schützen"
cbb.OnAction = "Schutz"
End Sub
Sub Schutz()
Dim cmb As CommandBar
Dim Meldung As String
Dim PW As String
Set cmb = Application.CommandBars("Protection")
If cmb.Controls(1).Caption = "Blatt schützen" Then
cmb.Controls(1).Caption = "Blattschutz aufheben"
Application.Dialogs(xlDialogProtectDocument).Show
ElseIf cmb.Controls(1).Caption = "Blattschutz aufheben" Then
Meldung = MsgBox("Willst du den Blattschutz wirklich aufheben?", vbYesNo)
If Meldung = vbNo Then
Exit Sub
Else
cmb.Controls(1).Caption = "Blatt schützen"
' Um hier mit Sternchen (*) zu arbeiten, muss ein
' entsprechenes UserForm programmiert werden
PW = InputBox("Blattschutz-Passwort eingeben")
ActiveSheet.Unprotect Password:=PW
End If
End If
End Sub
Sub Menu_zuruecksetzen()
Application.CommandBars("Protection").Reset
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen