Option
Explicit
Private
Const
PASSWORD
As
String
=
"passwort"
Private
Const
PW_PROTECT
As
String
=
""
Private
blnUnlocked
As
Boolean
Private
Sub
CommandButton1_Click()
If
Me
.TextBox1.Value = PASSWORD
Then
blnUnlocked =
True
Unload
Me
End
If
End
Sub
Private
Sub
UserForm_Initialize()
Dim
wks
As
Worksheet
For
Each
wks
In
ThisWorkbook.Worksheets
wks.Protect PW_PROTECT
Next
Application.Visible =
False
End
Sub
Private
Sub
UserForm_Terminate()
Application.Visible =
True
If
blnUnlocked
Then
Dim
wks
As
Worksheet
For
Each
wks
In
ThisWorkbook.Worksheets
wks.Unprotect PW_PROTECT
Next
Else
MsgBox
"Falsches Passwort."
, vbExclamation
ThisWorkbook.Save
Application.Quit
End
If
End
Sub