日常工作中,您是否遇到過這樣的情況:您用Excel編制的報表、表格、程序等,在單元格中設置了公式、函數等,為了防止其他人修改您的設置或者防止您自己無意中修改,就會使用Excel的工作表保護功能,但時間久了保護密碼容易忘記,有辦法解除Execl工作表密碼嗎?今天告訴大家如何解除Excel工作表保護密碼!
1、我們首先打開忘記了保護密碼的Excel文件;
2、依次點擊菜單欄上的工具---宏----錄制新宏,輸入宏名字如:PeJie,其實好記就行,名字可以自己起了;
3、然後點擊停止錄制,這時就會得到一個空宏;
4、依次點擊菜單欄上的工具---宏----宏,選PeJie,點編輯按鈕;
5、刪除窗口中的所有字符,用下面的代碼替換;office2003精簡版(五合一)下載
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 String = 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 " & _
26."or data." & DBLSPACE & "Access and use of some data " & _
27."may be an offense. If in doubt, don't."
28.Const MSGNOPWORDS1 As