一个EXCEL单元格不让编辑，VBA代码怎么写。

[gexiujun]

如题

[gexiujun]

没有人答，自己顶

[okexcel]

保护就行了！

[gexiujun]

保护的话是可以，我也实现了，但是有一个问题就是我点击一个按钮要向里面插数据这样就不行了。所以我想在插数据之后再保护，呵呵。

[homesos]

不允许修改的单元格里面有内容吗？

1.没有内容，在Change事件中，判断是不是不允许修改的单元格，如果是，将输入的单元格内容清空。
2.如果有内容，在SelectionChange事件中，判断选中的是不是此单元格，如果是，将内容保存到临时变量中，在change事件时，如果修改的是不允许修改的单元格，则用此保存的内容赋值给此单元格。

另外，还要在BeforeDoubleClick事件中，判断双击的是不是不允许修改的单元格，如果是，则置参数Cancel = True，取消此次双击事件。

[fvflove]

你可以这样:
先打开保护.再运行你的代码.
运行完后,再将数据进行保护.
这样不就行了吗?

Sub Main()
ActiveSheet.Unprotect Password:="PassWord"


'这里面是你对数据进行处理的代码
Range("A1") = 13 '如设置A1单元格的值为13

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="PassWord"

End Sub

[homesos]

开保护是需要密码的，这样做不可取。

[tdhxjss]

设定本单元格不可选定也许可以吧

[舉杯邀明月]

我的想法和5楼一样。

[shenzhenjunhui]

锁定这个单元格，然后保护工作表，就可以了！
Range("A1").Locked = True
ActiveSheet.Protect password:="123456" '123456就是你的密码