VBA mit Links
#1
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
Antworten Top
#2
Hallo, hat keiner einen Einfall?
Gruß Phoeni
Antworten Top
#3
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.
Gruß Dirk
---------------
100  - Wenn du nicht weißt, wo du hin willst, ist es egal, welchen Weg du einschlägst.

Antworten Top
#4
Hallo, nein gibt es leider nicht

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


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste