|
こんばんは。
作ってみました。
標準モジュールに
’マクロでしか再表示できないようにし、
Sub HOGO()
Sheets("Sheet1").Visible = xlVeryHidden
End Sub
’パスワード入力用のユーザーフォームの提示
Sub SHshow()
UserForm1.Show
End Sub
ユーザーフォームにテキストボックスを一つ
コマンドボタンを一つ
もちろん、テキストボックスの
>PasswordCharプロパティに「*」などをセットしておきます。
パスワードは、半角英数にしましょう。
そして、フォームモジュールに
Private Sub CommandButton1_Click()
If Me.TextBox1.Text = "aiueo" Then
If Sheets("Sheet1").Visible = xlVeryHidden Then
Sheets("Sheet1").Visible = True
Else
MsgBox "すでに表示されています"
End If
Else
MsgBox "パスワードが違います。"
End If
Unload Me
End Sub
|
|