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

1114550349

simonshaw 发表于 2013-3-31 11:23
能不能在VBA里设修改蜜码呢，这段是隐藏和锁定。如果自己想根据密码解除，最好能跳出个输入密码解除隐藏和 ...

- -！！要求不少啊！呵呵

1. Sub ni()
   
2. Dim a%, b%, c$
   
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. c = InputBox("请输入密码")
    
18. Sheets("Sheet1").Select
    
19. ActiveSheet.Protect (c)
    
20. End Sub

复制代码

这些应该满足使用了

1114550349

忘记了，把sheets("sheet1").select那行删掉，如果想在其他工作表中使用的话

simonshaw

1114550349 发表于 2013-3-31 11:53
忘记了，把sheets("sheet1").select那行删掉，如果想在其他工作表中使用的话

我试试，看哪一个好些，

simonshaw

能不能编个独立于工具栏工作表保护之外的代码呢，也就是单元格区域被保护或锁定但在那个工具栏里看不到撤消工作表保护。

这样的代码能不能编得出来呢

经过试用，上面的代码和工具栏的操作没多大区别啊

1114550349 发表于 2013-3-31 11:50
- -！！要求不少啊！呵呵这些应该满足使用了

只能锁定，不能解除锁定