System Daquan teaches you to easily remove the Execl worksheet password

In your daily work, have you ever encountered a situation where you use Excel to create reports, tables, programs, etc., and set formulas, functions, etc. in the cell, in order to prevent others from modifying your settings or preventing you? If you inadvertently modify it, you will use Excel's worksheet protection function, but it will be easy to forget the password for a long time. Is there a way to cancel the Execl worksheet password? Tell everyone today how to unlock the Excel worksheet to protect your password!

1, we first open the Excel file forgot to protect the password; 2, click the tool on the menu bar --- macro --- record a new macro, enter the macro name such as: PeJie, in fact, remember On the line, the name can start on its own; 3, then click to stop recording, then you will get an empty macro; 4, click the tool on the menu bar - macro - macro, select PeJie, click the edit button; 5, delete all the characters in the window, replace with the following code; office2003 Lite (5 in 1) download

01.Option Explicit 02.03.Public Sub AllInternalPasswords() 04.' Breaks worksheet and workbook structure passwords Bob McCormick 05.' probably originator of base code algorithm modified for coverage 06.' of workbook structure /windows passwords and for multiple passwords 07.' 08.' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) 09. ' Modified 2003-Apr-04 by JEM: All msgs to constants, and 10.' eliminate one Exit Sub (Version 1.1.1) 11.' Reveals hashed passwords NOT original passwords 12.Const DBLSPACE As S Tring = vbNewLine & vbNewLine 13.Const AUTHORS As String = DBLSPACE & vbNewLine & _ 14."Adapted from Bob McCormick base code by" & _ 15."Norman Harker and JE McGimpsey" 16.Const HEADER As String = "AllInternalPasswords User Message" 17.Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" 18.Const REPBACK As String = DBLSPACE & "Please report failure " & _ 19."to the microsoft.public.excel.programming newsgroup." 20.Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ 21."now be free of all password protection, so Make sure you:" & _ 22.DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ 23.DBLSPACE & "BACKUP!, BACKUP!!, BACKUP !!!" & _ 24.DBLSPACE & "Also, remember that the password was " & _ 25."put there for a reason. Don't stuff up crucial formulas &qu Ot; & _ 26."or data." & & "Access and use of some data " & _ 27."may be an offense. If in doubt, don't." ; 28.Const MSGNOPWORDS1 As