ExcelVBA パスワードについて

質問

ユーザーフォームにてメニュー画面を作成しました。
その隅に管理用というコマンドボタンを作成し、クリックすると
管理用フォームが開くという形にしたいのですが
管理用ボタンをクリックしたときにパスワードを入れないと
表示が出来ないようにしたいのですが
どうしたらよろしいでしょうか？

よろしくお願いします。

回答No.5

kkkkkm

エクセルそのものを非表示にしているのでしたら

Application.Visible = True

特定のブックを非表示にしているのでしたら

Windows("ブックの名前").Visible = True

で試してみてください。

お礼

ありがとうございます！！

回答No.4

kkkkkm

非表示のシートを表示したいという事でしょうか。
以下は非表示のSheet2を表示します。

Private Sub 管理用_Click()
Dim Password As Variant
Dim InputPass As Variant

Password = "ABC"

InputPass = InputBox("パスワードを入れてください")
If InputPass = Password Then
Sheets("Sheet2").Visible = True
Else
MsgBox "パスワードが違います"
End If
End Sub

非表示にしたいときには
その時に
Sheets("Sheet2").Visible = False
にしてください。

お礼

ありがとうございました！

回答No.3

kkkkkm

> マスターシートや登録した発注などシートに落とすようになていて、そこは触れないようにしたいので管理用という形にしています。

エクセルを非表示にしてどこ(どこの管理用)をクリックするのかと聞いているのですが…。
とりあえずよくわかりませんが、その管理用のイベントプロシージャにNo.1のコードを割り当てたらいかがですか
。

お礼

ありがとうございました！

補足

失礼致しました、、。
（画像の右下に管理用というボタン）
先ほどはクリックしたら管理用フォームが開くと言いましたが、そこをクリックしたら作業シートに切り替えられるようにした時のことです。（Excel非表示から表示に切り替わる）
分かりにくくすみません。

回答No.2

kkkkkm

> 例えばExcelアプリを非表示にする設定をして

エクセルを非表示にして

> 管理用フォームではなく、管理用をクリック

というのはどこの管理用なのでしょうか…。

お礼

ありがとうございました！

補足

マスターシートや登録した発注などシートに落とすようになていて、そこは触れないようにしたいので管理用という形にしています。

回答No.1

kkkkkm

以下は単純な方法です。

Private Sub 管理用_Click()
Dim Password As Variant
Dim InputPass As Variant

Password = "ABC"

InputPass = InputBox("パスワードを入れてください")
If InputPass = Password Then
管理用フォーム.Show
Else
MsgBox "パスワードが違います"
End If
End Sub

お礼

ありがとうございました！

補足

回答ありがとうございます！！
例えばExcelアプリを非表示にする設定をして
管理用フォームではなく、管理用をクリックするとExcelのシートが表示されるようにした場合、管理用にパスワードを付けることは出来ますか？