[Resolved] Login.show

Sziasztok!
Munkafűzetemet egy jelszavas belépéssel próbálom védeni, ami egy userformon keresztűl adható meg. A problémám csupán csak annyi, hogy mikor rákattintok a fájlra és még mielőtt a jelszó bevitelhez szükséges userform felugrana a fájl kezdő oldala jelenik meg. Nem látszik ugyan minden adat de kb a 80%-a igen. Ez így eléggé vicces. A lényegét veszti majdnem a dolog.
A login makró meghívása a this workbook openben történik, több makróval egyetemben de a legelső lépésként…
Van erre valami megoldás?
a makró:

Private Sub CmdClose_Click()
Dim TextBox1
If TXTuSERNAME.Value = „” Then
If TXTPIN.Value = „” Then
MsgBox „Please Input the User Name and the Password”
Else
MsgBox „Please Input the User Name”
End If
ElseIf TXTuSERNAME.Value = „****” Then
If TXTPIN.Value = „” Then
MsgBox „Please Input the Password”
ElseIf TXTPIN.Value = „***” Then
Me.Hide: Application.Visible = True
Else
MsgBox „Please Input the right User Name and the right Password”
End If
Else
If TXTPIN.Value = „” Then
MsgBox „Please Input the Password”
Else
MsgBox „Please Input the right User Name and the right Password”
End If
End If
Application.ScreenUpdating = False
If TXTuSERNAME.Value = „****” Then Sheets(„hívatkozások”).Range(„ha1”) = TXTuSERNAME.Value
Sheets(„nyítólap”).Select
re_fresh.SHOW
Application.ScreenUpdating = True
End Sub

köszönöm a segítséget! Potus