表格锁定后插入行，但是无法自动复制公式，解锁后录制宏，锁定后就错误。求高手解答！

Question

表格锁定后插入行，但是无法自动复制公式。就想到用录制宏。
想实现表格自动插入10行，新插入的10行的特定单元格能够保留了之前的公式。

以下是我录制的宏

Sub Macro1()
'
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2018/06/01
'

'
With Rows("22:31")
.Insert Shift:=xlShiftDown
.Select
End With
ActiveWindow.ScrollRow = 16
Rows("21:21").Select
ActiveWindow.ScrollRow = 31
Selection.AutoFill Destination:=Rows("21:32"), Type:=xlFillDefault
Rows("21:32").Select
End Sub

正常情况没问题，但是保护单元格之后（主要是为了保护公式，因为表格不是一个人用）
就出现了：

运行时错误‘-1880945635（8fe30c1d）’：
自动化（Automation）错误

想知道这个宏怎么做能在锁定后能够正确使用。
或者怎样能实现，在锁定后，插入行，可以自动带公式。

Answer 1

在宏的前面添加解除保护语句：
ActiveSheet.UnProtect
在宏的末尾添加保护语句：
ActiveSheet.Protect
如果有密码就写在两个语句的后面。

Answer 2

++++57132899++++
代码要有解锁语句才可以