エクセル、特定のシートにパスワード（閲覧制限）をかける方法

タイトルの通りです。
検索すると「シートそのものを非表示にし、表示か非表示かを編集できなくするためのパスワードをかける」など書いてあるところばかりで、欲しい情報がありませんでした。
シートの存在そのものは非表示にせず、シートの存在は下のべろで見えるが、そこをクリックするとパスワードを求められる、というようにしたいです。
パスワードを入れて入っても、一度そのシートを離れれば戻るときにはまたパスワードを求められるのが理想的です。
よろしくお願いします。

No.3 回答者： WindFaller 回答日時： 2018/04/29 16:20

非表示方式なら、すでに、

http://oshiete.goo.ne.jp/qa/10456549.html
で披露しました。こちらは、マクロを不可にしたら、中身は見えません。

しかし、こちらのご質問は、そのままでは、VBA内では不可能だと思っています。

Workbook_SheetActivate(ByVal Sh As Object)
では、開けた後に発生するものです。シートを開けさせない、つまりクリツクを帳消しにすることは不可能だと思います。

>シートの存在は下のべろ(シートタブ)で見えるが、そこをクリックするとパスワードを求められる、

これは、コントロール・ボタンの仕様です。シートタブに、一般的にはそのような機能はありません。先程、Excelの構造をResource Hacker で調べてみましたが、不慣れなせいか良く分かりません。そのものの機能は調べても見当たらないと思います。

>一度そのシートを離れれば戻るときにはまたパスワードを求められるのが理想的です。
マウスで動かしている分には、Excelは反応してくれますが、何もしないままですと、今回作ったものは閉じてしまいます。

全体のマクロは、ご興味がなければお見せすることはありませんが、とりあえず、そのイントロの部分だけを見せます。これはボタンのみです。これはシステムですから、一部のコードだけみても、雰囲気ぐらいで意味もありませんが、添付画像のようになります。

Sub AddButton() '①
'シート1以外のボタンを付ける
Dim y1 As Double, x1 As Double, x2 As Double, y2 As Double
Dim i As Long, j As Long
Application.Goto Worksheets(1).Range("A1"), True
y1 = ActiveWindow.UsableHeight / 2
　With Worksheets("Sheet1")
　　For i = 2 To Worksheets.Count
　　　　x1 = 5 + (40 * j)
　　　　x2 = 40
　　　　y2 = 15
　　　With .Buttons.Add(x1, y1, x2, y2)
　　　　.Caption = Worksheets(i).Name
　　　　.OnAction = "SheetsOpen"
　　　　.Placement = xlFreeFloating
　　　End With
　　　j = j + 1
　　Next
　End With
End Sub
'--続く--

No.2 回答者： yokomaya 回答日時： 2018/04/28 10:23

Workbook_SheetActivate(ByVal Sh As Object)

のイベントに記述すれば可能かと。
まず当該シートでない場合にはかならずシート名を
変数に記憶します。
当該シートの場合は、記憶した変数のシートに戻してから
パスワードの合致を確認してから表示すればよいのでは？

マクロ禁止されたら没ですけど・・・。

No.1 回答者： WindFaller 回答日時： 2018/04/28 03:30

>シートの存在そのものは非表示にせず、シートの存在は下のべろ[シートタブ]で見えるが、そこをクリックするとパスワードを求められる、

ずっと調べてみましたが、少なくとも、ご希望の仕様はVBA内では、不可能だと思います。シートタブ属性のEXCEL7　Class にシートタブ・コントロールがあれば可能ですが、そのようなものはありません。
例えば、UserForm やホームシート(Sheet1)上で、ボタン・コントロールを設けたりするぐらいしか思いつきません。