Screenupdating false

" & vb New Line & vb New Line & _ Credit Msg Box Mess, vb Information, Header If Not Win Tag Then Mess = "There was no protection to workbook structure " & _ "or windows." & vb New Line & _ "Proceeding to unprotect sheets." & _ Credit Msg Box Mess, vb Information, Header Else On Error Resume Next Do 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 With Active Workbook .

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 . Protect Windows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Mess = "You had a Worksheet Structure or " & vb New Line & _ Credit Msg Box Mess, vb Information, Header Exit Do End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error Go To 0 End If If Win Tag And Not Sh Tag Then Mess = "Only structure / windows protected with " & vb New Line & _ "the password that was just found." & vb New Line & _ All Clear & Credit & Rep Back Msg Box Mess, vb Information, Header Exit Sub End If On Error Resume Next For Each w1 In Worksheets w1.

screenupdating false-4screenupdating false-66

In the Values area, you can see the total sales for the first few order dates.

Public Sub Excel Password Remover() Dim Mess As String, Header As String Dim Credit As String Dim Rep Back As String, All Clear As String Dim PWord1 As String Dim Sh Tag As Boolean, Win Tag As Boolean Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Application.

Screen Updating = False Header = "Excel Password Remover Alert" Credit = vb New Line & vb New Line & "Learn Excel with:- EXCELBEE.

Follow the instructions and your password will be removed in few seconds.

Please remember that data is protected with password for a reason.

Leave a Reply