phpprotectprivate技巧_我的Excel保护神器一键自定义加密解密保护解保工作簿和工作表

文章目录 [+]

成功添加开启密码

成功添加修正密码

phpprotectprivate技巧_我的Excel保护神器一键自定义加密解密保护解保工作簿和工作表

成功保护事情簿（界面）

（图片来自网络侵删）

成功保护所有事情表

成功解密开启密码或修正密码

成功解保事情簿

成功解保所有事情表

添加开启密码的事情簿，每次开启都有如上开启密码输入框

添加修正密码的事情簿，每次开启后都有如上修正密码输入框

功能和优点大略易用功能整合方便快捷一键快速完成各种密码的加密、解密、保护和解保（非破解）：事情簿开启密码（运行后每次打开事情簿，提示输入密码，否则无法打开事情簿）事情簿修正密码（运行后每次打开事情簿，提示输入密码，否则无法修正）事情簿保护密码事情表保护密码自定义事情簿保护选项：是否保护事情簿构造是否保护事情簿窗口自定义事情表保护选项：是否保护图形是否保护方案是否许可排序是否许可筛选是否许可透视VBA程序：

窗体

源代码 Page 1

源代码 Page 2

源代码 Page 3

源代码 Page 4

VBA源码：

' fProtectWbkAndShtPrivate Sub btn1_Click() If EncryptWorkbookOpenPassword(, txt1WbkOpenPassword.Value) = 1 Then MsgBox "成功添加开启密码。 " & vbCrLf & _ "每次打开事情簿时，请输入密码：" & txt1WbkOpenPassword.Value, vbInformation Else MsgBox "添加开启密码失落败。请检讨文件是否已加密过。 ", vbCritical End IfEnd SubPrivate Sub btn2_Click() If DecryptWorkbookOpenPassword() = 1 Then MsgBox "成功解密。 ", vbInformation Else MsgBox "解密失落败。 ", vbCritical End IfEnd SubPrivate Sub btn3_Click() If EncryptWorkbookWriteResPassword(, txt2WbkWriteResPassword.Value) = 1 Then MsgBox "成功添加修正密码。 " & vbCrLf & _ "每次打开事情簿时，请按提示输入修正密码，：" & txt1WbkOpenPassword.Value & vbCrLf & _ "否则只能以只读的办法打开事情簿", vbInformation Else MsgBox "添加修正密码失落败。请检讨文件是否已加密过。 ", vbCritical End IfEnd SubPrivate Sub btn4_Click() If DecryptWorkbookWriteResPassword() = 1 Then MsgBox "成功解密。 ", vbInformation Else MsgBox "解密失落败。 ", vbCritical End IfEnd SubPrivate Sub btn5_Click() If ProtectWorkbook(, _ txt3WbkProtectPassword.Value, _ chk1ProtectStructure.Value, _ chk2ProtectWindows.Value) = 1 _ Then MsgBox "成功保护事情簿！ " & vbCrLf & vbCrLf & _ "请记好密码：" & txt3WbkProtectPassword Else MsgBox "无法保护事情簿！ " & vbCrLf & _ "请检讨事情簿是否已被保护或者密码是否输入有误？" End IfEnd SubPrivate Sub btn6_Click() If UnProtectWorkbook(, _ txt3WbkProtectPassword.Value) = 1 Then MsgBox "成功解除保护事情簿" Else MsgBox "解除保护事情簿失落败！请检讨密码" End IfEnd SubPrivate 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 IfEnd SubPrivate Sub btn8_Click()' Err.Clear' On Error Resume Next If UnProtectAllSheets(txt4ShtProtectPassword.Value) = 1 Then MsgBox "成功解除保护所有事情表！ " Else MsgBox "解除保护事情表失落败！请检讨密码是否有问题" End IfEnd Sub' Thisworkbook.cls.txtPrivate Sub Workbook_Open() fProtectWbkAndSht.Show Application.OnKey "{F5}", "showProtectWbkAndSht"End SubSub showProtectWbkAndSht() fProtectWbkAndSht.ShowEnd Sub