保护工作表之后VBA执行失效

kingee

Sub test()   
    X = ActiveCell.Row
    Rows(X + 1).Insert
    Range(Cells(X, 4), Cells(X, 17)).Copy Cells(X + 1, 4)
End Sub

Sub 保护所有工作表()
    Dim X As Integer
    For X = 1 To Sheets.Count
        Sheets(X).Protect Password:=V
    Next X
End Sub
第一个是按Ctrl+Q增加并复制行，我保护了工作表之后，宏执行不了(错误400)，于是写个代码，也一样的，应该怎么搞？

joforn

对保护后的工作表操作时，先解除工作表保护，完成操作后重新保护工作表