Habe die Makro Lösung, aber verstehe sie nicht!!!

Sub cmdBlattAufruf_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "MeinPaßwort")
Select Case sPassWord
Case "MeinPaßwort"
With Worksheets("Geheim")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub

Sub Verbergen()
Worksheets("Geheim").Visible = xlVeryHidden
End Sub

Allerdings verstehe ich das nicht. Könnte mir bitte jemand erklären wo ich was reinkopieren muss, und was dann passieren sollte.

Frage 2. Ich habe von anderen Blättern aus "Links" auch auf diese verborgenen Blätter. Was passiert da? Werden die "Links" trotzdem funktionieren? Oder kommt da dann eine Paßwortabfrage?
Von diesen Liniks aus sollte keine Passwortabfrage kommen.
Geht das irgendwie?

Vielen Dank im Voraus,
mfG Daniel