Mẹo nhỏ: Cách phá pass trong excel

24 tháng 5, 2017
Bạn đặt pass cho sheet trong file excel của mình nhưng vô tình lại quên mất. Hãy làm theo các bước dưới đây. Đảm bảo bạn sẽ bất ngờ nhé

Mở file, mở sheet chứa pass sau đó tiến hành các bước:

B1: Nhấn tổ hợp phím Alt + F11 để hiển thị cửa sổ Visual Basic

B2: Sau đó copy và pate đoạn code sau vào view/ code (F7) của visual:

 

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

 

B3: Vào Run/ Run Sub/ UserForm (F5)

Rồi đợi trong giây lát để chương trình xử lý. Xong, bạn đóng cửa sổ Microsoft Visual Basic và thử nhập liệu vào file Excel bạn sẽ thấy điều kỳ diệu.

 

 


Chia sẻ