Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
16420 / 76732 ←次へ　｜　前へ→
【65780】Re:全てのシートでイベントのマクロを実行させたい
質問  みるく  - 10/6/27(日) 18:23 -
引用なし
パスワード
   ▼REV さん：

ご教示、ありがうとうございます。

>For Eachを使うのであれば
>ThisWorkbook → ThisWorkbook.Worksheetsでよいかと＾＾
>
>Inの後ろに指定するのはコレクションです☆

ということで、以下のように書き換えてみましたが、
やはり、active　sheetしか機能しませんでした。

Sub Workbook_BeforeClose(Cancel As Boolean)

　　Dim sh As Worksheet
　　
　　For Each sh In ThisWorkbook.Worksheets


　 Columns("H:J").Select
　
　 Selection.EntireColumn.Hidden = True
　　
　 Sheets.Protect Password:="123", DrawingObjects:=True, contents:=True, UserInterfaceOnly:=True
　　　
　 Next sh
　　　
End Sub

どこを直すべきでしょうか。
何度も申し訳ありませんが、どうぞ宜しく御願いいたします。
0 hits
▼ 【65745】全てのシートでイベントのマクロを実行させたい みるく 10/6/24(木) 21:58 質問
【65746】Re:全てのシートでイベントのマクロを実行... 超初心者 10/6/24(木) 22:26 発言
【65747】Re:全てのシートでイベントのマクロを実行... neptune 10/6/24(木) 22:50 回答
【65770】Re:全てのシートでイベントのマクロを実行... みるく 10/6/26(土) 18:59 質問
【65776】Re:全てのシートでイベントのマクロを実行... REV 10/6/27(日) 9:39 発言
【65780】Re:全てのシートでイベントのマクロを実行... みるく 10/6/27(日) 18:23 質問≪
【65781】Re:全てのシートでイベントのマクロを実行... 通り魔 10/6/27(日) 18:42 発言
【65807】Re:全てのシートでイベントのマクロを実行... みるく 10/6/29(火) 1:57 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
16420 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free