EXCEL2000は使った事がないので、的外れかもしれませんが
ユーザーフォームで入力を行っているということでしょうか。
考え方は一緒だと思いますので参考になれば
仮に入力するフォームをUserForm1として
UserForm2を作成します。
UserForm2でパスワード入力を促します。
ここではパスワードを1111にしてます。
先にUserForm2を呼び出して
Private Sub CommandButton1_Click()
' UserForm2のOKボタン
PASS = TextBox1
If PASS = 1111 Then
ActiveSheet.Unprotect (1111)
Unload Me
UserForm1.Show
Else
MsgBox "パスワードが違います。"
TextBox1 = ""
TextBox1.SetFocus
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
'UserForm2のキャンセルボタン
Unload Me
End Sub
Private Sub CommandButton1_Click()
'ユーザーフォーム1を閉じるボタンで保護する
ActiveSheet.Protect (1111), DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
をそれぞれ記述すれば、出来るのではないかと思います。
お礼
お礼が遅くなり申し訳ありませんでした。 諦めて別の方法を模索していたところ、具体的なアドバイスを頂けて大変助かりました。 また別の機会にも是非よろしくおねがいします。