Lỡ quên pass khi Protect sheet (Office 2013) (4 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

tueyennhi

Thành viên tích cực
Tham gia
18/10/10
Bài viết
1,192
Được thích
105
Có cách nào phá được pass không? Em đã thử với rất nhiều code trên diễn đàn mà không được. Hiện em đang dùng bản office 2013 (lưu file xls).
 
Có cách nào phá được pass không? Em đã thử với rất nhiều code trên diễn đàn mà không được. Hiện em đang dùng bản office 2013 (lưu file xls).
Diễn đàn không hỗ trợ phá pass. Nhưng bạn nhắn tin với 1 số cao thủ trên diễn đàn --> có thể có cách.
 
Bạn inbox gửi file cho mình. Nếu được mình sẽ làm luôn cho.
 
đúng rồi ko giống với pass mình đặt nhưng mở dược
1) Tôi không hiểu ra kết quả là 1 text box với pass GÌ GÌ đó lên cũng không thử tiếp theo là thế nào. Và Del luôn file cùng code.
2) Khi hiện ra text box đó rồi làm gì tiếp vậy bạn? Không lẽ nhập pass GÌ GÌ lạ hoắc đó để mở?
 
1) Tôi không hiểu ra kết quả là 1 text box với pass GÌ GÌ đó lên cũng không thử tiếp theo là thế nào. Và Del luôn file cùng code.
2) Khi hiện ra text box đó rồi làm gì tiếp vậy bạn? Không lẽ nhập pass GÌ GÌ lạ hoắc đó để mở?
thì pass nó cung cấp cho mình đó nhập vào và mở thôi.... pass đó không giống pass mình đặt...
vào trang mình chỉ bài #9 tải về sử dụng khi cần thiết Add-ins đó nó chỉ mở Pass sheet và Workbbok thôi + tìm trên GPE cái VBA nữa + cái bạn huu duy cung cấp nữa là đủ bộ...Và cố tìm thêm Cái Open nữa nha

code huu duy chi nó nhảy lên Msgbox kho coi copy cái mình úp nó hiện pass ở A1 nha
PHP:
Sub XemPass()
  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
 
Lần chỉnh sửa cuối:
To all: Chủ topic cần bỏ password mở file chứ không phải protect workbook/worksheet.
To Chủ topic: Bạn kiểm tra mail nhé. Tôi gỡ password file đó rồi nhé.
 
Web KT

Bài viết mới nhất

Back
Top Bottom