エクセル 行の表示非表示のマクロでエラーが

たとえば
　　　　列Ａ
　行１　2300
　行２　1500
　行３　 500
　行４　 300
となっていて、ボタンを押すたびに行２～行４の表示非表示を切り替えるマクロを以下のように設定しました。
　　Sub ()
　　With Rows("2:4")
　　.Hidden = Not .Hidden
　　End With
　　End Sub
そして、Ａ１のセルを保護しシートを保護したところマクロにエラーが出て使えなくなりました。
解決方法はあるのでしょうか？
よろしくお願いします。

No.3 ベストアンサー 回答者： taocat 回答日時： 2005/03/03 20:20

こんばんは。

EXCELのバージョンが書いてないのであれですが。

シートの保護はマクロ（ＶＢＡ）で掛けてるのですよね。
なら、保護するときに、

ActiveSheet.Protect userinterfaceonly:=True

このように、UserInterfaceOnlyをTrueにします。
こうするとＯＫです。

または、既に回答にあるように
------------------------------------------
Sub test()
　ActiveSheet.Unprotect
　　With Rows("2:4")
　　　.Hidden = Not .Hidden
　　End With
　ActiveSheet.Protect UserInterfaceOnly:=True
End Sub
---------------------------------------------

保護を外して処理、処理後保護でいいのでは？
以上です。

この回答へのお礼

ありがとうございました。
回答のとおりに入力したらエラーが出ずに表示非表示が行えました。
今後質問する際はEXCELのバージョンを書くように気をつけます。
ちなみにOfficeXpです。

お礼日時：2005/03/03 20:42

No.2 回答者： shkwta 回答日時： 2005/03/03 19:56

シートを保護するときに、このシートのすべてのユーザーに許可する操作として「行の書式設定」にチェックをいれておくと、このマクロを実行することができます。

「行の書式設定」が許可されていない場合は、１行目に限らずすべての行の高さが変更できません。

No.1 回答者： hogehage 回答日時： 2005/03/03 19:52

シート保護を解除すれば、問題ないと思いますが、そういうことではないのですか？