在允许新行/删除行的同时保护表中的公式

Sub ProtectSheetWithExceptions()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 设置允许编辑的区域
    ws.Cells(1, 1).Resize(10, 5).Locked = False
    
    ' 保护工作表
    ws.Protect Password:="yourpassword", DrawingObjects:=True, Contents:=True, _
                 Scenarios:=False, FormatCells:=True, FormatColumns:=True, _
                 FormatRows:=True, InsertColumns:=False, InsertRows:=False, _
                 DeleteColumns:=False, DeleteRows:=False, SelectLockedCells:=True, _
                 SelectUnlockedCells:=True, Order:=False, AllowFormattingRows:=True, _
                 AllowFormattingColumns:=True, AllowFormattingCells:=True, AllowDeletingRows:=False, _
                 AllowDeletingColumns:=False, AllowInsertingRows:=True, AllowInsertingColumns:=True
End Sub