工作表事件示例：输入数据后锁定单元格

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA ， 工作表事件 在工作表单元格中输入数据后，该单元格就被锁定，不能再编辑。 打开 VBE ，在工程资源管理器中双击该工作表名称打开其代码模块，在其中输入下面的代码： '假设整个工作表的Locked=False Private Sub Worksheet_Change(ByVal Target As Range) Dim rCell As Range Dim ans As VbMsgBoxResult For Each rCell In Target With rCell If Len (.Value) > 0 Then        ans = MsgBox( "输入正确吗?" &  vbCrLf  &  vbCrLf  &  _          vbTab  &  .Value  &   "  ("   &  .Address( False , False )  &   ")"   &  vbCrLf  &  vbCrLf  &  _           "输入数值后将不能编辑这个单元格." , vbYesNo,  "单元格锁定通知" ) If ans = vbYes Then If Me.ProtectContents Then Me.Unprotect Password := "123" '首先撤销保护 .Locked ………………………………