使用VBA进行锁定和解锁

对，我有一些代码，我写的使用VBA录像机，但我想添加解锁表在开始，然后锁定表在结束

专用子命令按钮1\u单击

" “新风险”4宏观 ActiveSheet.UsedRange “重置最后一个活动单元格”

Sheets("Risk Template").Select
'Looks at the risk template sheet'

ActiveCell.Rows("1:7").EntireRow.Select
ActiveCell.Offset(0, 4).Range("A1").Activate
'selects everything within the range'

Selection.Copy
'Copies to clipboard'

Sheets("Risk Input Sheet").Select
'Switches back to Risk Input sheet'

ActiveCell.SpecialCells(xlLastCell).Select
'Selects last active cell'

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
'Selects row with last active cell'

ActiveSheet.Paste
'Paste to select row'

Sheets("Risk Template").Select
'Looks at the risk template sheet'

ActiveCell.Rows("1:7").EntireRow.Select
ActiveCell.Offset(0, 4).Range("A1").Activate
'selects everything within the range'

Selection.Copy
'Copies to clipboard'

Sheets("Risk Input Sheet").Select
'Switches back to Risk Input sheet'

ActiveCell.SpecialCells(xlLastCell).Select
'Selects last active cell'

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
'Selects row with last active cell'

ActiveSheet.Paste
'Paste to select row'

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
    AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
    :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
    AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
    AllowUsingPivotTables:=True

完成了

专用子命令按钮1\u单击

活动表。取消保护 ' “新风险”4宏观 ActiveSheet.UsedRange “重置最后一个活动单元格”

Sheets("Risk Template").Select
'Looks at the risk template sheet'

ActiveCell.Rows("1:7").EntireRow.Select
ActiveCell.Offset(0, 4).Range("A1").Activate
'selects everything within the range'

Selection.Copy
'Copies to clipboard'

Sheets("Risk Input Sheet").Select
'Switches back to Risk Input sheet'

ActiveCell.SpecialCells(xlLastCell).Select
'Selects last active cell'

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
'Selects row with last active cell'

ActiveSheet.Paste
'Paste to select row'

Sheets("Risk Template").Select
'Looks at the risk template sheet'

ActiveCell.Rows("1:7").EntireRow.Select
ActiveCell.Offset(0, 4).Range("A1").Activate
'selects everything within the range'

Selection.Copy
'Copies to clipboard'

Sheets("Risk Input Sheet").Select
'Switches back to Risk Input sheet'

ActiveCell.SpecialCells(xlLastCell).Select
'Selects last active cell'

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
'Selects row with last active cell'

ActiveSheet.Paste
'Paste to select row'

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
    AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
    :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
    AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
    AllowUsingPivotTables:=True

---

End Sub

那么为什么不直接添加它呢？你的问题是什么？你的问题是什么？可能是