国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

Excel密碼保護的解除方法

2019-10-25 20:31:02
字體:
來源:轉載
供稿:網友

  Excel彈出“您試圖更改的單元格或圖表受保護,因而是只讀的。若要修改受保護單元格或圖表,請先使用‘撤消工作表保護’命令(在‘審閱’選項卡的‘更改’組中)來取消保護。可能會提示您輸入密碼。”窗口,如圖1。

Excel,密碼保護,解除,方法

  出現這種情況,應該怎么解決呢?經過研究,找到了兩種破解Excel工作表保護碼的方法。

  一、VBA宏代碼破解法:

  第一步:打開該文件,先解除默認的“宏禁用”狀態,方法是點擊工具欄下的“選項”狀態按鈕,打開“Microsoft office安全選項”窗口,選擇其中的“啟用此內容”,“確定”退出(圖2);

Excel,密碼保護,解除,方法

 再切換到“視圖”選項卡,點擊“宏”→“錄制宏”,出現“錄制新宏”窗口,在“宏名”定義一個名稱為:PasswordBreaker(圖3),點擊“確定”退出;

Excel,密碼保護,解除,方法

  第二步:再點擊“宏”→“查看宏”,選擇“宏名”下的“PasswordBreaker”并點擊“編輯”,打開“Microsoft Visual Basic”編輯器,用如下內容替換右側窗口中的所有代碼:

  Sub PasswordBreaker()

  Dim i As Integer, j As Integer, k As Integer

  Dim l As Integer, m As Integer, n As Integer

  Dim i1 As Integer, i2 As Integer, i3 As Integer

  Dim i4 As Integer, i5 As Integer, i6 As Integer

  On Error Resume Next

  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

  ActiveSheet.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 ActiveSheet.ProtectContents = False Then

  MsgBox "One usable password is " & Chr(i) & Chr(j) & _

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

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

  ActiveWorkbook.Sheets(1).Select

  Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

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

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

  Exit Sub

  End If

  Next: Next: Next: Next: Next: Next

  Next: Next: Next: Next: Next: Next

  End Sub

  第三步:再點擊“宏”→“查看宏”,選擇“宏名”下的“PasswordBreaker”并點擊“執行”,密碼就現形了(圖4)。

Excel,密碼保護,解除,方法

  第四步:切換“審閱”選項卡,點擊“撤消工作表保護”,然后輸入密碼即可解除鎖定。

        :更多精彩教程請關注三聯電腦教程欄目,三聯電腦辦公群:189034526歡迎你的加入


注:相關教程知識閱讀請移步到Excel教程頻道。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 广州市| 澎湖县| 全椒县| 翁源县| 固镇县| 张家口市| 略阳县| 怀来县| 江山市| 沙坪坝区| 邵武市| 新泰市| 安龙县| 皋兰县| 绥江县| 岑溪市| 嘉荫县| 长葛市| 西乌珠穆沁旗| 武威市| 东兰县| 金昌市| 行唐县| 河津市| 永寿县| 克什克腾旗| 库尔勒市| 搜索| 贺州市| 白水县| 西乌珠穆沁旗| 多伦县| 河池市| 新和县| 湖州市| 荃湾区| 桃园县| 兴城市| 英超| 临洮县| 永丰县|