在所选单元格或行下方插入新行

Question

我已经保护了Excel工作表。第一行位于第10行，所有新行都插入到下面。

我已在命令代码下面放置了代码，以在底部插入新行，并从上一行复制了相同的格式和公式。效果很好。

ActiveSheet.Unprotect""
ActiveSheet.Range("A10").CurrentRegion.Offset(ActiveSheet.Range("A10").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowDeletingRows:=True, AllowSorting:=True _
, AllowFiltering:=True
ActiveSheet.Protect "", True, True

但是我不能在行中间插入新行（具有相同的格式和从上一行复制的公式）。

有人可以编辑我的代码，以便可以通过单击鼠标突出显示来在要插入的行中间的任何位置插入新行。

当然应该在突出显示的单元格下面创建新行，并使用与上一行相同的格式和公式进行复制。

Answer 1

Sub AddRow()  
    ActiveSheet.Unprotect "1234" 
    ActiveCell.Offset(1).EntireRow.Insert 
    ActiveCell.Offset(1).EntireRow.Cells.Locked = False 
    ActiveSheet.Protect "1234" 
End Sub