• <label id="pxtpz"><meter id="pxtpz"></meter></label>
      1. <span id="pxtpz"><optgroup id="pxtpz"></optgroup></span>

        當前位置:雨林木風下載站 > 辦公軟件教程 > 詳細頁面

        excel撤銷工作表保護密碼忘記了如何辦

        excel撤銷工作表保護密碼忘記了如何辦

        更新時間:2024-01-10 文章作者:未知 信息來源:網絡 閱讀次數:

        Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統的電腦編寫的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具,再加上成功的市場營銷,使Excel成為最流行的個人計算機數據處理軟件。

        做數據分析的人都知道,原始數據的正確性是非常重要的,常常會因為一個數據的錯誤,導致結果發生很大的偏差。

        因此在工作表中將原始數據輸入完成并校對后,為了防止誤操作或是被他人隨意復制,都會選擇將這些數據進行保護。但隨著現代生活節奏的加快,再加上使用密碼的地方太多,因此忘記密碼的事情也是常有發生。當辛辛苦苦做的一份工作表因為忘記密碼再也不能進行修改時,是不是感覺很郁悶呢?

        這時該怎么辦呢?重做一份嗎?其實不用這么麻煩,下面我就為大家分享兩種常用的清除工作表保護密碼的方法。

        利用VBA清除

        1、點擊菜單欄中的“開發工具”,選擇錄制宏,錄制一個名為“清除工作表保護密碼”的宏文件(可以根據自己的習慣命名該宏文件)。

        excel-1.jpg

        2、再次點擊菜單欄中的“開發工具”,選擇“宏”,打開宏對話框,“宏名”選擇剛剛新建的宏文件,然后點擊“編輯”,打開宏(VBA)編輯窗口。

        excel-2.jpg

        3、在宏(VBA)編輯窗口的左側依次選擇“VBAProject PERSONAL,XLSB”→“模塊”→“模塊2”后,將右側的代碼窗口中的原有內容刪除后,把以下代碼復制后粘貼在代碼窗口中保存。

        excel-3.jpg

        4、再次點擊菜單欄中的“開發工具”,選擇“宏”,打開宏對話框,“宏名”選擇剛剛新建的宏文件,然后點擊“執行”或“單步執行”,等程序運行完成后工作表保護密碼就清除了。(提示:程序運行時有點卡,如果電腦配置低就選擇單步執行,效果是一樣的)

        excel-4.jpg

        VBA代碼如下:

        Public Sub 工作表保護密碼破解()

        Const HUANHANG As String = vbNewLine & vbNewLine

        Const MINGCHEN As String = "清除工作表保護密碼"

        Const JINGGAO As String = "該工作簿中的工作表密碼保護已全部清除!!" & HUANHANG & "請記得另保存" _

        & HUANHANG & "注意:不要用在不當地方,要尊重他人的勞動成果!"

        Const TISHI1 As String = "該文件工作表中沒有加密"

        Const TISHI2 As String = "該文件工作表中沒有加密2"

        Const KSPJ As String = "解密需花費一定時間,請耐心等候!" & HUANHANG & "按確定開始清除!"

        Const FXMM1 As String = "密碼重新組合為:" & HUANHANG & "$$" & HUANHANG & _

        "如果該文件工作表有不同密碼,將搜索下一組密碼并修改清除"

        Const FXMM2 As String = "密碼重新組合為:" & HUANHANG & "$$" & HUANHANG & _

        "如果該文件工作表有不同密碼,將搜索下一組密碼并解除"

        Const MSGONLYONE As String = "確保為唯一的?"

        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 TISHI1, vbInformation, MINGCHEN

        Exit Sub

        End If

        MsgBox KSPJ, vbInformation, MINGCHEN

        If Not WinTag Then

        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(FXMM1, _

        "$$", PWord1), vbInformation, MINGCHEN

        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, MINGCHEN

        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(FXMM2, _

        "$$", PWord1), vbInformation, MINGCHEN

        '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 JINGGAO, vbInformation, MINGCHEN

        End Sub

        ?


        Excel整體界面趨于平面化,顯得清新簡潔。流暢的動畫和平滑的過渡,帶來不同以往的使用體驗。

        溫馨提示:喜歡本站的話,請收藏一下本站!

        本類教程下載

        系統下載排行

        主站蜘蛛池模板: 视频免费在线观看| 久久精品国产亚洲av瑜伽| A级毛片高清免费视频在线播放| 免费a级毛片永久免费| 亚洲av永久中文无码精品综合| 啦啦啦中文在线观看电视剧免费版| 亚洲a∨无码男人的天堂| 大学生一级特黄的免费大片视频| 456亚洲人成影院在线观| 成人午夜免费福利| 国产精品亚洲专区无码唯爱网| 国产大片91精品免费看3| 曰批全过程免费视频免费看| 在线观看亚洲精品福利片| 中文在线免费不卡视频| 亚洲国产人成在线观看69网站 | 亚洲成av人无码亚洲成av人| 免费视频中文字幕| 丁香六月婷婷精品免费观看| 国产亚洲?V无码?V男人的天堂| a级在线观看免费| 亚洲第一页在线视频| 免费无码又爽又刺激聊天APP| 老司机午夜性生免费福利| 中文字幕亚洲一区二区三区| 91香蕉国产线在线观看免费| 精品亚洲AV无码一区二区三区| 美女被免费视频网站a国产| 成人免费观看男女羞羞视频| 亚洲AV无码专区国产乱码电影 | 免费在线观看毛片| 日本在线免费播放| jlzzjlzz亚洲jzjzjz| 免费在线观看一级毛片| 精品免费tv久久久久久久| 亚洲娇小性色xxxx| 中文字幕亚洲一区二区三区| 2021久久精品免费观看| 免费人成网站永久| 亚洲狠狠狠一区二区三区| 在线观看免费精品国产|