Unprotect All sheet in Excel

Khi dùng excel bạn bảo vệ sheet (Protect sheet) nhưng chẳng may quên mật khẩu bài viết này giúp bạn gỡ bỏ mật khẩu bảo vệ sheet (unprotect sheet) trong trường hợp này. Cách làm: - Mở trình soạn thảo VBA bằng cách vào Tab Developer > Visual Basic - Trong trình soạn thảo VBA vào Insert > Module - Paste đoạn code vba vào Module vừa tạo rồi bấn F5 trên bàn phím để thực thi đoạn code vba:


Sub unprotectedAll()
    Dim i As Integer
    For i = 1 To Application.Sheets.Count
        PasswordBreaker Application.Sheets(i)
    Next
End Sub
Sub PasswordBreaker(MySheet)
    Dim pass As String
          If MySheet.ProtectContents = True Then
                    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
                    MsgBox "One usable password is " & 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 If
End Sub

Chúc bạn thành công!

Unprotect All sheet in Excel

No comments :

Post a Comment