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

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

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

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

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

        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整體界面趨于平面化,顯得清新簡潔。流暢的動畫和平滑的過渡,帶來不同以往的使用體驗。

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

        本類教程下載

        系統下載排行

        主站蜘蛛池模板: 72pao国产成视频永久免费| 亚洲fuli在线观看| 日韩免费在线中文字幕| 日本特黄a级高清免费大片| 亚洲日韩国产欧美一区二区三区 | 亚洲国产精品人人做人人爱| 中文字幕精品三区无码亚洲| 日韩欧美一区二区三区免费观看 | 日韩国产免费一区二区三区| 免费精品一区二区三区第35| 伊人久久大香线蕉亚洲五月天| 国产精品免费在线播放| 国产亚洲精品无码专区| a毛片免费全部播放完整成| 亚洲不卡av不卡一区二区| 无码少妇精品一区二区免费动态| 久久亚洲春色中文字幕久久久| 最近2019中文字幕免费直播| 亚洲国产高清美女在线观看 | gogo全球高清大胆亚洲| 色老头综合免费视频| 亚洲人色婷婷成人网站在线观看| 免费福利电影在线观看| 亚洲国产美女精品久久久久| 成人免费看片又大又黄| 免费大片黄在线观看| 精品亚洲综合久久中文字幕| 青娱分类视频精品免费2| 色婷婷六月亚洲综合香蕉| 国产性爱在线观看亚洲黄色一级片| 成人免费区一区二区三区| 亚洲第一精品电影网| 日本a级片免费看| 久久国产美女免费观看精品| 亚洲色av性色在线观无码| 大学生高清一级毛片免费 | 99视频免费在线观看| 亚洲成人福利在线| 国产成人啪精品视频免费网| 野花香高清视频在线观看免费| 亚洲一区二区三区在线观看蜜桃|