シートイベントの有効無効と状態をステータスバーに表示 Excel2000 VBA

シートイベントの有効無効と状態をステータスバーに表示

Sub シートイベント有効無効()
'実行する度に有効→無効→有効
Select Case Application.EnableEvents
    Case True
        Application.EnableEvents = False
        Application.StatusBar = "シートイベント無効"
    Case False
        Application.EnableEvents = True
        Application.StatusBar = "シートイベント有効"
End Select
End Sub

上記のタグ(sonetブログのCSSに追加）始めのドットを記述
.box1 { width: auto; height: auto; background-color: #aaaaee; padding: 8px; word-wrap:break-word;}
幅（自動）高さ（自動）背景色（色）内側の余白（8px）自動折り返し）

記事編集のhtml編集で
<div class="box1">文書</div>
と記述