为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

EXCEL工作表保护密码忘记了,如何撤消工作表保护道

2017-10-16 4页 doc 20KB 683阅读

用户头像

is_215732

暂无简介

举报
EXCEL工作表保护密码忘记了,如何撤消工作表保护道EXCEL工作表保护密码忘记了,如何撤消工作表保护道 EXCEL 工作表保护密码忘记了,如何撤消工作表保护,按下面步骤操作,1打开文 件2工具---宏----录制新宏---输入名字如:aa3停止录制这样得到一个空宏4工具---宏 ----宏选 aa点编辑按钮5删除窗口中的所有字符只有几个替换为下面的内容:你复制 吧Option ExplicitPublic Sub AllInternalPasswords Breaks worksheet and workbook structure passwords. Bob McCor...
EXCEL工作表保护密码忘记了,如何撤消工作表保护道
EXCEL工作保护密码忘记了,如何撤消工作表保护道 EXCEL 工作表保护密码忘记了,如何撤消工作表保护,按下面步骤操作,1打开文 件2工具---宏----录制新宏---输入名字如:aa3停止录制这样得到一个空宏4工具---宏 ----宏选 aa点编辑按钮5删除窗口中的所有字符只有几个替换为下面的内容:你复制 吧Option ExplicitPublic 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 passwordsConst DBLSPACE As String vbNewLine vbNewLineConst AUTHORS As String DBLSPACE vbNewLine _Adapted from Bob McCormick base code by _Norman Harker and JE McGimpseyConst HEADER As String AllInternalPasswords User MessageConst VERSION As String DBLSPACE Version 1.1.1 2003-Apr-04Const REPBACK As String DBLSPACE Please report failure _to the microsoft.public.excel.programming newsgroup.Const ALLCLEAR As String DBLSPACE The workbook should _now be free of all password protection so make sure you: _DBLSPACE SAVE IT NOW DBLSPACE and also _DBLSPACE BACKUP BACKUP BACKUP _DBLSPACE Also remember that the password was _put there for a reason. Dont stuff up crucial formulas _or data. DBLSPACE 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. AUTHORS VERSIONConst MSGNOPWORDS2 As String There was no protection to _workbook structure or windows. DBLSPACE _Proceeding to unprotect sheets. AUTHORS VERSIONConst MSGTAKETIME As String After pressing OK button this _will take some time. DBLSPACE Amount of time _depends on how many different passwords the _passwords and your computers specification. DBLSPACE _Just be patient Make me a coffee AUTHORS VERSIONConst MSGPWORDFOUND1 As String You had a Worksheet _Structure or Windows Password set. DBLSPACE _The password found was: DBLSPACE DBLSPACE _Note it down for potential future use in other workbooks by _the same person who set this password. DBLSPACE _Now to check and clear other passwords. AUTHORS VERSIONConst MSGPWORDFOUND2 As String You had a Worksheet _password set. DBLSPACE The password found was: _DBLSPACE DBLSPACE Note it down for potential _future use in other workbooks by same person who _set this password. DBLSPACE Now to check and clear _other passwords. AUTHORS VERSIONConst MSGONLYONE As String Only structure / windows _protected with the password that was just found. _ALLCLEAR AUTHORS VERSION REPBACKDim w1 As Worksheet w2 As WorksheetDim i As Integer j As Integer k As Integer l As IntegerDim m As Integer n As Integer i1 As Integer i2 As IntegerDim i3 As Integer i4 As Integer i5 As Integer i6 As IntegerDim PWord1 As StringDim ShTag As Boolean WinTag As BooleanApplication.ScreenUpdating FalseWith ActiveWorkbookWinTag .ProtectStructure Or .ProtectWindowsEnd WithShTag FalseFor Each w1 In WorksheetsShTag ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1 vbInformation HEADERExit SubEnd IfMsgBox MSGTAKETIME vbInformation HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2 vbInformation HEADERElseOn Error Resume NextDo dummy do loopFor i 65 To 66: For j 65 To 66: For k 65 To 66For l 65 To 66: For m 65 To 66: For i1 65 To 66For i2 65 To 66: For i3 65 To 66: For i4 65 To 66For i5 65 To 66: For i6 65 To 66: For n 32 To 126With ActiveWorkbook.Unprotect Chri Chrj Chrk _Chrl Chrm Chri1 Chri2 _Chri3 Chri4 Chri5 Chri6 ChrnIf .ProtectStructure False And _.ProtectWindows False ThenPWord1 Chri Chrj Chrk Chrl _Chrm Chri1 Chri2 Chri3 _Chri4 Chri5 Chri6 ChrnMsgBox Application.SubstituteMSGPWORDFOUND1 _ PWord1 vbInformation HEADERExit Do Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE vbInformation HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In WorksheetsAttempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag FalseFor Each w1 In WorksheetsChecks for all clear ShTag triggered to 1 if not.ShTag ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo Dummy do loopFor i 65 To 66: For j 65 To 66: For k 65 To 66For l 65 To 66: For m 65 To 66: For i1 65 To 66For i2 65 To 66: For i3 65 To 66: For i4 65 To 66For i5 65 To 66: For i6 65 To 66: For n 32 To 126.Unprotect Chri Chrj Chrk _Chrl Chrm Chri1 Chri2 Chri3 _Chri4 Chri5 Chri6 ChrnIf Not .ProtectContents ThenPWord1 Chri Chrj Chrk Chrl _Chrm Chri1 Chri2 Chri3 _Chri4 Chri5 Chri6 ChrnMsgBox Application.SubstituteMSGPWORDFOUND2 _ PWord1 vbInformation HEADERleverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR AUTHORS VERSION REPBACK vbInformationHEADEREnd Sub6关闭编辑窗口7工具---宏-----宏选 AllInternalPasswords运行确定两次等 2 分钟再确定.OK没有密码了
/
本文档为【EXCEL工作表保护密码忘记了,如何撤消工作表保护道】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索