[Funland] Cần mở khóa file word 2010 (open file)

[leo86vn]

Bẩm các cụ các mợ!
Chẳng là em có một file word 2010 khá quan trọng mà em bị mất pass.
Em đã thử mấy phần mềm unlock mà có vẻ không khả quan.
Cụ/mợ nào có kinh nghiệm vụ này or biết dịch vụ unlock nào giá hạt rẻ ko ạ?
Thanks cccm ạ!

 

[Dung TOYOTA]

Tiếng anh cơ bản, tin học văn phòg thành thạo
E cũng thế. Nhưg ca này e mời cụ sau

 

[Hà Duy Phương]

Anh Microsoft làm ăn tốt đấy. Để ai cũng mở được thì làm cái khóa làm gì.

 

[leo86vn]

Anh Microsoft làm ăn tốt đấy. Để ai cũng mở được thì làm cái khóa làm gì.

Vâng, nên e mới thỉnh cao nhân

 

[haidongtay]

Bẩm các cụ các mợ!
Chẳng là em có một file word 2010 khá quan trọng mà em bị mất pass.
Em đã thử mấy phần mềm unlock mà có vẻ không khả quan.
Cụ/mợ nào có kinh nghiệm vụ này or biết dịch vụ unlock nào giá hạt rẻ ko ạ?
Thanks cccm ạ!

Cụ chịu khó tra google xem,trước em từng phá file exel bằng phần mềm rồi,nó không phá file gốc mà chuyển thành 1 file giống hệt như vậy nhưng không có pass,còn file gốc vẫn giữ nguyên.Lâu rồi em cũng quên mất.

 

[leo86vn]

Cụ chịu khó tra google xem,trước em từng phá file exel bằng phần mềm rồi,nó không phá file gốc mà chuyển thành 1 file giống hệt như vậy nhưng không có pass,còn file gốc vẫn giữ nguyên.Lâu rồi em cũng quên mất.

Vâng, cái đó là word2003. 2010 thì phải dò

 

[haidongtay]

Vâng, cái đó là word2003. 2010 thì phải dò

Dò nhanh mà cụ,thực ra em nghĩ nó như macro trong exel thôi,word không khó lắm đâu

 

[Xe vài bánh]

Pass word không phá được, chỉ dò thôi. Pass mà khó và dài thì phần mềm mạnh dò chỉ vài trăm năm là ra thôi!

 

[ChonNhaMoi.vn]

Cụ thử làm theo cách sau:
1. Mở file, khi hiện cửa sổ đòi mật khẩu thì ấn Alt + F11 để mở cửa sổ VBA.
2. Trong cửa sổ VBA chọn Insert > Module.
3. Copy đoạn mã sau Paste vào cửa sổ soạn thảo Module

Sub PasswordBreaker()

'Breaks worksheet password protection.

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

4. Nhấn F5. Nếu OK, một thông báo hiện ra, thông báo mật khẩu của tài liệu.
Chúc cụ may mắn!

 

[vuitinhhn]

Cụ inbox file xem, cháu thử cho

 

[Rửa xe 247]

2010 thì khó rồi cụ ạ.

 

[leo86vn]

Cụ thử làm theo cách sau:
1. Mở file, khi hiện cửa sổ đòi mật khẩu thì ấn Alt + F11 để mở cửa sổ VBA.
2. Trong cửa sổ VBA chọn Insert > Module.
3. Copy đoạn mã sau Paste vào cửa sổ soạn thảo Module

4. Nhấn F5. Nếu OK, một thông báo hiện ra, thông báo mật khẩu của tài liệu.
Chúc cụ may mắn!

Thanks cụ! Để mốt đi công tác về thử ạ. Mời cụ chén rượu nhạt!

 

[leo86vn]

Cụ inbox file xem, cháu thử cho

Thanks cụ!
Em xin phép inbox cho cụ thử giúp nhé!