如何使用VBA自动保护包含公式的所有工作表？

作者：绿色风分类：时间：2022-08-17 浏览：81

楼主 omnw	Q:如何使用VBA自动保护包含公式的所有工作表？ A:使用SpecialCells方法来判断当前工作表中是否有包含公式的单元格，如果存在这样的单元格，则保护当前的工作表，具体代码如下： Sub 保护包含公式的工作表() Dim i As Integer, rng As Range On Error Resume Next '错误处理语句 For i = 1 To Worksheets.Count '遍历所有的工作表 Set rng = Nothing '清理现场 Set rng = Worksheets(i).Cells.SpecialCells(xlCellTypeFormulas, 23) '查找当前工作中包含公式的单元格 If Not rng Is Nothing Then Worksheets(i).Protect '如果找到了单元格，则隐藏工作表。 Next i End Sub 该贴已经同步到保护工作表.rar
2楼海洋之星	老大，真厉害
3楼微博评论	回复@海洋之星1224:只有没想到，没有做不到啊[耶]
4楼 rzz8118	路过，学习了
5楼 bluexuemei	学习了,很实用的问题.

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表