Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16426 / 76738

←次へ　｜　前へ→


	【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