Navigate to the worksheet you want to unprotect. Range('a1').FormulaR1C1 = Chr(i) & Chr(j) & _Ĭlose the VB Editor window. 'Author unknown but submitted by brettdj of Dim i As Integer, j As Integer, k As Integer Hit Insert-Module and paste this code into the right-hand code window: Hit Alt+F11 to view the Visual Basic Editor. Open the workbook that has the protected sheet in it. However, it may not give you the original password that was used. This routine provides a password to unprotect your worksheet. Now Click on the Run Button or press F5:' In the visual basic Enter the below Code. 'Press ALT + F11 or click on View Code in Developers Tabs Yes this code works in 20 excel as I have tested it. MsgBox 'One usable password is ' & Chr(i) & Chr(j) & _Ĭhr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Ĭhr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)Īnyone got a screenshot of where this code goes? If ActiveSheet.ProtectContents = False Then Put this code into Visual Basic under the spreadsheet form and run this code! Instant unlockĭim i As Integer, j As Integer, k As Integerĭim l As Integer, m As Integer, n As Integerĭim i1 As Integer, i2 As Integer, i3 As Integerĭim i4 As Integer, i5 As Integer, i6 As Integerįor i = 65 To 66: For j = 65 To 66: For k = 65 To 66įor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66įor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66įor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ĪctiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _Ĭhr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Visual basic for excel 2010 book