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

首頁 > 辦公 > Excel > 正文

Excel 2003加密文件破解方法

2020-10-14 18:41:29
字體:
來源:轉載
供稿:網友

  我們有時候會有一些秘密文件,密碼設置的有不一樣,時間久了就忘記了,有什么辦法或者軟件可以破解呢?下面為大家介一個簡單的密碼破解方 法:HE的,6位以下看密碼難以度,6位以上一本無望。如果Excel文件的打開密碼忘記了,且密碼是6位數以內的數字,可用以下步驟解開(關掉所有程 序,為了速度):

  新開一Excel,同時按Alt和F11,進入VBA界面,點菜單上的插入,模塊,在新出來的窗口粘貼一下代碼:

  Sub crack()

  Dim i As Long

  Dim FileName As String

  i = 0

  FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")

  FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "/"))

  Application.ScreenUpdating = False

  line2: On Error GoTo line1

  Workbooks.Open FileName, , True, , i

  MsgBox "Password is " & i

  Exit Sub

  line1: i = i + 1

  Resume line2

  Application.ScreenUpdating = True

  End Sub

  然后在此界面直接按F5運行此宏,選擇文件,等啊等(看密碼長度了)到網上去下載Excel Cracker.rar 這個文件。


(責任編輯:VEVB)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 许昌县| 滁州市| 淮滨县| 邵阳市| 娄底市| 郸城县| 贺州市| 临安市| 徐汇区| 屯昌县| 措勤县| 迁西县| 临猗县| 神池县| 崇信县| 陵水| 雷波县| 平昌县| 连城县| 绥棱县| 阜平县| 许昌县| 元谋县| 阜阳市| 马鞍山市| 辽宁省| 宁津县| 徐闻县| 水城县| 石河子市| 平潭县| 合江县| 大悟县| 长子县| 湾仔区| 海口市| 龙川县| 镇巴县| 南安市| 资中县| 监利县|