Question

vba中如何设置单个单元格只能点击不能进入编辑状态

Answer 1

亲，假设你要设置的单元格是A1。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。

这样，你就可以点击选择A1单元格，但当你试图编辑它时就会出现工作表被保护的提醒并禁止编辑。而其他单元格不受影响。

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then
    ActiveSheet.Protect
Else
    ActiveSheet.Unprotect
End If
End Sub

Answer 2

Sub Macro1()
Range("1:65536").Locked = False '解除全部锁定
Range("A1").Select '设置新锁定
Selection.Locked = True '开启锁定
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Answer 3

单击有没有什么功能？如果没有的话可以让焦点不能集中在这个单元格上就行了。如果你还要实现其它什么功能的话，就要做相应处理了。