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

首頁 > 辦公 > Excel > 正文

Excel 2003加密文件破解方法

2024-08-23 19:25:49
字體:
供稿:網(wǎng)友

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

      新開一Excel,同時按Alt和F11,進(jìn)入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運行此宏,選擇文件,等啊等(看密碼長度了)到網(wǎng)上去下載Excel Cracker.rar 這個文件。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 米易县| 毕节市| 塘沽区| 鄂托克旗| 静安区| 高安市| 温宿县| 井陉县| 民乐县| 宁国市| 崇阳县| 朝阳县| 武清区| 化隆| 宜黄县| 金寨县| 泽库县| 屯门区| 周至县| 平武县| 鲁甸县| 乐至县| 沙雅县| 登封市| 黔东| 阳江市| 瑞昌市| 阿勒泰市| 新化县| 光山县| 金门县| 太保市| 呼玛县| 南京市| 临澧县| 利津县| 图们市| 邢台县| 申扎县| 饶阳县| 伊宁县|