Excel中保护指定的区域不被修改

opelwang

前提是：不用excel本身自带的保护功能，因为会影响其它的操作。
指定一个工作表中几个区域，如：A1：Z5，B7：V93，Y9：AB17，等等。
如何用代码控制，只可查看，不能修改，且隐藏中编辑栏显示的值。
如有修改，弹窗提示，并要求输入指定密码后方可，否则返回未修改前的状态。
不保护工作表。
敬请各位大师指点，谢谢。

吗咪吗咪哄咔咔

{:15:}               

liuts

excel本身自带的保护功能，应该不会影响其它的操作的......

豫朦胧

{:051:}{:051:}{:051:}学习啦  多谢

opelwang

2楼与4楼，严重灌水。
回3楼，已经在一楼说了，不用工作表加密保护功能。

无聊的疯子

回复 opelwang 的帖子

你说的是"前提是：不用excel本身自带的保护功能，因为会影响其它的操作。"

实际上,设置好了是不会影响的!

如果你非要用VBA的话,那可以用个简单的办法,使用选择单元格事件来判断你选择的单元格是否是不能修改的单元格

如果是,则给出提示或者要求输入密码,或者直接让他选择另一单元格

opelwang

回6楼：
就是想用单元格事件，来判断指定区域内的单元格是否发生变化，如果有变化，需提示输入密码。
密码正确，予以修改，错误返回。
如果指定的单元格内没有发生变化或是其它的单元格发生变化，代码不运行。
如果代码一直处于监控的状态，会影响数据的录入速度，所以，这个要考虑。

liuts

上传附件，说说自带功能如何影响你的操作吧。。。
就像有现成的VBA函数不用，你非要自己写算法！？

无聊的疯子

回复 opelwang 的帖子

注意变量一定要声名在最上面,这样才是公共变量

1. 
   
2. Option Explicit
   
3. Dim K
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5. '以保护B2:D4 为列
   
6.     If Target.Column > 1 And Target.Column < 5 And Target.Row > 1 And Target.Row < 5 Then
   
7.         If Target.Value <> K Then
   
8.             MsgBox "你修改了原来的值,该区域是不能修改的"
   
9.             Target.Value = K
   
10.         End If
    
11.     End If
    
12. End Sub
    
13. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
14.     If Target.Count = 1 Then
    
15.         K = Target.Value
    
16.     Else
    
17.         MsgBox "你不能选择一个区域来进行操作"
    
18.         Range("a1").Select
    
19.     End If
    
20. End Sub
    
21. 
    

复制代码

opelwang

非常感谢仁兄指点，经测试6楼的代码，有以下两点需要再帮忙修正：
1、受保护区域不能修改，但能删除？
2、受保护区域的值可以修改，但要输入密码才行。
3、选择范围的时候，如果对指定区域没有影响，不要弹窗。