Chủ đề: gỡ password trong exel
-
10-27-2011, 11:46 PM #1
Junior 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:
- Chủ đề cần bàn " Nóng"!!!!HELP!!!!!!!
- xin bảng execl dùng cho công ty thương mại kinh doanh xe máy
- xin file mẫu tính giá thành hàng gia công nganh may mặc trên excel
- phần mềm kế toán trên Excel
- Khi copy dữ liệu bị lỗi font chữ,cách xử lý?
- phần mềm excel
- kế toán excel theo phương pháp chưng từ ghi sổ theo quyết định 48
- Các Bạn Download Nhé: Phần Mềm Kế Toán Exel
- Các pro giúp em với
- Help! xin mọi người giúp em với
-
10-28-2011, 12:17 AM #2
Junior 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
Sự bền vững của Lưới Mạnh Phát còn đến từ việc xây dựng văn hóa doanh nghiệp vững mạnh, nơi mỗi thành viên đều được tạo điều kiện phát triển và thể hiện giá trị cá nhân. Công ty thường xuyên tổ chức...
Mạnh Phát: Lưới công nghiệp đạt chuẩn quốc tế