Cách phát mật khẩu unprotect sheet trong excel
Thông thường, để bảo vệ việc thay đổi dữ liệu dẫn tới sai sót không đáng có, thì phương án khoá mật khẩu cho sheet là lựa chọn tuyệt vời. Tuy nhiên sẽ thế nào nếu một ngày đẹp trời nào đó bạn quên mật khẩu? Hoặc bạn lấy một file excel nào đó trên mạng và cần thay đổi những phần nội dung đã bị khoá? Hoặc một số trường hợp virus tự động khoá sheet bằng một mật khẩu ngẫu nhiên nào đó
- Clt+F11 để mở VBA
- F5 mà nó yêu cầu lựa chọn Macroname thì chọn SheetXXX.unprotectedAll rồi click Run nó sẽ chạy
Sub
unprotectedAll()Dim i As IntegerFor i = 1 To Application.Sheets.CountPasswordBreaker Application.Sheets(i)Next
End
Sub
Sub
PasswordBreaker(MySheet)Dim pass As StringIf MySheet.ProtectContents = False ThenMsgBox "Sheet '" amp; MySheet.Name amp; "' is unprotected!", vbInformationElseDim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126pass = Chr(i) amp; Chr(j) amp; Chr(k) amp; _Chr(l) amp; Chr(m) amp; Chr(i1) amp; Chr(i2) amp; Chr(i3) amp; _Chr(i4) amp; Chr(i5) amp; Chr(i6) amp; Chr(n)MySheet.Unprotect passNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextIf MySheet.ProtectContents = False ThenMsgBox "Sheet '" amp; MySheet.Name amp; "' is unprotected!", vbInformationEnd IfEnd If
End
Sub
Sản phẩm nổi bật.
Máy bộ đàm cầm tay SFE ST50
990.0001.650.000
