按下ALT+F11,打开VBE窗口,单击插入——模块,然后在右边的代码窗口,复制下面的代码:

Sub mima2()

    Dim sht As Worksheet, rng As Range

    On Error Resume Next

    For Each sht In ThisWorkbook.Worksheets

        With sht

            .Unprotect Password:="aaa123"    '撤销工作表保护

            .Range("A:IV").Locked = False    '取消所有单元格格式》保护 中的锁定选项

            With .UsedRange.SpecialCells(xlCellTypeFormulas)  '定位所有含有公式的单元格

                .Locked = True               '选中所有单元格格式》保护 中的锁定选项

                .FormulaHidden = True        '隐藏公式

            End With

            .Protect Password:="aaa123"      '保护工作表,并将密码设置为aaa123

        End With

    Next

End Sub

光标定位在上面代码以内的任意位置,按F5运行。

切换到工作表中,就可以看到所有的工作表有公式的单元格全部保护了。

说明:代码中的aaa123为密码,可以改为自己需要的。

如果要撤销所有工作表的密码,运行下面的代码:

Sub 保护全部解开()

For Each sht In Sheets

sht.Unprotect "aaa123"

Next

End Sub


未经允许不得转载!作者:有问题工单联系,转载或复制请以超链接形式并注明出处哎呦哇啦-Ouch! Wow!

原文地址:https://www.au28.cn/post/634.html发布于:2021-07-27

发表评论

快捷回复:表情:
评论列表 (暂无评论,1378人围观)

还没有评论,来说两句吧...