批量删除excel工作簿密码

发布人

前提是已知工作簿密码：
代码：
Option Explicit
 
Sub ClearPasswords()
   Dim dlg As FileDialog, pathStr, wb As Workbook, passwd As String
   passwd = &quot;&quot; &#39;不想手工输入密码的话，可以写在这里的两个引号之间
   If passwd = &quot;&quot; Then passwd = InputBox(&quot;请输入密码：&quot;)
   &#39;打开一个文件选择框，可以选择多个文件同时进行处理
   Set dlg = Application.FileDialog(msoFileDialogFilePicker)
   With dlg
       .Filters.Add &quot;excel文档&quot;, &quot;*.xls;*.xlsx;*.xlsm&quot;
       .FilterIndex = .Filters.Count
       .AllowMultiSelect = True
       .Show
       If .SelectedItems.Count &gt; 0 Then
           For Each pathStr In .SelectedItems
               On Error Resume Next   
               Set wb = Workbooks.Open(pathStr, Password:=passwd)
               &#39;密码不正确时的错误处理
               If wb Is Nothing Then
                   Do
                   MsgBox &quot;密码错误！&quot;
                   Dim pswd
                   pswd = InputBox(&quot;请输入本文件密码&quot;)
                   If MsgBox(&quot;所有文件的密码都是这个吗？&quot;, vbYesNo) = vbYes Then
                       passwd = pswd
                   End If
                   Set wb = Workbooks.Open(pathStr, Password:=pswd)
                   Loop While (wb Is Nothing)
               End If
               On Error GoTo 0
               If Err.Number = 0 Then
                   If wb.HasPassword Then
                       wb.Unprotect passwd
                       wb.Password = &quot;&quot;
                       Application.DisplayAlerts = False
                       wb.Close True
                       Application.DisplayAlerts = True
                   Else
                       wb.Close False
                   End If
                   Set wb = Nothing
               End If
           Next
       End If
   End With
End Sub

打开封面下载高清视频观看高清视频视频下载器

批量删除excel工作簿密码

批量给excel工作簿添加密码

EXCEL中输入"分数，平方、立方"

excel多个工作表（sheet）快速切换

批量拆分单元格内容

excel不用替换功能批量去除空格

原来合并表格可以这么快，太厉害了

Excel库存表设置预警，库存不足提醒补货！

重复值的快速定位、筛选、删除

要是早点这个打印技巧，也不至于加班

excel必会的5种批量处理技巧

没想到绿色小三角还能删除！学到了

怎么不早说空白页是这样快速删除的！

没想到把空白页删除这么简单，学到了

vlooup+mid+find批量提取指定位置金额

EXCEL切片器比筛选功能强太多了！

excel利用定位条件进行横向筛选

全自动生成的excel项目进度图

excel批量填充——“control+E”

批量自动生成序号且不受筛选、隐藏、删除的影响

忘记工作表保护密码如何破解

免费分享一个可以批量拆分、合并工作簿和工作表的程序（免安装）

一分钟学会“高级筛选”

原来合并多个表格可以这么快，怎么不早说

批量给单元格文本添加标点符号-特别是第二种，简直太牛了

居然还能根据颜色求和，太厉害了

都给我去学Filter函数！查找数据太快了！

可以全自动更新的动态招聘看板免费下载

动态商务图-完成情况对比

EXCEL重复/非重复数据——统计计数

最新WPS Office国际版，太牛逼了！解锁会员全功能，白嫖到底，办公必备神器

删除或替换指定位置文本&统计字符在字符串中出现的次数

动态条形图制作

1课：漏斗图

组织架构图这样制作也太快了！学到啦

15课：圆环柱状组合图

mid+find函数 批量提取指定位置的文本

学会了！原来Excel里是这样打钩打叉的！

EXCEL忽略错误值跨列求和

excel批量添加单位，不影响函数计算

11课：电量图

mid+find函数批量提取指定位置的文本