如何用VBA隐藏锁定指定单元格区域的公式？

simonshaw

如题：
比如要隐藏锁定B13：I22和B31：I37单元格区域内的公式，对于这个区域内的没有公式的单元格就不要隐藏和锁定了。

请问高手这个能不能解决呢？

lisachen

自己录一个宏就解决了

simonshaw

lisachen 发表于 2013-3-31 11:13
自己录一个宏就解决了

要在VBA里输入密码。

1114550349

1. Sub ni()
   
2. Dim a%, b%
   
3. For a = 2 To 9
   
4. For b = 13 To 37
   
5. If (b <= 22) Or (b >= 31) Then
   
6.     If Cells(b, a).HasFormula = True Then
   
7.     Cells(b, a).Select
   
8.     Selection.Locked = True
   
9.     Selection.FormulaHidden = True
   
10.     End If
    
11. End If
    
12. Next
    
13. Next
    
14. End Sub

复制代码

以上代码即可，判定区域行数用b表示，列数用a表示

1114550349

1. Sub ni()
   
2. Dim a%, b%
   
3. For a = 2 To 9
   
4. For b = 13 To 37
   
5. If (b <= 22) Or (b >= 31) Then
   
6.     If Cells(b, a).HasFormula = True Then
   
7.     Cells(b, a).Select
   
8.     Selection.Locked = True
   
9.     Selection.FormulaHidden = True
   
10.     Else: Cells(b, a).Select
    
11.     Selection.Locked = False
    
12.     Selection.FormulaHidden = False
    
13.     End If
    
14. End If
    
15. Next
    
16. Next
    
17. End Sub

复制代码

刚刚没看清题目，代码追加了判定无公式不隐藏和不保护的功能

simonshaw

1114550349 发表于 2013-3-31 11:17
以上代码即可，判定区域行数用b表示，列数用a表示

能不能在VBA里设修改蜜码呢，这段是隐藏和锁定。如果自己想根据密码解除，最好能跳出个输入密码解除隐藏和锁定的功能，
这个放到模块里用，对所用工作表起作用。

lisachen

1. Sub 宏2()
   
2.     Cells.Select
   
3.     Selection.Locked = False
   
4.     Selection.FormulaHidden = False
   
5.     Union(Range("B13：I22"), Range("B31：I37")).Select
   
6.     Selection.SpecialCells(xlCellTypeFormulas, 23).Select
   
7.     Selection.Locked = True
   
8.     Selection.FormulaHidden = True
   
9.     ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True
   
10. End Sub

复制代码

simonshaw

lisachen 发表于 2013-3-31 11:25

这段代码可操作性比上面的好。我试试看。

密码是不是可以输入任何字符？有没有位数限制？

无聊的疯子

这样试试

1. 
   
2. Sub CC()
   
3.     With Sheets("Sheet1")   '指定要操作的表
   
4.         .Unprotect      '解除工作表保护
   
5.         With .Cells     '操作所有单元格
   
6.             .Locked = False     '取消锁定
   
7.             .FormulaHidden = False      '取消隐藏单公式
   
8.             With .SpecialCells(xlCellTypeFormulas, 23)      '定位公式
   
9.                 .Locked = True          '锁定单元格
   
10.                 .FormulaHidden = True   '隐藏公式
    
11.             End With
    
12.         End With
    
13.         .Protect        '保护工作表
    
14.     End With
    
15. End Sub
    

复制代码

lisachen

simonshaw 发表于 2013-3-31 11:29
这段代码可操作性比上面的好。我试试看。

密码是不是可以输入任何字符？有没有位数限制？

先试试  再说吧