保護をかけているシートでマクロが実行できない

質問

行挿入マクロを使用した製品管理表を作成しましたが、シートの保護をかけて行挿入マクロを実行すると「RangeクラスのInsertメソッドが失敗しました」と出ます、シートの保護を外すと実行されます。保護をかけたシートはマクロを実行できないのか、マクロ文が間違っているのかわかりません。ご教授下さい。
表は抜粋ですが以下のとおりで、１５行目に行挿入マクロを実行する表作成のマクロです。
E15にはIF文が含まれています。
　　　　　　A　　　　　B　　　　　　C　　　　　　　D　　　　　　E　　　　　　　F
14　　　　空白　　納入日　　使用日　　納入数量　　使用数量　　　使用m
15

マクロ文は、以下のとおりです
Sub 行挿入()
' 行挿入 Macro
m = Cells(15,5).Formula
Range("A14:G15").Insert copyorigin:=xlFormatFromRightOrBelow
Cells(15,5) = m
End Sub

回答No.1

Cor_moriyan · ベストアンサー

> シートの保護を外すと実行されます。
> 保護をかけたシートはマクロを実行できないのか、マクロ文が間違っているのか

保護したシートに対して、マクロから変更を行おうとするとエラーになります。
シート保護の機能の方がマクロより強い、と考えて差支えないと思います。マクロの実行自体は出来ますが、シートに対して変更などは出来ません。
（シート保護時に何を規制したか、によります）

保護しているシートに対してマクロで変更を行わせる場合、マクロ内で保護解除してから変更。
終了間際でシート保護する（保護状態を戻す）必要があります。

Sub 行挿入()
　　'シート保護解除
　　ActiveSheet.Unprotect

　　' 行挿入 Macro
　　m = Cells(15,5).Formula
　　Range("A14:G15").Insert copyorigin:=xlFormatFromRightOrBelow
　　Cells(15,5) = m

　　'シート保護
　　ActiveSheet.Protect
End Sub

パスワード指定して保護している場合は、
　　ActiveSheet.Unprotect Password:="パスワード"
　　ActiveSheet.Protect Password:="パスワード"
です。詳しくは、ヘルプを参照してみてください。

お礼

早速ためしましたら実行できました。大変ありがとうございました

回答No.2

chie65536（@chie65535）

シートの保護を行うと

・行の挿入と削除

・列の挿入と削除

・セルの挿入と削除

・ロックされたセルの内容の変更

・セルの書式や修飾の変更

が出来なくなります。

保護状態で、これらをマクロで行った場合、マクロは失敗します。

上記の処理をマクロで行う場合は「シートの保護解除」→「マクロ実行」→「シートの保護再設定」を行わないとなりません（具体的な方法は他の回答の通り）