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

質問

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

回答No.3

taocat · ベストアンサー

こんばんは。

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です。

回答No.2

shkwta

シートを保護するときに、このシートのすべてのユーザーに許可する操作として「行の書式設定」にチェックをいれておくと、このマクロを実行することができます。「行の書式設定」が許可されていない場合は、１行目に限らずすべての行の高さが変更できません。

回答No.1

hogehage

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