![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
No3です。
お待たせ~♪こんな感じかな。
Private Sub Workbook_Open()
ActiveWorkbook.Unprotect Password:="error123"
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
End Sub
これでマクロを有効にして開いたときだけSheet1が現れるわよ。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Visible = False
ActiveWorkbook.Protect Password:="error123"
End Sub
これで、終了したら自動的にSheet1を隠してブックを保護しちゃいます。
パスワードはわたしのHNね!
あと、知ってると思うけどVBAにもロック掛けておかないと詳しい人には覗かれちゃうわよ。
あと、VBAをコピペして、保存後、再度立上げ、マクロを無効にしても、通常通りsheet1は現れました。
何がまずいんでしょうか?
No.7
- 回答日時:
No3と4です。
お待たせ~♪shishishishiさん、どうもです。
さて、2つ以上のsheetを非表示?
こんな感じです。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Visible = False
Sheets("Sheet2").Visible = False
ActiveWorkbook.Protect Password:="error123"
End Sub
Private Sub Workbook_Open()
ActiveWorkbook.Unprotect Password:="error123"
Sheets("Sheet1").Visible = True
Sheets("Sheet2").Visible = True
Sheets("Sheet1").Select
End Sub
No.6
- 回答日時:
No5です。
自分でもXPで実際にためしましたが、まちがいなく作動しました。
あと考えられるのは、閉じるときにマクロが有効でないと隠すほうのマクロは作動しませんが、大丈夫ですか?
つまりマクロを無効でひらいたあと、コピペして閉じてもSheet1は非表示になりません。
すみません。勘違いしてました(^^;;
マクロを2つ貼らずに1つのみしかコピペしてなかったのが、原因です。お手数をお掛けしました。
No.5
- 回答日時:
横からすみません。
> VBAをコピペして、保存後、再度立上げ、マクロを無効にしても、通常通りsheet1は現れました。
どこに貼り付けましたか?
ひょっとして標準モジュール?
This Wookbook のところじゃなきゃだめですよ。
> VBAのロック方法知りません。
VBEで一番上の「ツール」→「VBAProjectのプロパティ」→「保護」→「プロジェクトのロック」→「パスワード」です。
この回答への補足
そうですね。コピペしたのは、This Wookbookのところで間違いありません。
あと、VBAのロックの仕方、了解しました。ありがとうございました。
No.3
- 回答日時:
強制的にマクロを有効には出来ないけど、マクロを有効にしないと、そのシートが見えないように非表示にしてブック保護をかけておいたら?
マクロでブック保護を解除してシートを再表示せるの。
そしたら否応無しに有効にするしかないでしょ?
でもブックの終了時には自動的に元に戻さないとダメよ。
この回答への補足
ありがとうございます。素晴らしいアイデアです。
マクロでブック保護を解除してシートを再表示せるのが、一番よさそうですね。
すみません。そのマクロはどうやったらいいんでしょうか?具体的に教えて頂けませんか?
マクロに関しては未熟で.....
No.1
- 回答日時:
こんにちは
セキュリティ上、強制的にマクロを有効にすることはできなかったと記憶しています。
印刷をされたくない場合には、一旦PDFにし、セキュリティで【印刷不可】とするほうがよろしいのではないかと。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで作成した縦に長い表...
-
【エクセル】行挿入で数式もい...
-
オートフィルタのリストを順番...
-
地番を順に並べたい。
-
ワードでアンケートの集計をし...
-
WEB上の表の列コピー選択方法は?
-
エクセルの関数の使い方 繰越...
-
エクセルVBAで、行コピーを複数...
-
Excel 表から値をさがして隣の...
-
エクセルで各ページに同じ文書...
-
Excelの数式のコピーで列移動で...
-
メモ帳からエクセルに貼り付け...
-
Excelの同一セル内にある、カタ...
-
【エクセル】行や列の入れ替え...
-
エクセルの列幅
-
一つのシートの中に複数のペー...
-
Excelピボットテーブルで 総計...
-
エクセル シートのコピーをリ...
-
勤続年数の平均を求めたい時の関数
-
Excelでセル参照したとき、書式...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WEB上の表の列コピー選択方法は?
-
一つのシートの中に複数のペー...
-
エクセルで作成した縦に長い表...
-
オートフィルタのリストを順番...
-
【エクセル】行挿入で数式もい...
-
メモ帳からエクセルに貼り付け...
-
Excelピボットテーブルで 総計...
-
Excel 表から値をさがして隣の...
-
エクセルのリストから欠番を拾...
-
エクセルの関数の使い方 繰越...
-
ピボットテーブル→参照が正しく...
-
Excelの数式のコピーで列移動で...
-
エクセルVBAで、行コピーを複数...
-
Excelで検索結果をテキストボッ...
-
エクセルの列幅
-
PDFからExcelに変換する時に「...
-
ACCESSのデータをEXCELに貼り付...
-
エクセルに詳しい方、助けてく...
-
地番を順に並べたい。
-
VBA csvを100万行ずつ各...
おすすめ情報