AW: Blattschutzmeldung
13.08.2004 09:54:14
Andi
Doch!?
'Den Original-Menüpunkt löschen und an Stelle dessen einen
' Eigenen erzeugen
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
' Dies ist der neue Code für den Blattschutz
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
' Falls du wieder den Original-Menüpunkt haben möchtst,
' kannst du ihn hiermit zurücksetzen
Sub Menu_zuruecksetzen()
Application.CommandBars("Protection").Reset
End Sub
Gruß Andi