excel里输入数据后弹出提示,确认后数据不可修改,取消的话返回重填

Question

下面这个帖子已经解决了excel里输入数据后不可修改的问题，http://zhidao.baidu.com/link?url=jV7KAlxg6xXvKFyUaa8eqr04NkvaddLhXzfrexZPEb5eOqgTYK3Q7LjLRRBxgZqu8Kb1Y9vlicBzPeUUhfAU7q
但是我想问下，如果我想在用户输入数据后弹出个提示，确认后再保护，不确认则返回重填，这个怎么实现呢？

Answer 1

设计一个EXCEL表格，在单元格中输入完内容后别人无法更改，但是表格假如是大家共用的，别人可以在空白的表格中输入内容，却无法修改你输入的内容，他同样输入后也无法更改，确实需要更改的话，必须输入事先设定的密码才行，如下表：22：01分的单元格，输入了内容，在该单元格里面点击的话需要输入设定密码才可更改。






如何实现该功能呢

按ALT+F11键进入设计模式



点击视图菜单，如下：



点击视图里面的代码设计进入设计模块



在该设计模块内输入如下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  On Error Resume Next

  With Target

  If .Value <> "" Then

  PW = InputBox("修改内容请输入密码：")

  If PW <> "1213" Then

  Cells(1, 1).Select

  Else

  Exit Sub

  End If

End If

End With

End Sub






输入后，再次按ALT+F11,回到表格，另存为带宏的保存类型，这样就可以实现需要的功能。

Answer 2

附件 仅限 使用 选中单元格 进行数据修改的 限制！目前示例中的是 修改 sheet1 表中的A列中的数据进行了这样的限制 如果 你不需要限制范围 或者 限制范围不同的话自己修改 一下吧！

这个是 确认后 数据进行了修改 取消后不修改！

你的不可 修改 和 保护 没有理解是什么意思哦！如果是 想要把修改了的单元格的数据 再确认后 以后不可以再修改的话 方法不是这样的 应该另写代码！

本示例 不适宜用于 带有公式的 单元格！

两个事件 一个 公用变量…………

追问

附件里的这个代码虽然实现了输入确认，但是我要求“一经确认就不可再修改”，这个怎么做呢？

追答

首先要对 需要这样控制的区域 进行单元格设置 设置单元格保护 为 不锁定……

原理 就是 当你确认 修改了之后 对单元格的 进行锁定 同时保护工作表……

本回答被提问者和网友采纳