Excel工作表保護(hù)宏破解教程

2024-08-23 19:41:02

字體：大中小

供稿：網(wǎng)友

（1）打開Excel工作表，點(diǎn)擊工作表左上角的微軟圖案標(biāo)志。選擇Excel選項(xiàng)。進(jìn)入選項(xiàng)卡，選擇Excel選項(xiàng)。在Excel選項(xiàng)卡左側(cè)選擇如下功能：

A-查看宏；
B-錄制宏；
C-查看權(quán)限
D-無限制的訪問
E-限制訪問
F-權(quán)限限制

（2）選擇信任中心選項(xiàng)卡。進(jìn)入信任中心選項(xiàng)卡后，選擇點(diǎn)擊信任中心設(shè)置按鈕。選擇宏設(shè)置選項(xiàng)卡的第二項(xiàng)單項(xiàng)選擇：禁止所有宏，并發(fā)出通知。
（3）新建工作表，選擇錄制宏命令。如果是Excel2007，可以通過菜單中的開發(fā)工具進(jìn)入錄制宏選項(xiàng)卡。建立宏名稱和說明，點(diǎn)擊確定。系統(tǒng)開始錄制宏。選擇停止錄制宏。
（4）按下快捷鍵ALT+F8組合鍵，選擇查看宏命令代碼。寫入如下代碼：

ASP/Visual Basic Code復(fù)制內(nèi)容到剪貼板

Public Sub 工作表保護(hù)密碼破解() Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _ "作者:圣天"
Const HEADER As String = "工作表保護(hù)密碼破解" Const VERSION As String = DBLSPACE & "版本 Version1.1.1"
Const REPBACK As String = DBLSPACE & "" Const ZHENGLI As String = DBLSPACE " XXXXXXX"
Const ALLCLEAR As String = DBLSPACE & "該工作簿中的工作表密碼保護(hù)已全部解除!!" & DBLSPACE & "請記得另保存"_ & DBLSPACE & "注意：不要用在不當(dāng)?shù)胤剑鹬厮说膭趧?dòng)成果！"
Const MSGNOPWORDS1 As String = "該文件工作表中沒有加密" Const MSGNOPWORDS2 As String = "該文件工作表中沒有加密2"
Const MSGTAKETIME As String = "解密需花費(fèi)一定時(shí)間,請耐心等候!" & DBLSPACE & "按確定開始破解!" Const MSGPWORDFOUND1 As String = "密碼重新組合為:"& DBLSPACE & "$$" & DBLSPACE & _
"如果該文件工作表有不同密碼,將搜索下一組密碼并修改清除" Const MSGPWORDFOUND2 As String = "密碼重新組合為:"& DBLSPACE & "$$" & DBLSPACE & _

上一篇：打開excel文檔會出現(xiàn)一個(gè)PERSONAL.XLS文件怎么去取消？

下一篇：excel怎么繪制集料標(biāo)準(zhǔn)曲線圖？