エクセル起動時にイベントが実行されないようにする。

質問

エクセルVBEのThisWorkbook内に下記のようなイベントでコードを書いておき、
BOOKオープン時には実行されない単なるメモ的効果のものを書いておきたいと思います。
（これ以外にも複数のコードをたくさん記述しておきたい。）
そして実際に使う時だけ有効に切り替えて使いたいと思っています。
コードは正しく書いておかないとオープン時にエラーメッセージがでてしまうので
「’」の記号を行頭につけてメモにしておくのはわかるのですが、行数が増えると全行頭に
記号を付けたり省いたりするのがかなり手間となります。
簡単に有効無効を切り替えて書いておく方法はありますか。
あるいは必要な部分だけ記号を全行頭に一気に付けたりとりはずしたりする方法はありますか。

Private Sub Workbook_Open()
Sheets("販売").EnableSelection = xlUnlockedCells
Sheets("顧客").EnableSelection = xlUnlockedCells
Sheets("商品").EnableSelection = xlUnlockedCells
End Sub

回答No.2

toshih2000 · ベストアンサー

コメント行(') を複数行選択し一括して、コメントをon/off することは可能です。

ツールバーに「編集」メニューを表示させればその中に
コメント ブロック
非コメント ブロック

というのがあります。これで、 (')を付けたり消したりしてくれます。

お礼

自分にはこの方法が一番わかりやすかったです。ありがとうございました。

回答No.4

nda23

C言語のように条件コンパイルというのがあります。

#If AA
Private Sub Workbook_Open()
プログラム本体
End Sub
#End If

このように記述し、VBAProjectのプロパティで、
「条件付きコンパイル引数」の所でAA=1とすれば
プロシージャはコンパイルされ、AA=0とすれば
プロシージャはコンパイルされず、存在しない
ものとして扱われます。

お礼

Thisworkbookに次を記述後シート名を”販売”に変更。また「条件付きコンパイル引数」の所でAA=1と入力してみましたがThisworkbook内の#If AAの部分が赤い文字になってうまくいきませんでした。自分には難しすぎたようです。ありがとうございました。
#If AA
Private Sub Workbook_Open()
Sheets("販売").EnableSelection = xlUnlockedCells
End Sub
#End If

回答No.3

2014itochan

私は　プログラムに手を入れる時と、実行時は下記の方法です

Private Sub Workbook_Open()

Msg = MsgBox("実行モードですか？", vbYesNo + vbQuestion, "確認")

If Msg = vbYes Then

else
　　setTimerFunction "", "", ""

endif

完成すれば　用無しですが

お礼

これをコピーしてThisworkbookに貼り付けて実行したみたらsetTimerFunctionでコンパイルエラーと表示されます。自分には実力がないためそれをどうしてよいのか理解できず難しすぎました。ありがとうございました。

回答No.1

hallo-2007

目的がいまいちわかりませんが

Private Sub Workbook_Open()
if 1=1 Then
Sheets("販売").EnableSelection = xlUnlockedCells
Sheets("顧客").EnableSelection = xlUnlockedCells
Sheets("商品").EnableSelection = xlUnlockedCells
End If
End Sub
で
if 1=1 Thenを
if 1=2 Thenにするとか

Private Sub Workbook_Open()
'Private Sub Test()
Sheets("販売").EnableSelection = xlUnlockedCells
Sheets("顧客").EnableSelection = xlUnlockedCells
Sheets("商品").EnableSelection = xlUnlockedCells
End Sub
で、Subの前の'を変えるとか

Private Sub Workbook_Open()
Call　Tset
End Sub

Sub Test()
Sheets("販売").EnableSelection = xlUnlockedCells
Sheets("顧客").EnableSelection = xlUnlockedCells
Sheets("商品").EnableSelection = xlUnlockedCells
End Sub
で、Callの前に　'を付けるとかではダメでしょうか。

お礼

早々に、又いろいろな方法のご回答ありがとうございました。自分には役立ちそうなので
ゆっくりと全部を試してみたいと思います。