Ist dies möglich wenn ja, wie geht dies. Ich habe leider keine Ahnung mit VBA.
Gruß Torte
Option Explicit
'Gehört in das Klassenmodul der Tabelle, auf der sich der Hyperlink befindet
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strPW As String
If Target.TextToDisplay = "Tabelle3!A1" Then 'Anpassen
strPW = Application.InputBox("Bitte geben Sie Ihr Passwort ein !", "Passworteingabe")
If strPW = "" Or strPW <> "Passwort" Then _
Application.Goto Sheets("Tabelle1").Range("A1") 'Anpassen
Else
Exit Sub
End If
End Sub