国产成人v爽在线免播放观看,日韩欧美色,久久99国产精品久久99软件,亚洲综合色网站,国产欧美日韩中文久久,色99在线,亚洲伦理一区二区

學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel表格>

excel表格保護(hù)密碼忘記了的解決方法

時(shí)間: 業(yè)華773 分享

  在Excel中很多人都會(huì)為重要數(shù)據(jù)設(shè)下密碼,可是過(guò)了一段時(shí)間就會(huì)忘記了,這個(gè)其實(shí)有解決方法的,接下來(lái)是學(xué)習(xí)啦小編為大家?guī)?lái)的excel表格保護(hù)密碼忘記了的解決方法,希望對(duì)你有用。

  excel表格保護(hù)密碼忘記了的解決方法:

  忘記密碼解決步驟1:視圖—宏—錄制新宏—輸入宏名如:aa(aa是可隨意輸入)

  忘記密碼解決步驟2:停止錄制,這樣得到一個(gè)空宏

  忘記密碼解決步驟3:同樣視圖—宏—查看宏—選aa(aa為之前新建的宏)—點(diǎn)擊編輯按鈕

  忘記密碼解決步驟4:刪除窗口中的所有字符,復(fù)制下面的內(nèi)容粘貼。一個(gè)字母、標(biāo)點(diǎn)符號(hào)都不能少。

  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

  Const AUTHORS As String = DBLSPACE & 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 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. Don't stuff up crucial formulas " & _

  "or data." & DBLSPACE & "Access and use of some data " & _

  "may be an offense. If in doubt, don't."

  Const MSGNOPWORDS1 As String = "There were no passwords on " & _

  "sheets, or workbook structure or windows." & AUTHORS & VERSION

  Const MSGNOPWORDS2 As String = "There was no protection to " & _

  "workbook structure or windows." & DBLSPACE & _

  "Proceeding to unprotect sheets." & AUTHORS & VERSION

  Const 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 computer's specification." & DBLSPACE & _

  "Just be patient! Make me a coffee!" & AUTHORS & VERSION

  Const 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 & VERSION

  Const 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 & VERSION

  Const MSGONLYONE As String = "Only structure / windows " & _

  "protected with the password that was just found." & _

  ALLCLEAR & AUTHORS & VERSION & 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

  For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

  For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

  With ActiveWorkbook

  .Unprotect Chr(i) & Chr(j) & Chr(k) & _

  Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

  Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

  If .ProtectStructure = False And _

  .ProtectWindows = False Then

  PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

  Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

  Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

  MsgBox Application.Substitute(MSGPWORDFOUND1, _

  "$$", PWord1), vbInformation, HEADER

  Exit Do 'Bypass all for...nexts

  End If

  End With

  Next: Next: Next: Next: Next: Next

  Next: Next: Next: Next: Next: Next

  Loop Until True

  On Error GoTo 0

  End If

  If WinTag And Not ShTag Then

  MsgBox MSGONLYONE, vbInformation, HEADER

  Exit Sub

  End If

  On Error Resume Next

  For Each w1 In Worksheets

  'Attempt clearance with PWord1

  w1.Unprotect PWord1

  Next w1

  On Error GoTo 0

  ShTag = False

  For Each w1 In Worksheets

  'Checks for all clear ShTag triggered to 1 if not.

  ShTag = ShTag Or w1.ProtectContents

  Next w1

  If ShTag Then

  For Each w1 In Worksheets

  With w1

  If .ProtectContents Then

  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

  For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

  For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

  .Unprotect Chr(i) & Chr(j) & Chr(k) & _

  Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

  Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

  If Not .ProtectContents Then

  PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

  Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

  Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

  MsgBox Application.Substitute(MSGPWORDFOUND2, _

  "$$", PWord1), vbInformation, HEADER

  'leverage finding Pword by trying on other sheets

  For Each w2 In Worksheets

  w2.Unprotect PWord1

  Next w2

  Exit Do 'Bypass all for...nexts

  End If

  Next: Next: Next: Next: Next: Next

  Next: Next: Next: Next: Next: Next

  Loop Until True

  On Error GoTo 0

  End If

  End With

  Next w1

  End If

  MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

  End Sub

  忘記密碼解決步驟5:關(guān)閉編輯窗口

  忘記密碼解決步驟6:視圖—宏—查看宏,選AllInternalPasswords,點(diǎn)擊執(zhí)行,確定兩次,等2分鐘,再確定。密碼撤銷完畢。

excel表格保護(hù)密碼忘記了的解決方法

在Excel中很多人都會(huì)為重要數(shù)據(jù)設(shè)下密碼,可是過(guò)了一段時(shí)間就會(huì)忘記了,這個(gè)其實(shí)有解決方法的,接下來(lái)是學(xué)習(xí)啦小編為大家?guī)?lái)的excel表格保護(hù)密碼忘記了的解決方法,希望對(duì)你有用。 excel表格保護(hù)密碼忘記了的解決方法: 忘記密碼解決步
推薦度:
點(diǎn)擊下載文檔文檔為doc格式

精選文章

  • excel破解表格保護(hù)密碼的方法
    excel破解表格保護(hù)密碼的方法

    在Excel中經(jīng)常錄入重要數(shù)據(jù)的朋友都知道,如果想要數(shù)據(jù)不被篡改只能為表格添加密碼保護(hù),但有時(shí)候卻忘記了密碼,這個(gè)時(shí)候就需要用到破解密碼的方法

  • excel設(shè)置保護(hù)表格密碼的教程
    excel設(shè)置保護(hù)表格密碼的教程

    在Excel中很多人都會(huì)習(xí)慣性的把重要數(shù)據(jù)錄入到Excel里,如果想要數(shù)據(jù)不被篡改就需要設(shè)置密碼保護(hù)了,下面是由學(xué)習(xí)啦小編分享的excel設(shè)置保護(hù)表格密碼的

  • excel解除表格保護(hù)的方法步驟
    excel解除表格保護(hù)的方法步驟

    在Excel中錄入太多的重要數(shù)據(jù),這個(gè)時(shí)候就需要用到密碼保護(hù)的方法進(jìn)行保護(hù),或許很多人都會(huì)設(shè)置密碼保護(hù),但有些朋友不會(huì)解除表格保護(hù),下面是由學(xué)

  • excel如何保護(hù)表格中單元格的教程
    excel如何保護(hù)表格中單元格的教程

    在Excel中經(jīng)常輸入了一些重要的數(shù)據(jù),這些數(shù)據(jù)都是不能讓人隨意篡改的,這個(gè)時(shí)候就需要為單元格設(shè)置保護(hù)了。接下來(lái)是學(xué)習(xí)啦小編為大家?guī)?lái)的excel如何

651493