- N +

工作簿公式一键保护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


返回列表
上一篇:
下一篇:

发表评论中国互联网举报中心

快捷回复:

    评论列表 (暂无评论,共191人参与)参与讨论

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