excel表设置密码忘记如何打开
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 l.programming 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 String = You had a Worksheet  Structure or Windows Password set.  _
  The password found was:  $$  _
  Note it down for potential future use in other workbooks by  the same person who set this password.  _
语文教研组计划
  Now to check and clear other passwords.  VERSION
  Const MSGPWORDFOUND2 As String = You had a Worksheet  password set.  The pas
sword found was:  $$  Note it down for potential  future use in other workbooks by same person who  set this password.  Now to check and clear  other passwords.  VERSION
  Const MSGONLYONE As String = Only structure / windows  protected with the password that was just found.  AUTHORS  REPBACK
  Dim w1 As Worksheet, w2 As Worksheet
  Dim i As Integer, j As Integer, k As Integer, l As Integer
  Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
  Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
  Dim PWord1 As String
  Dim ShTag As Boolean, WinTag As Boolean
  Application.ScreenUpdating = False
  With ActiveWorkbook
学校卫生工作制度  WinTag = .ProtectStructure Or .ProtectWindows
  End With
  ShTag = False
俯卧撑的正确做法  For Each w1 In Worksheets
  ShTag = ShTag Or w1.ProtectContents
  Next w1
  If Not ShTag And Not WinTag Then
  MsgBox MSGNOPWORDS1, vbInformation, HEADER
  Exit Sub
  End If
  MsgBox MSGTAKETIME, vbInformation, HEADER
  If Not WinTag Then
  MsgBox MSGNOPWORDS2, vbInformation, HEADER
硬盘序列号查询  Else
  On Error Resume Next
  Do dummy do loop
  For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。