vba中设置工作薄保护密码的代码是什么

Question

如题所述

Answer 1

如果楼主是想保护工作簿中的各工作表，使其不可随意编辑，可以用以下代码。

Sub ProtectAllWorkSheets()
'运行代码后，当前工作簿中的所有工作表都将不允许编辑，除非撤销工作表保护
    On Error Resume Next
    Dim ws As Worksheet, myPassword As String
    myPassword = InputBox("请输入您的密码" & vbCrLf & _
                "(不输入表明无密码)" & vbCrLf & vbCrLf & _
                "确保您没有忘记密码！", "输入密码")
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect (myPassword)
    Next ws
End Sub

Sub UnprotectAllWorkSheets()
'运行代码后，解除工作簿各工作表的保护
    On Error Resume Next
    Dim ws As Worksheet
    Dim myPassword As String
        myPassword = InputBox("请输入您的密码" & vbCrLf & _
                    "(不输入表示无密码)", "输入密码")
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect (myPassword)
    Next ws
End Sub