Windows XP Windows 7 Windows 2003 Windows Vista Windows教程綜合 Linux 系統教程
Windows 10 Windows 8 Windows 2008 Windows NT Windows Server 電腦軟件教程
 Windows教程網 >> 電腦軟件教程 >> 關於電腦軟件教程 >> 系統大全教你輕松解除Execl工作表密碼

系統大全教你輕松解除Execl工作表密碼

日期:2017/2/10 15:50:47      編輯:關於電腦軟件教程

日常工作中,您是否遇到過這樣的情況:您用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

Copyright © Windows教程網 All Rights Reserved