excel表设置密码忘记如何打开.docxVIP

第 第 PAGE 1 页 共 NUMPAGES 1 页 excel表设置密码忘记如何打开 　　在Excel中录入过多的重要数据是人们的习惯，因此这些文件都需要利用密码进行保护。但是忘记密码了怎么办呢，下面让小编为你带来excel表设置密码忘记如何打开的解决方法。　　excel表设置密码忘记打开步骤：　　1. 打开需要破解密码的Excel　　2. 按Alt+F11进入VBA编辑界面　　3. 插入 -- 模块(Module)　　4. 在右边Module的空白编辑区域，复制粘贴下面所有内容　　5. F5，运行该VBA命令　　(下面的内容在第四步复制进去)　　Option Explicit　　Public Sub AllInternalPasswords()　　 Breaks worksheet and workbook structure passwords. Bob McCormick　　 probably originator of base code algorithm modified for coverage　　 of workbook structure / windows passwords and for multiple passwords　　　　 Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)　　 Modified 2003-Apr-04 by JEM: All msgs to constants, and　　 eliminate one Exit Sub (Version 1.1.1)　　 Reveals hashed passwords NOT original passwords　　Const DBLSPACE As String = vbNewLine vbNewLine Adapted from Bob McCormick base code by Norman Harker and JE McGimpsey　　Const HEADER As String = AllInternalPasswords User Message　　Const VERSION As String = DBLSPACE Version 1.1.1 2003-Apr-04　　Const REPBACK As String = DBLSPACE Please report failure to the gramming newsgroup.　　Const ALLCLEAR As String = DBLSPACE The workbook should now be free of all password protection, so make sure you: SAVE IT NOW! and also BACKUP!, BACKUP!!, BACKUP!!! Also, remember that the password was put there for a reason. Dont stuff up crucial formulas or data. Access and use of some data may be an offense. If in doubt, dont.　　Const MSGNOPWORDS1 As String = There were no passwords on sheets, or workbook structure or windows. VERSION　　Const MSGNOPWORDS2 As String = There was no protection to workbook structure or windows. _　　Proceeding to unprotect sheets. VERSION　　Const MSGTAKETIME As String = After pressing OK button this will take some time. Amount of time depends on how many different passwords, the passwords, and your computers specification. _　　Just be patient! Make me a coffee! VERSION　　Const MSGPWORDFOUND1 As St