Chủ đề: gỡ password trong exel
-
10-27-2011, 11:46 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
gỡ password trong exel
bạn nào biết mở password mở dùm mình file này nha. Mình cảm ơn lắm lắm .
View more random threads:
- File excel quản lý hàng tồn kho trong DN sản xuất, tính giá theo pp BQGQ
- gởi bảng chấm công
- phần mềm Ecxel nào quản lý được Công nợ khách hàng và quản lý xuất nhập tồn
- Bảng chấm công + tiền lương
- Hàm Excel tính tuổi nợ, số dư bình quân
- cách sử dụng file excel
- Mẫu khấu hao tài sản cố định
- Cách tạo combo box
- NHỜ CÁC BÁC GIÚP EM TÍNH CÁI NÀY CÁI Ạ
- giúp em với
-
10-28-2011, 12:17 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: gỡ password trong exel
Bạn vào tools=>macro=>Visual Basic..=>chép đoạn code sau vô chạy nhé
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 michael1112 to unprotect it?", _
vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
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)
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
End If
End Sub
Đang gặp khó khăn trong việc nâng cao trình độ học vấn? Không có đủ thời gian để tham gia vào hình thức đào tạo truyền thống do công việc và gia đình? Học đại học từ xa có thể là lựa chọn phù hợp cho...
Học đại học từ xa: Mở cánh cửa cho bằng cử nhân