Cách xóa mật khẩu nhiều tập tin trong một thư mục bằng Excel (Cần chọn thư mục cần xóa)

Tôi cần xóa mật khẩu mở sổ làm việc (cùng một mật khẩu) cho nhiều tệp trong thư mục của mình. Tôi đã tìm thấy đoạn mã bên dưới của Graham Mayor (chủ đề đã bị khóa); nhưng tôi muốn tìm hiểu cách tôi có thể chọn thư mục để chạy đoạn mã này, thay vì bị cố định ở "C:\Path\" (hoặc bất kỳ thư mục nào được viết trong mã). Tôi đã tìm kiếm trực tuyến nhưng không thể tìm ra cách tích hợp Application.FileDialog(msoFileDialogFolderPicker) vào đoạn mã bên dưới.

Tôi rất cảm kích mọi sự giúp đỡ, cảm ơn!

>

Mã số:

Sub RemovePasswords()
Dim xlBook As Workbook
Dim strFilename As String
Const fPath As String = "C:\Path\" 'Thư mục cần xử lý, phải kết thúc bằng "\"
Const strPassword As String = "openpassword" (phân biệt chữ hoa chữ thường)
Const strEditPassword As String = "editpassword" 'Nếu không có mật khẩu, hãy sử dụng ""
strFilename = Dir$(fPath & "*.xls") 'sẽ mở các tệp xls và xlsx, v.v.
Trong khi Len(strFilename) <> 0
Application.DisplayAlerts = False
Set xlBook = Workbooks.Open(Filename:=fPath & strFilename, _
Mật khẩu:=strPassword, _
WriteResPassword:=strEditPassword)
xlBook.SaveAs Filename:=fPath & strFilename, _
Mật khẩu:="", _
WriteResPassword:="", _
CreateBackup:=True
xlBook.Close 0
Application.DisplayAlerts = True
strFilename = Dir$()
Wend
End Sub

Trả lời:
Chào samt82. Tôi là RN, một chuyên gia tư vấn độc lập và cũng là người dùng Microsoft giống như bạn.

Đây là một đoạn mã mẫu của trình chọn thư mục. Nó có thể giúp bạn giải quyết vấn đề của mình.

 Sub SelectFolder() Dim sFolder As String ' Open the select folder prompt With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then ' if OK is pressed sFolder = .SelectedItems(1) End If End With If sFolder <> "" Then ' if a file was chosen ' ********************* ' put your code in here ' ********************* End If End Sub