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

如题所述

举报该文章

相关建议推荐于2017-12-16

亲，假设你要设置的单元格是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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/m847fq848sqvp47pfp.html

其他看法

第1个回答 2016-01-08

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

第2个回答 2015-05-05

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

相似回答

大家正在搜