Macro for password protect

[Saa62]

I think I saw this somewhere but can't find it now.

I am looking for a way to get a macro to password protect a workbook with a predetermined password.

Thanks

Scott

 

[James]

Hi Scott,

If you want to do this with a UserForm Try This:
Option Explicit
Private Sub Workbook_Open
If TextBox1 = "your pw" Then
"your code, what to do next"
Unload Me
Else
If TextBox1 <> "your pw" Then
Msg"Password Failed!" vbOkOnly + vbCritical
End If
End If
End Sub

James

 

[Saa62]

I may not have explained that real clearly, but I found what I wanted.

ActiveSheet.Protect("****")

Thanks anyway.

Scott