Marcello,

First you will have to create the userform with the buttons and
textboxes that you want. Then call the userform in the workbook_open
event.

Private Sub Workbook_Open()
UserFrom1.Show
End Sub

The code for the Submit button might look something like this:

Private Sub CommandButton1_Click()

Dim Str_Password As String

Str_Password = Sheets(1).Range("A1") 'You would of course have this
sheet hidden. You could also set the password here by replacing the
Sheets(1).Range("A1") with "Password", or what ever you select for the
password.

If TextBox1 = Str_Password Then
Unload Me
End If

If TextBox1 < Str_Password Then
Msgbox "Sorry, but you have entered an
incorrect password. Please re-enter the correct password.",vbOkayOnly +
vbCritical

TextBox1 = ""
TextBox1.SetFocus
Exit Sub
End If

End Sub

The code for the Cancel button might look something like this:

Private Sub CommandButton2_Click()

Application.DisplayAlerts = False
Application.Quit

End Sub

Hope this helps.


---
Message posted from http://www.ExcelForum.com/