VBA弹框一键解除工作簿密码

晓月风归

请各位老师帮忙：
有一个工作簿含多个工作一，用VBA批量统一加相同加密后，想设置一个按钮，批量解除工作簿所有密码，当

点“解除密码”时弹出框提示输入密码，密码错误弹出提示错误并再次弹出输入密码框，密码正确，解除整个工作簿密码。
VBA弹框一键解除工作簿密码.rar (15.79 KB, 下载次数: 9)

2015-5-22 22:49 上传

点击文件名下载附件

七彩屋

1. Sub 矩形2_Click() '所有工作表一次性解密
   
2.       Application.ScreenUpdating = False
   
3.       
   
4.     Dim sht As Worksheet
   
5.     Dim sPwd As String
   
6.     sPwd = InputBox("请输入密码！")
   
7.   If sPwd = "123" Then
   
8.     For Each sht In Worksheets
   
9.         sht.UnProtect Password:=123
   
10.         Next
    
11. Else
    
12.     MsgBox "密码错误！"
    
13.     Exit Sub
    
14.   End If
    
15. 
    
16.       Application.ScreenUpdating = True
    
17. End Sub

复制代码

七彩屋

VBA弹框一键解除工作簿密码.rar (18.6 KB, 下载次数: 19)

2015-5-23 08:59 上传

点击文件名下载附件

晓月风归

谢谢七彩屋