VBA mit Links

[Phoeni]

Hallo Leute ich bräuchte mal eurer Hilfe, und hoffe Ihr könnt mir helfen.

Dieser VBA Code funktioniert:
Private Sub CommandButton1_Click()
Dim PW As String
With ActiveSheet
If .Protect Then
PW = Application.InputBox("Bitte Passwort eingeben:", "Passwortabfrage")
If PW = "Falsch" Or PW = "False" Then Exit Sub
If PW <> "Test" Then
MsgBox "Falsches Passwort", vbCritical
Exit Sub
Else
.Unprotect Password:="Test"
End If
Else
.Protect Password:="Test"
End If
End With
End Sub

was nicht mehr funktioniert sind Links innerhalb der Arbeitsmappe 
sowie keine Button mehr z.B. "gehe zu A1
Kann mir jemand helfen?
Danke Gruß Phoeni

[Phoeni]

Hallo, hat keiner einen Einfall?
Gruß Phoeni

[DIZA]

Hallo,
mal über Sinn und Unsinn deines Codes hinweggeschaut,
hat der aus erster Sicht nur bedingt damit zu tun.
Gehe zu, z.B. auf einem geschütztem Blatt funktioniert nicht, zu mindest wenn die Zelle, zu der du "gehen" möchtest, gesperrt ist.
Gibt es denn keine Beispieldatei.

[Phoeni]

Hallo, nein gibt es leider nicht

---

Hat sich erledigt, hab den Fehler gefunden.
Dennoch Danke.
Gruß Phoeni