Option Explicit
Sub Initialize()
On Error Resume Next
CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Schutz").Controls("&Blatt schützen...").OnAction = "SchutzEin"
CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Schutz").Controls("&Blattschutz aufheben...").OnAction = " _
SchutzAus"
End Sub
Sub SchutzEin()
With CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz") _
.Controls("&Blatt schützen...")
.Caption = "&Blattschutz aufheben..."
.OnAction = "SchutzAus"
End With
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Tabelle1").Range("A1"), Address:="", SubAddress:= _
_
"Tabelle3!B12", TextToDisplay:="HüpfenzuB12"
ActiveSheet.Protect Password:="Geheim"
End Sub
Sub SchutzAus()
With CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz") _
.Controls("&Blattschutz aufheben...")
.Caption = "&Blatt schützen..."
.OnAction = "SchutzEin"
End With
ActiveSheet.Unprotect Password:="Geheim"
With Worksheets("Tabelle1").Range("A1")
.Hyperlinks.Delete
.Font.ColorIndex = 41
.Font.Underline = xlUnderlineStyleSingle
End With
End Sub