[已解决]修改工作表非空白数据时，如何修改VBA代码，自动弹出系统自带的【撤销工作表保护】...

feiaoli

请教老师：
修改工作表非空白数据时，如何修改VBA代码，自动弹出系统自带的【撤销工作表保护】窗口，而不是【提示框】

最佳答案

月排行榜 / 总排行榜

su45

2014-8-13 11:24

只有双击区域内的单元格才表示为要修改单元格，在你页代码区增加两段代码：

1. Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
   
2. If T.Row > 4 And T.Row < 22 And T.Column > 1 And T.Column < 10 Then
   
3.     Sheet1.Unprotect ' Password:="12345"
   
4. End If
   
5. End Sub
   
6. Private Sub Worksheet_Change(ByVal T As Range)
   
7. If T.Row > 4 And T.Row < 22 And T.Column > 1 And T.Column < 10 Then
   
8.     Sheet1.Protect Password:="12345", AllowFiltering:=True
   
9. End If
   
10. End Sub
    

复制代码

前段代码是双击就出现撤销保护框，后段代码是修改单元格后就保护起来

跳转到最佳答案楼层

su45

双击的作用就是告诉电脑，我要修改数据了，你还有什么办法告诉电脑你要修改数据？

su45

只有双击区域内的单元格才表示为要修改单元格，在你页代码区增加两段代码：

1. Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
   
2. If T.Row > 4 And T.Row < 22 And T.Column > 1 And T.Column < 10 Then
   
3.     Sheet1.Unprotect ' Password:="12345"
   
4. End If
   
5. End Sub
   
6. Private Sub Worksheet_Change(ByVal T As Range)
   
7. If T.Row > 4 And T.Row < 22 And T.Column > 1 And T.Column < 10 Then
   
8.     Sheet1.Protect Password:="12345", AllowFiltering:=True
   
9. End If
   
10. End Sub
    

复制代码

前段代码是双击就出现撤销保护框，后段代码是修改单元格后就保护起来

feiaoli

su45 发表于 2014-8-13 11:24
只有双击区域内的单元格才表示为要修改单元格，在你页代码区增加两段代码：前段代码是双击就出现撤销保护框 ...

非常感谢！！，已经满足了我的要求。但是可不可以把您的第一段代码改写成重新写入数据弹出 密码保护的对话框呢？再次感谢老师！！

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim irow As Long, icol As Long
   
3. irow = Target.Row
   
4. icol = Target.Column
   
5. If irow > 4 And irow < 28 Then '限定表格行
   
6.     If icol > 1 And icol < 13 Then '限定表格列
   
7.         Sheet1.Unprotect Password:="12345"
   
8.         If ActiveCell.Value <> "" Then
   
9.             Target.Locked = True
   
10.             Sheet1.Protect Password:="12345", AllowFiltering:=True
    
11.         End If
    
12.     End If
    
13. End If
    
14. 
    
15. End Sub
    
16. 
    
17. 
    
18. 
    
19. Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean) '双击就出现撤销保护框
    
20. If T.Row > 4 And T.Row < 22 And T.Column > 1 And T.Column < 10 Then
    
21.     Sheet1.Unprotect ' Password:="12345"
    
22. End If
    
23. End Sub
    
24. Private Sub Worksheet_Change(ByVal T As Range) '修改单元格后就保护起来
    
25. If T.Row > 4 And T.Row < 22 And T.Column > 1 And T.Column < 10 Then
    
26.     Sheet1.Protect Password:="12345", AllowFiltering:=True
    
27. End If
    
28. End Sub

复制代码

su45

什么是“重新写入数据”？

feiaoli

su45 发表于 2014-8-13 13:14
双击的作用就是告诉电脑，我要修改数据了，你还有什么办法告诉电脑你要修改数据？

谢谢老师的教诲！！尽管我不懂VBA，但是\(^o^)/~我比较骄傲的是和我想的一样，必须给EXCEL命令他才识别。再次感谢您！！！！