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

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

   
   

   

2. 如何实现该功能呢

3. 按ALT+F11键进入设计模式

   

4. 点击视图菜单，如下：

   

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

   

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

7. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

8.   On Error Resume Next

9.   With Target

10.   If .Value <> "" Then

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

12.   If PW <> "1213" Then

13.   Cells(1, 1).Select

14.   Else

15.   Exit Sub

16.   End If

17. End If

18. End With

19. End Sub

    
    

    

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

    

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

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

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

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

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