求高手修改一下密码保护出错问题

SHQM

2015.03报价模板改.rar (120.2 KB, 下载次数: 5)

2016-6-2 14:36 上传

点击文件名下载附件 求高手帮忙修改一下.谢谢。

老司机带带我

代码如下：

1. Sub 密码保护()
   
2.     Dim rng As Range
   
3. 
   
4.     ActiveSheet.Unprotect ("123456")
   
5. 
   
6.     Set rng = Cells
   
7. 
   
8.     rng.Locked = False
   
9. 
   
10.     Set rng = Selection.SpecialCells(xlCellTypeFormulas, 23)
    
11. 
    
12.     rng.Locked = True
    
13. 
    
14.     rng.FormulaHidden = True
    
15. 
    
16.     ActiveSheet.Protect ("123456")
    
17. 
    
18.     ActiveSheet.EnableSelection = xlUnlockedCells
    
19. 
    
20.     End Sub

复制代码

SHQM

老司机带带我 发表于 2016-6-3 09:05
代码如下：

感谢大师兄