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.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).
Hộ mình nữa nhé. cảm ơn bạnBạn inbox gửi file cho mình. Nếu được mình sẽ làm luôn cho.
Bạn copy code trên trang này dan vào rồi chay code nheCó 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).
Không được đâu bạn. Tìm ra pass trời ơi đất hỡi ở đâu không liên quan 1 tý tẹo tèo teo nào pass mà tôi thử đặt.Bạn copy code trên trang này dan vào rồi chay code nhe
https://uknowit.uwgb.edu/page.php?id=28850
đúng rồi ko giống với pass mình đặt nhưng mở dượcKhông được đâu bạn. Tìm ra pass trời ơi đất hỡi ở đâu không liên quan 1 tý tẹo tèo teo nào pass mà tôi thử đặt.
Trang này mới hay nèBạn copy code trên trang này dan vào rồi chay code nhe
https://uknowit.uwgb.edu/page.php?id=28850
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.đúng rồi ko giống với pass mình đặt nhưng mở dược
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...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ở?
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
xem bài nàyCó 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).