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

首頁(yè) > 辦公 > Excel > 正文

Excel 2003加密文件破解方法

2019-10-25 20:06:44
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

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


      新開一Excel,同時(shí)按Alt和F11,進(jìn)入VBA界面,點(diǎn)菜單上的插入,模塊,在新出來(lái)的窗口粘貼一下代碼:

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運(yùn)行此宏,選擇文件,等啊等(看密碼長(zhǎng)度了)到網(wǎng)上去下載Excel Cracker.rar 這個(gè)文件。


發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 白玉县| 响水县| 通海县| 松滋市| 溧水县| 黄梅县| 呈贡县| 公主岭市| 吉木萨尔县| 神农架林区| 怀来县| 东阳市| 城市| 陇南市| 浠水县| 长宁区| 永仁县| 定陶县| 昭通市| 静乐县| 新蔡县| 八宿县| 岢岚县| 平山县| 库伦旗| 长泰县| 常山县| 磐石市| 呼和浩特市| 洛南县| 达孜县| 美姑县| 巴东县| 彰化市| 正宁县| 增城市| 汝州市| 芮城县| 五河县| 黔江区| 浪卡子县|