Liệu có thể gỡ Pass cho nhiều file Word (nếu đã biết trước Pass)

[nguyenmanhnam]

Em xin hỏi các file Word do chính bản thân em tạo ra (có cùng Pass), đến bây giờ em muốn gỡ bỏ cho từng file nhưng nếu làm thủ công sẽ rất lâu. Xin chỉ giúp em có cách nào viết Code để gỡ bỏ Pass trong trường hợp này không?

Xin cảm ơn.

 

[vanle33]

Em xin hỏi các file Word do chính bản thân em tạo ra (có cùng Pass), đến bây giờ em muốn gỡ bỏ cho từng file nhưng nếu làm thủ công sẽ rất lâu. Xin chỉ giúp em có cách nào viết Code để gỡ bỏ Pass trong trường hợp này không?

Xin cảm ơn.

Bạn đã thử search phần mềm gỡ pass của word trên Google chưa?

 

[nguyenmanhnam]

Bạn đã thử search phần mềm gỡ pass của word trên Google chưa?

Em tìm từ sáng chưa thấy, bác biết tên phần mềm gì giới thiệu cho em xin.

 

[vanle33]

Em tìm từ sáng chưa thấy, bác biết tên phần mềm gì giới thiệu cho em xin.

Ví dụ ở đây https://www.google.com.vn/#output=search&sclient=psy-ab&q=ph%E1%BA%A7n%20m%E1%BB%81m%20g%E1%BB%A1%20pass%20file%20word&oq=&gs_l=&pbx=1&bav=on.2,or.r_qf.&bvm=bv.45960087,d.aGc&fp=ad647ce9dde12e32&biw=1241&bih=584&pf=p&pdl=300
hiii

 

[sealand]

Đây là Code xoá Pass của 1 file, Nam phát triển để lấy danh sách File và Pass tương ứng (Có thể soạn trên 1 Sheet nào đó) để dùng vòng lặp xoá tất cả. Vì ta là GPE nên Code này viết trên Module của 1 file Excel nha

Sub RemovePassDoc()
Dim MyApp As Object, MyDoc As Object
Dim FName As String, MPass As String
FName = "D:\Documents\Doc1.doc"
MPass = "456"
    Set MyApp = CreateObject("Word.Application")
    'MyApp.Visible = True
    Set MyDoc = MyApp.Documents.Open(FName, , , , MPass)
    With MyDoc
        .Password = ""
        .SaveAs (FName)
        .Close
    End With
    MyApp.Quit
    Set MyDoc = Nothing: Set MyApp = Nothing
End Sub