Gỡ bỏ mật khẩu file excel

[van_utc]

Em sưu tầm được 1 file excel rất cần thiết cho việc học tập của em. Tuy nhiên có những thông tin muốn sửa mà file cài mật khẩu. Vậy có cách nào tìm được mật khẩu không ạ? Em cảm ơn!

 

[ngoctamtrang]

Sao bạn không tìm các PM remove Pass đó

 

[van_utc]

Chị có thể cho em biết tên một số phần mềm đó được không ạ?

 

[Trojan]

Bạn dùng Excelutilities thử xem nó có chức năng break password đó.

 

[anhtruong397]

Chị có thể cho em biết tên một số phần mềm đó được không ạ?

bạn có thể tải chương trình excel cracker để sử dụng

 

[Po_Pikachu]

Nghe thấy có 1 file rất cần thiết cho việc học tập hả? Có thể gửi lên diễn đàn cho em được không? Thanks.

 

[lamho27]

Để giải quyết sự cố này, có một giải pháp rất hiệu quả mà cách thực hiện lại đơn giản. Trước tiên, bạn mở tập tin Excel cần sửa, chọn menu Tools > Macro > Visual Basic Editor và nhấp đúp vào Sheet đã tạo mật khẩu bảo vệ. Tiếp theo, bạn nhập đoạn mã sau vào và nhấn menu Run > Run Sub/UserForm để chạy. Bạn chờ một lúc, sau khi hoàn tất bạn trở lại bảng tính Excel và bây giờ thì bạn có thể chỉnh sửa dữ liệu được rồi!
Sub PasswordBreaker()

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

ActiveWorkbook.Sheets(1).Select
Range(“a1”).FormulaR1C1 = 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

 

[Po_Pikachu]

Code của bạn chạy rất tốt! Nhưng phần hiện dữ liệu ra thì mình có thể viết như vầy cho nó ngắn hơn 1 chút. If ActiveSheet.ProtectContents = False Then Sheets(1).Range("A1").Value = Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Cảm ơn bạn nhiều nha!

 

[trangvt2012]

mình cảm ơn bạn nhiều nhé. mình đau khổ mấy tháng nay rồi. mỗi lần có sửa đổi lại khổ sở vô cùng.

 

[Kiều Mạnh]

hiện tại em có 1 file excel trót đặt mật khẩu khi mở file mà quên mất, anh chị có cách nào gỡ bỏ nó đi không ah ?

Ban có thể tìm trên Google ấy còn GPE ko hổ trợ việc này cho bạn đâu làm như vậy là PHẠM QUY