Private Sub Worksheet_Change(ByVal Target As Range)　If [a1].Value <> 123 Then '当单元格A1的内容为123时才能输入内容.　　　MsgBox "密码不正确,请在A1单元格里输入
正确的
密码."　　　Application.EnableEvents = False '关闭事件响应　　　Target.Value = "" '把刚才输入内容的单元格设为空格　　　Application.EnableEvents = True '开启事件响应　　　Exit Sub　End IfEnd Sub

又如果你的Ｂ列只可输入男或女，其他的内容一律当非法，可修改代码如下．Private Sub Worksheet_Change(ByVal Target As Range) 　if target.column <> 2 then exit sub　If target.value = "男" or target.value = "女" then exit sub　　　MsgBox "输入内容非法，本列只可输入性别．" 　　　Application.EnableEvents = False '关闭事件响应 　　　Target.Value = "" '把刚才输入内容的单元格设为空格 　　　Application.EnableEvents = True '开启事件响应 End Sub

近来少用了VBA,技术没什么进展,看到以前的贴有朋友提到输入内容的限制问题,便想出这叟主意来,有高手能有更好的解决办法请贴上,让大家一起学习,谢谢~ (*^-^*)

限制单元格输入内容最好用数据——有效性里设定而不要用Worksheet_Change事件，象给出的例子，仅仅是为了限制A1格的内容，但任何单元格有所更改都会去运行这个代码，效率来说不高！

是的,吧主也有理.但我看的贴不是针对一般的限制输入,而是针对粘贴,这个事件可以使各种的修改方法都会引发本事件,至于怎样去限制,当然是由事主去改代码,我在这里只是举个简单的例子.二楼就是另一个例子了,不一定要针对A1或什么密码的.(*^-^*)

效率会是低一点,数据量不是超大的话是不会有什么感觉的,但可以针对一些不守规举的人做一点限制.至于用与不用,就悉随遵便了.

　　还有一个问题想向吧主投拆的,你的Q号不要再挂线了,每隔几分钟就发个广告给我,烦死了,我已受不了把你拖进黑名单里了.请你取消你的挂机后再通知我好吗?万分感激. (*^-^*)

呵呵，没想到挂QQ也有人有意见：），好了，现在不挂了，还有，现在不是吧主了：）

那现在吧主是谁了? :(

晕，你几天没来了？看这个贴吧http://post.baidu.com/f?kz=37782761