工作簿公式一键保护VBA

按下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