VBA问题，在线请教，谢谢

雾里花

各位老师好，在同一文件夹下面有很多个工作簿，每个工作簿的打开密码还不一定一样，我需要通过遍寻该文件夹下的工作簿，然后删除工作簿里面多个表格所隐藏的对象（使用ctrl+G的方式删除太慢了，表格很多），然后保存工作簿的时候，把工作簿的打开密码去掉。我是个VBA菜鸟，我搜索了很多老师的成果，然后拼凑了一个代码，好像不起作用，而且一运行就卡死！打开工作簿的密码有四个，如下表格：

序号	打开密码
1	wa1
2	w1
3	wa123
4	无

Sub 批量删除对象()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sr$, wb As Workbook, ws As Worksheet, ps As String
Dim vData As Variant, nRow As Integer
Dim sPassword As String
sr = Dir(ThisWorkbook.Path & "\*.xls")
vData = Sheet1.UsedRange.Value
Do
'For nRow = 2 To UBound(vData)
    'sr = Dir(ThisWorkbook.Path & "\*.xls")
  'If sr <> "" Then
    'sPassword = IIf(Trim(vData(nRow, 2)) = "无", "", Trim(vData(nRow, 2)))
   Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & sr)
     With ActiveWorkbook
         b = ActiveWorkbook.Sheets.Count
         For I = 1 To b
           Worksheets(I).DrawingObjects.Delete
         Next I
         sr = Dir
        .SaveAs Password:="" '删除文件保护密码
        .Close True
     End With
   'End If
Loop Until sr = ""
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

雾里花

追加一个：如果工作簿的对象删除完了，则在原工作簿的名称前面加一个ok

雾里花

有人在吗？着急的很呀，不然这几天都要加班了

雾里花

各位大神，小女子在线等了

雾里花

这段代码谁帮我修改一下呢

雾里花

都没人理我吗

雾里花

朱荣兴 发表于 2019-3-18 07:55
1、没有需要打开的文件，
2、不明白你的文件打开密码是不是一一对应的，

由于文件太大，无法上传
文件打开密码没有对应关系，我自己打开的时候都是要试好几次，才能知道是哪个密码的

雾里花

朱荣兴 发表于 2019-3-18 09:57
这就很麻烦，还得破解你的文件打开密码，呵呵，

老师，可以通过多次输入密码来循环吗？反正密码就那四个，就是可不可以在试完一个不行的情况下继续跳出输入框输入下一个密码