過去ログ

                                Page     798
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼シートの表示  ゴンタ 03/2/25(火) 18:16
   ┣Re:シートの表示  かず 03/2/25(火) 19:25
   ┗Re:シートの表示  ポンタ 03/2/25(火) 19:48
      ┗Re:シートの表示(追加)  ポンタ 03/2/26(水) 8:19

 ───────────────────────────────────────
 ■題名 : シートの表示
 ■名前 : ゴンタ
 ■日付 : 03/2/25(火) 18:16
 -------------------------------------------------------------------------
   予め、下記モジュール上で、シートを非表示にしパスワード付きで
プロジェクトロックをかけています。

Sub Sheet_indicate2() 'Sheetの非表示
  Worksheets(ZZZ).Visible = xlVeryHidden
  Worksheets(zzz).Visible = xlVeryHidden
End Sub

下記の様に、ロックしたモジュールの中に再表示をするマクロ
も有りますが、
Sub Sheet_indicate() 'Sheetの再表示
  Worksheets(ZZZ).Visible = True
  Worksheets(zzz).Visible = True
End Sub

上記Sheet_indicate2でシートを非表示にした場合、パスワード
を入力してプロジェクトロックを解除し、Sheet_indicateを
実行しなければ再表示は不可能ですよね!?

どなたか分かる方、教えて頂けませんか!?
宜しくお願い致します。
 ───────────────────────────────────────  ■題名 : Re:シートの表示  ■名前 : かず  ■日付 : 03/2/25(火) 19:25  -------------------------------------------------------------------------
   ・ブックA:非表示にしたシートの存在するブック
・ブックB:ブックAとは別のブック
だとして、
ブックBにブックAのシートを再表示する為の同様のコードを
記述して実行すれば、非表示にしたブックAのシートは
再表示可能です。
 ───────────────────────────────────────  ■題名 : Re:シートの表示  ■名前 : ポンタ  ■日付 : 03/2/25(火) 19:48  -------------------------------------------------------------------------
   Sheet_indicate は表示→ツールバー→フォームのボタンに
「マクロの登録」で登録できちゃいます。

ボタンをクリックするとSheet_indicate が実行されるので、
当然シートが表示されます。

また、適当なシートのA1に

=ZZZ1!A1

と式を入れておき、これを全セルにコピーされたら、
どんな値が入っているか、丸見えになっちゃいます。
 ───────────────────────────────────────  ■題名 : Re:シートの表示(追加)  ■名前 : ポンタ  ■日付 : 03/2/26(水) 8:19  -------------------------------------------------------------------------
   そういえば、

>Sheet_indicate は表示→ツールバー→フォームのボタンに
>「マクロの登録」で登録できちゃいます。

↑なんてしなくても、ツール→マクロ→マクロで
実行できますね。

Sub Sheet_indicate(Optional ダミーの引数 As Boolean)

のようにすると、実行できなくなります。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 798