excel - VBA代码仅锁定excel中用户选择（突出显示）的单元格

Question

我想知道如何使用 VBA/宏来锁定用户选择/突出显示的某些 excel 单元格。

我现在使用的代码正在锁定整个工作表。

Sub Macro4()
'
' Macro4 Macro
'

'
  Worksheets("Sheet1").Activate
  ActiveSheet.Unprotect
Cells.Select
Selection.Locked = True
ActiveSheet.Protect
End Sub

关于我做错了什么的任何想法？

感谢您的时间。

Answer 1

如果您想在每次发生新选择时对所选单元格执行任何操作，您应该依赖于发生这种情况时触发的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Selection.Locked = True

End Sub

这在文件中包含给定工作表的代码；也就是说，如果要考虑Sheet1，则必须编写此代码的文件是：Microsoft Excel Objects/Sheet1 (Sheet1).

评论后更新

Sub Button1_Click()
      Selection.Locked = True
End Sub

此代码锁定Button1单击时选择的所有单元格。