******vba能否对绿色区域进行保护，其他非绿色区能编辑？*****

make08

Book2.rar (5.71 KB, 下载次数: 10)

2015-4-24 16:24 上传

点击文件名下载附件

jsxjd

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Cells.Locked = False
   
4.     For Each c In UsedRange
   
5.         If c.Interior.ColorIndex = 43 Then c.Locked = True
   
6.     Next
   
7.     Protect
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton2_Click()
    
11.     Unprotect
    
12. End Sub
    

复制代码

jsxjd

Book2.rar (10.97 KB, 下载次数: 22)

2015-4-24 16:47 上传

点击文件名下载附件

make08

jsxjd 发表于 2015-4-24 16:47

感谢版主，厉害，学习了

破头楔子

jsxjd 发表于 2015-4-24 16:47

版主威武！
请问这个解除保护能否加上密码？

jsxjd

破头楔子 发表于 2015-4-25 08:42
版主威武！
请问这个解除保护能否加上密码？

1. 
   
2. Private Sub CommandButton1_Click()
   
3.     Cells.Locked = False
   
4.     For Each c In UsedRange
   
5.         If c.Interior.ColorIndex = 43 Then c.Locked = True
   
6.     Next
   
7.     Protect Password:="1234"
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton2_Click()
    
11.     Unprotect Password:="1234"
    
12. End Sub
    
13. 
    

复制代码

破头楔子

jsxjd 发表于 2015-4-25 15:43

感谢版主回复。
密码没起作用呢？

jsxjd

破头楔子 发表于 2015-4-25 17:04
感谢版主回复。
密码没起作用呢？

什么意思？

破头楔子

jsxjd 发表于 2015-4-25 17:06
什么意思？

版主回复神速啊！
我的意思就是解除密码时也没提示输入密码啊？

jsxjd

破头楔子 发表于 2015-4-25 17:08
版主回复神速啊！
我的意思就是解除密码时也没提示输入密码啊？

1. Private Sub CommandButton1_Click()
   
2.     Cells.Locked = False
   
3.     For Each c In UsedRange
   
4.         If c.Interior.ColorIndex = 43 Then c.Locked = True
   
5.     Next
   
6.     Protect Password:="1234"
   
7. End Sub
   
8. 
   
9. Private Sub CommandButton2_Click()
   
10.     Unprotect
    
11. End Sub
    

复制代码