Office: Passwortabfrage in Unserform mit Makro umgehen

Hallo Excel Experten !

Folgende Frage:
Ich habe ein Arbeitsblatt, dessen Tabelle1 mittels folgender Userform zu öffnen ist:

Private Sub CommandButton1_Click()
If Administrator.TextBox1.Text = "MisterFat" Then
Range("A1").Select
Unload Me
Else
MsgBox "PASSWORT FALSCH! Bitte neu eigeben oder auf ""Abbrechen"" klicken"
TextBox1.Text = Cancel
End If
End Sub
Private Sub CommandButton2_Click()
Worksheets("Ende").Activate
Range("A1").Select
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

Nun möchte ich über ein anderes Arbeitsblatt auf das o.g. zugreifen und mir mit einem Makro die Passworteingabe sparen:

Sub TabelleÖffnen()
Workbooks.Open Filename:="c:\...xls"
Worksheets ("Tabelle1").Select
'und jetzt brauche ich den Code für die Formelabfrage....
Range("A1").Select
End Sub

Wer kann mir helfen ?

Gruß, Euer Dicker