VBA项目程序运行效果图：

功能和优点

• 简单易用
• 功能整合
• 方便快捷
• 一键快速完成各种密码的加密、解密、保护和解保（非破解）：
• 工作簿开启密码（运行后每次打开工作簿，提示输入密码，否则无法打开工作簿）
• 工作簿修改密码（运行后每次打开工作簿，提示输入密码，否则无法修改）
• 工作簿保护密码
• 工作表保护密码
• 自定义工作簿保护选项：
• 是否保护工作簿结构
• 是否保护工作簿窗口
• 自定义工作表保护选项：
• 是否保护图形
• 是否保护方案
• 是否允许排序
• 是否允许筛选
• 是否允许透视

VBA程序：

VBA源码：

' fProtectWbkAndSht

Private Sub btn1_Click()
    If EncryptWorkbookOpenPassword(, txt1WbkOpenPassword.Value) = 1 Then
        MsgBox "成功添加开启密码。" & vbCrLf & _
                    "每次打开工作簿时，请输入密码：" & txt1WbkOpenPassword.Value, vbInformation
    Else
        MsgBox "添加开启密码失败。请检查文件是否已加密过。", vbCritical
    End If
End Sub

Private Sub btn2_Click()
    If DecryptWorkbookOpenPassword() = 1 Then
        MsgBox "成功解密。", vbInformation
    Else
        MsgBox "解密失败。", vbCritical
    End If
End Sub

Private Sub btn3_Click()
    If EncryptWorkbookWriteResPassword(, txt2WbkWriteResPassword.Value) = 1 Then
        MsgBox "成功添加修改密码。" & vbCrLf & _
                    "每次打开工作簿时，请按提示输入修改密码，：" & txt1WbkOpenPassword.Value & vbCrLf & _
                    "否则只能以只读的方式打开工作簿", vbInformation
    Else
        MsgBox "添加修改密码失败。请检查文件是否已加密过。", vbCritical
    End If
End Sub

Private Sub btn4_Click()
    If DecryptWorkbookWriteResPassword() = 1 Then
        MsgBox "成功解密。", vbInformation
    Else
        MsgBox "解密失败。", vbCritical
    End If
End Sub

Private Sub btn5_Click()
    If ProtectWorkbook(, _
        txt3WbkProtectPassword.Value, _
        chk1ProtectStructure.Value, _
        chk2ProtectWindows.Value) = 1 _
    Then
        MsgBox "成功保护工作簿！" & vbCrLf & vbCrLf & _
                    "请记好密码：" & txt3WbkProtectPassword
    Else
        MsgBox "无法保护工作簿！" & vbCrLf & _
                    "请检查工作簿是否已被保护或者密码是否输入有误？"
    End If
End Sub

Private Sub btn6_Click()
    If UnProtectWorkbook(, _
                                        txt3WbkProtectPassword.Value) = 1 Then
        MsgBox "成功解除保护工作簿"
    Else
        MsgBox "解除保护工作簿失败！请检查密码"
    End If
End Sub

Private Sub btn7_Click()
    Err.Clear
    On Error Resume Next
    If ProtectAllSheets(txt4ShtProtectPassword.Value, _
                                    chk3.Value, _
                                    chk4.Value, _
                                    chk5.Value, _
                                    chk6.Value, _
                                    chk7.Value, _
                                    chk8.Value) = 1 Then
        MsgBox "成功保护所有工作表。" & vbCrLf & vbCrLf & _
                        "请记好密码：" & txt4ShtProtectPassword.Value
    Else
        MsgBox "保护工作表失败！请检查工作表是否已经保护，或者密码是否有问题"
    End If
End Sub

Private Sub btn8_Click()
'    Err.Clear
'    On Error Resume Next
    If UnProtectAllSheets(txt4ShtProtectPassword.Value) = 1 Then
        MsgBox "成功解除保护所有工作表！"
    Else
        MsgBox "解除保护工作表失败！请检查密码是否有问题"
    End If
End Sub




' Thisworkbook.cls.txt

Private Sub Workbook_Open()
    fProtectWbkAndSht.Show
    Application.OnKey "{F5}", "showProtectWbkAndSht"
End Sub

Sub showProtectWbkAndSht()
    fProtectWbkAndSht.Show
End Sub

每次打开工作簿或者激活工作簿后按下快捷键F5，就会自动弹出程序主界面对话框，只要输入密码，点击按钮即可加密，解密、保护、解保工作簿或工作表。

当然也可设置宏按钮或自定义快捷键，指向VBA Sub：showProtectWbkAndSht，这样每次点击这个按钮或快捷键，即可快速实现一键保护所有工作表。

后记

分享完毕。感谢欣赏、关注、点赞、收藏与转发。

如果有任何问题，欢迎评论或者私信。

下期见~

#头条首发大赛##头条创作挑战赛##文章首发挑战赛##excel##vba#