エクセルでシートの保護をかけたまま マクロで行コピーしたものを行挿入する方法

エクセルでシートの保護をかけたまま
行のコピー・挿入ができるマクロを教えてください。
下記のままでは『Selection.Insert Shift:=xlDown』
のところでエラー表示されます。

行は必ず2行1セットとなっており、
2行を選択、選択行の下にコピーした行にを挿入したいのです

宜しくお願い致します。

Sub Macro1()
'
ActiveCell.Offset(-1, 0).Rows("1:2").EntireRow.Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/05/28 22:30

こんばんは！

おそらくシートの保護を一旦解除する必要があるのではないでしょうか？
↓のようなコードにしてみてはどうでしょう。

ActiveSheet.Unprotect Password:="abc" '//←「abc」は実際のパスワード
'行いたい操作
ActiveSheet.Protect Password:="abc"

といった感じで
一旦解除し、操作が終われば再びシートの保護を行う
といった手順です。m(_ _)m

この回答へのお礼

tom04様
ありがとうございます！
出来ました！

パスワードの解除・ロック保護のコードを
入れたところ、できました。

本当にありがとうございました。

お礼日時：2015/05/31 21:22

No.2 回答者： hallo-2007 回答日時： 2015/05/31 16:24

一案ですが、シートの保護をかけるときに

行の挿入　　にチェックを入れて保護をかけるでは
ダメなのでしょうか。