[已解决]批量公式隐藏和锁定问题

fxgg72

一个工作簿中有13个工作表，并且每个工作表中都有大量的公式存在，我想用VBA代码一次性自动搜索有公式的单元格，隐藏并锁定公式。请大侠帮忙提供。谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-7 18:25

1. Sub 批量保护()
   
2.     Dim sht
   
3.     For Each sht In Worksheets
   
4.         With sht
   
5.             .UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True
   
6.             .Protect
   
7.         End With
   
8.     Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 批量保护()
   
2.     Dim sht
   
3.     For Each sht In Worksheets
   
4.         With sht
   
5.             .UsedRange.SpecialCells(xlCellTypeFormulas).FormulaHidden = True
   
6.             .Protect
   
7.         End With
   
8.     Next
   
9. End Sub

复制代码

hwc2ycy

在VBE里插入一个模块，代码粘贴过去，F5就行了。

hwc2ycy

1. Sub 批量撤消保护()
   
2.     Dim sht
   
3.     For Each sht In Worksheets
   
4.         sht.Unprotect
   
5.     Next
   
6. End Sub

复制代码

方便你再撤销

fxgg72

hwc2ycy 发表于 2012-11-7 18:25

谢谢！
大师就是大师！
师德高尚！
[em17]

fxgg72

hwc2ycy 发表于 2012-11-7 18:25

老师再看看我附件中的问题，能否很好地解决？
谢谢老师！
质量管理系统制作求助.rar (299.43 KB, 下载次数: 31)

2012-11-8 05:55 上传

点击文件名下载附件

无聊的疯子

fxgg72 发表于 2012-11-8 05:56
老师再看看我附件中的问题，能否很好地解决？
谢谢老师！

如果只是要打开某个对应的工作薄的话，没必要做那么复杂

做一个工作薄列表，然后要看那个点那个就行了嘛！！

fxgg72

无聊的疯子 发表于 2012-11-8 15:34
如果只是要打开某个对应的工作薄的话，没必要做那么复杂

做一个工作薄列表，然后要看那个点那个就行了 ...

只能做成目录的形式共享。老师有比较简单方便的办法吗？
听说需要VBA代码才能实现的。
谢谢老师！

无聊的疯子

fxgg72 发表于 2012-11-8 18:52
只能做成目录的形式共享。老师有比较简单方便的办法吗？
听说需要VBA代码才能实现的。
谢谢老师！

替换你原来的文件

质量管理系统（制作说明）.zip (61.18 KB, 下载次数: 31)

2012-11-9 18:17 上传

点击文件名下载附件

fxgg72

无聊的疯子 发表于 2012-11-9 18:17
替换你原来的文件

首先谢谢老师关注！
我点击了，无链接。一刷新文件，全没了啊！