エクセル雑感
保護されたブックの非表示シートについて

非表示シートは、
・印刷できません
・コピーで新規ブック作成できません
そして、最も重要なことは、
・非表示シートは見えません。

非表示シートは、
VBAでも印刷もプレビュー表示もできません。
Copyメソッドで、引数省略して新規ブック作成はできません。
他ブックへのコピーは、非表示の種類によって変わります。
Visibleプロパティが、
0 :xlSheetHidden ・・・ 他ブックへコピー可能
2 :xlSheetVeryHidden ・・・ 他ブックへコピー不可
第69回.シートの非表示（Visible,Hidden）｜VBA入門
第71回.印刷（PrintOut）｜VBA入門

どこからかExcelファイルをもらいました。
数式などいろいろ確認していると、どうも非表示シートがあるようです。
でも、シートタブを右クリックしても「再表示」はクリックできません。非表示シートはあるはずなのですが・・・
さて、どうしたら良いでしょうか。

実際には非表示シートがあったとしても、
・ブックが保護されている
・Visibleプロパティが、2 :xlSheetVeryHidden
これらの時は、手動ではシート表時させることはできません。

そんな時は、なにはさておき、
Alt + F11
さて、左のプロジェクトの下に目的のシート名は見えていますか。(見えていない場合の事は2回くらい後で)
見えているなら、それをクリックしてプロパティウィンドウを見てみましょう。
何?、プロパティウィンドウがないですと、
それならF4を押してみよう。

Alt + F11は、VBEを表示するショートカットです。

プロパティの一番下に、Visibleがありますね。
これを「-1 - xlSheetVisible」に変更しましょう。
タイピング得意なら、Ctrl+Gでイミディエイトを表示して、
for i=1 to sheets.Count:sheets(i).visible=true:next
そして指に魂を込めて「Enter」しましょう。
xlSheetVisibleは長いからtrueでOKです。
VBEの使い方：イミディエイト ウィンドウ

Ctrl+Gは、イミディエイト ウィンドウを表示するショートカットです。

これでシートが表示されれば、これ以降は不要です。

プロジェクトにシート名が無いときは、
最初から、Ctrl+Gでイミディエイトを表示して、
for i=1 to sheets.Count:sheets(i).visible=true:next
そして、しっかり指に魂を込めて「Enter」しましょう。
何?、エクセルが怒っている?、実行時エラー?
ちゃんと指に魂をこめましたか?

VBAプロジェクトが保護されている場合は、プロジェクト ウィンドウにシート名が表示されません。

VBAプロジェクトが保護されていても、イミディエイト ウィンドウは表示することができます。
ただし、コピペ（Ctrl+V）は使えなくなっています。
全てタイピングすればそれで構いませんが、コピペしたい場合は一旦新規ブック等の別ブックを表示して、
プロジェクトでその別ブックを選択してからなら、イミディエイト ウィンドウに貼り付けできます。

イミディエイトに貼り付けしたら、エクセルにいったん戻って、
目的の非表示シートがあるブックをアクティブ（前面に出す）にしてください。
その後に、イミディエイトに入力したものをEnterするようにしてください。
エラーがでる場合は、以下のようなメッセージが出ます。

ここまでの操作でシートが表示できた場合は、
シートのVisibleプロパティがxlSheetVeryHiddenになっているだけの場合です。
表示できずにエラーになった場合は、ブックに保護がかけられています。
当然パスワードが分からなければ保護解除できません。
さて、では諦めるしかないのでしょうか?

ブックが保護されておらず、シートのVisibleプロパティがxlSheetVeryHiddenになっているだけの場合なら、
上のイミディエイトのマンドで表示されます。
エラーになるのは、ブックが保護されている場合です。
ブックが保護されている場合は、非表示シートを表示することができません。

そもそも非表示となっているシートは、何番目のシートなのか、何という名前のシートなのか…
それにはイミディエイトで、
for i=1 to sheets.Count:?sheets(i).index,sheets(i).name,sheets(i).codename,sheets(i).visible:next
そして、気合いを入れて「Enter」です。

VBEの使い方：イミディエイト ウィンドウ

表示内容は順に
シート位置,シート名,シートのオブジェクト名,表示
シート名はシートタブに表示されている名称、これは名札に書かれた名前です。
シートのオブジェクト名がいわば本名です。
最後の表示には、-1,0,2の3種類があります。
-1だけが表示されているシートで、0と2は非表示シートです。

先のイミディエイトの結果は、

Sheet.Visibleプロパティは、
-1 :xlSheetVisible
0 :xlSheetHidden
2 :xlSheetVeryHidden
0と2の違いは、
0はユーザー操作で表示に切り替えられる。
2はユーザー操作では表示に切り替えられません。
これで非表示シートは分かりました。
さて、セルの値はどうやって見たら良いでしょうか?

先のイミディエイトの結果から、
2番目のシートが非表示シートです。
シート名は、"Sheet2"
オブジェクト名は、"Sheet2"
非表示、2 :xlSheetVeryHidden
第69回.シートの非表示（Visible,Hidden）｜VBA入門

セルの値をイミディエイトで見るときは、
?sheets("sheet2").range("A1")
EnterでValueが表示されます。
ちょっと長いですね、もっと短く、
?sheet2.range("A1")
さらに短く、
?sheet2.[A1]
この時のsheet2はシートのオブジェクト名（本名）です。
[]はEvaluateの糖衣構文です。

上の例では、Range("A1")に値1が入っている場合です。
Evaluateメソッド（文字列の数式を実行します）

セルの値を一つ一つ見ていたのでは埒があきません。
シート全体をコピーしちゃいましょう。
イミディエイトで、
sheet2.cells.Copy
これでEnter
エクセルに戻って
Ctrl+N（新規ブック）
Ctrl+V（貼り付け）
これでシート全体を見ることが出来ましたね。

これは、この通りの操作でシート全体がコピーされます。
イミディエイトで、
sheet2.cells.Copy
これでEnterするときは、目的の非表示シートがあるブックをアクティブ（前面に出す）にしておいてださい。
新規ブック等の他のブックに移動してから、A1セルを選択してからCtrl+V（貼り付け）します。

そもそもセルの値だけを見るのなら、
新規ブックのA1セルで、
=
非表示シートのブックに行って、どのシートでも良いのでA1クリック、すると、
=[Book1.xlsx]Sheet1!$A$1
これを以下のように変更
=[Book1.xlsx]Sheet2!A1
このA1セルをコピーすれば、その範囲のセル値は簡単に見ることができます。

シート名を変更し、$A$1をA1と相対参照に変更します。
このA1セルをドラッグ コピーでも良いし、普通にコピーしても構いません。
セル参照を相対参照にしているので、コピーした先のセルになります。

つまりブックが保護されていても、シートが非表示になっていても、その内容は簡単に見ることが出来ます。
非表示シートをそのままにして、取引先に送ってしまったりしないよう、ご注意ください。
必要なシートだけを値貼り付けして送るのが基本です。

非表示シートに社外秘の情報が入っていたりすることのないように、
取引先に開示して良いシートだけにして、適宜値貼り付けを行い数式を抜いてください。
そうしてから、取引先に送るようにします。
これが、Excelファイルを送る時の基本になります。