エクセル2003 パスワードでシートを振り分ける方法

質問

エクセル2003をＸＰで使用しています。
ひとつのブックに全部で11のシートがあります。
ブックを開くときにパスワードを求め、パスワードに応じて
開くシートを振り分けたいと考えています。

たとえば・・・
パスワード「ＡＡＡ」を入力するとシート1だけが見えて、他は見えない
パスワード「ＢＢＢ」を入力するとシート2だけが見えて、他は見えない
・
・
・
パスワード「ＫＫＫ」を入力するとすべてのシートが見える

こんな感じですが、過去ログを見る限りＶＢＡならできそうだと思うのですが、自分なりの改造ができなく、困っています。
うまく説明できないのですが
☆データが入っているシート数は、11。（各シート名はsheet1～sheet11）
☆表紙がわりのシートを別に1つ作る。（シート名はmain）
☆パスはsheet1がＡＡＡ、sheet2がＢＢＢ、以下つづいてsheet1がＫＫＫとする。
☆ブックを開くとき、マクロを有効にしないと何も表示されない。
☆マクロを有効にしてブックを開くと、mainだけが開き、ユーザーフォームが表示。（ユーザーフォームはパスワート入力とＯＫボタンのみ。）
☆パスワードを入力してＯＫボタンを押すと、パスワードに応じたシートだけが表示される。

100％他力本願で申し訳ございませんが、この条件を満たすマクロを組めるかた、よろしくお願いします。

回答No.1

hana-hana3 · ベストアンサー

＞100％他力本願で申し訳ございませんが

ＶＢＡではお望みの機能を完全に行う事は出来ませんが、それに近い事は出来ます。
しかし、基本的な部分の改変方法の知識やメンテの知識が必要になるでしょう。

また、ＶＢＡコードにパスワードを掛けて置かないとシートの表示が変更出来てしまいますし、パスワードも丸見えになります。
パスワードを忘れた場合は改変も出来なくなるので管理能力も必要です。

取りあえずは、Thisworkbook モジュールに下記のコードを入れておけば”もどき”の動作をします。
InputBoxではパスワードが丸見えなので、パスワード入力にはユーザーフォームでパスワード入力ボックスを作成して利用すると良いでしょう。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Variant
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "main" Then
ws.Visible = xlVeryHidden
End If
Next
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
Dim Pass As String

Pass = InputBox("パスワードを入れて下さい。", "Password")

Select Case Pass
Case "AAA"
Worksheets("Sheet1").Visible = True
Worksheets("Sheet2").Visible = True
Case "BBB"
Worksheets("Sheet1").Visible = True
Worksheets("Sheet3").Visible = True
Case Else
MsgBox "閲覧権利がありません"
End Select
End Sub

お礼

ありがとうございます。
なんとなくイメージできました。