シートの保護が原因でできない？

質問

シートの保護をすると下記のコードでエラーが出ます
rabgeクラスのinsertメソッドが失敗しましたとなります。

原因はわかりますでしょうか？
エクセル2010です。
ユーザーに許可する操作としてロックされていないセル範囲の選択と列の挿入を選択しています。
エクセル2010です。

お手数かけますがよろしくお願いします。

Dim n As Long

Application.ScreenUpdating = False ' 画面描画を抑制
Range("J:J").Insert
With Range("B5:J11")
.Columns(.Columns.Count).FormulaR1C1 = "=IF(RC4<>"""",1,"""")"
n = WorksheetFunction.Count(.Columns(.Columns.Count))
.Sort Key1:=.Columns(.Columns.Count), Orientation:=xlTopToBottom
If n < .Rows.Count Then
' 消去する範囲から E列を除いて消去する
Intersect(.Parent.Range("B:D,F:I"), _
.Rows(n + 1).Resize(.Rows.Count - n)).ClearContents
End If
End With
Range("J:J").Delete
Application.ScreenUpdating = True ' 画面描画を通常に

回答No.1

chayamati · ベストアンサー

シートの保護を解除するとエラーは出ないのですね
では
命令文の最初にシートの保護を解除する命令文
ActiveSheet.Unprotect

命令文の最後にシートの保護の命令文
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
を追加すると解決かな

補足

実はそのコードをかましていました。
直接の原因を知りたかったのです。
なにかわかりますでしょうか？