• 0 Votes - 0 Average
  • 5
  • 4
  • 3
  • 2
  • 1
Chế độ chủ đề

Hướng dẫn Cách phá Password Excel không cần phần mềm
ngocvu1403 Offline
Phó giám đốc
******
Administrators

Bài viết: 1,186
Chủ đề: 877
Tham gia: May 2011
Danh tiếng: 4
Cách phá Password Excel không cần phần mềm, phá pass sheet excel, phần mềm phá pass excel hiệu quả, phá mật khẩu excel


Cách làm trong Excel 2007/2010 như sau: bấm Alt + F11 để hiện ra bảng Visual Basic Editor rồi sau đó thực hiện theo bước 3 như phía dưới.

Cách làm trong Excel 2003 như sau:

1. Mở file Excel có chứa các Sheet có pass
2 Chọn menu Tools -> Macro -> Visual Basic Editor
3 Nhấp đúp vào Sheet mà bạn muốn phá pass
Nếu bạn chưa thấy các Sheet bên phía trái của màn hình thì bấm: Ctrl + R để hiện các Sheet.
( Nhiều máy khi bấm Alt + F11 thì không thấy cửa sổ bên trái hiện các Sheet )
4. Copy đoạn mã sau vào và nhấn menu Run -> Run Sub/UserForm (hoặc nhấn F5)





5. Máy hỏi bạn có muốn xử lý nó không ? Nếu muốn bấm YES





6. Bạn chờ một lúc máy sẽ phá Pass cho bạn. Và có thông báo sau khi phá Pass thành công.




PHP Code:
Sub PasswordBreaker()
If 
ActiveSheet.ProtectContents False Then
    MsgBox 
"Sheet '" ActiveSheet.Name "' is unprotected!"vbInformation
Else
 
   If MsgBox("Sheet '" ActiveSheet.Name "' is protected, do you want to unprotect it?"_
    vbYesNo 
vbQuestion"Unprotect Active Sheet") = vbNo Then Exit Sub
    Dim i 
As IntegerAs IntegerAs Integer
    Dim l 
As IntegerAs IntegerAs Integer
    Dim i1 
As Integeri2 As Integeri3 As Integer
    Dim i4 
As Integeri5 As Integeri6 As Integer
    On Error Resume Next
    For i 
65 To 66: For 65 To 66: For 65 To 66
    For l 
65 To 66: For 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 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)
 
   NextNextNextNextNextNext
    Next
NextNextNextNextNext
    If ActiveSheet
.ProtectContents False Then MsgBox "Sheet '" ActiveSheet.Name "' is unprotected!"vbInformation
End 
If
End Sub 


Có thể liên quan đến chủ đề...
Đặt mật khẩu, password cho file Excel
Download phần mềm SQL Server 2008 Express
Cách tạo USB boot cực nhanh!
Cách vào Facebook bằng file hosts tháng 7 năm 2012
Cách vào Facebook bằng file hosts tháng 12 năm 2013
Cách dùng Photoshop để resize nhiều hình cùng 1 lúc
Hướng dẫn cách vẽ chibi đơn giản từ ảnh thật bằng phần mềm Photoshop
Kiếm tiền bằng cách like Facebook, Twitter
Cách đơn giản để chuyển PowerPoint sang Word
3 cách tải nguyên album ảnh trên Facebook

Hãy nhấn
Like - Share Nếu Bài Viết Có Ích







Những người đang xem chủ đề này: 1 khách

Color Skins

Change Color:

Background Patterns:

Background Images:

Background Header:

Setting Panel

Main Options: