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时选择的所有单元格。