excel2003刪除宏病毒的方法

excel2003刪除宏病毒的方法

在Excel中錄入數據時多數都需要使用到宏功能，而宏功能正是涉及到安全性問題才被Excel默認禁用，如果在用的時候不小心真的中毒了，別擔心，還是有解決方法的。下面是小編帶來的關于excel2003刪除宏病毒的方法，希望閱讀過后對你有所啟發!

excel2003刪除宏病毒的方法：

刪除宏病毒步驟1：先簡單說一下這個宏病毒的原理，它由兩部分組合，一部分是利用EXCEL2003版及以下版本的缺陷，即無法禁止EXCEL4.0宏，來迫使用戶“啟用宏”，然后通過ToDOLE模塊中的VBA代碼執行病毒程序(有的在ThisWorkbook模塊中也出現自動運行的宏病毒代碼)。

刪除宏病毒步驟2：打開后按ALT+F11調出VBA窗口，先將里面的ToDOLE模塊刪除(不光是刪除里面的代碼，而是刪除這個模塊)，然后雙擊ThisWorkbook模塊，看里面有沒有代碼，如果有也刪除(這個里面只能刪除代碼，而不能刪除模塊)。

這樣基本上VBA部分(主要的病毒部分)就清除了，保存這個工作簿，再繼續下面工作。

刪除宏病毒步驟3：剩下要清除4.0宏了，這個宏是通過“宏表”來起作用的。

另外病毒在該工作簿中的每一個工作表中都會定義一個"Auto_Activate"名稱，這個名稱也是隱藏的，無法通過“插入-名稱-定義”或者“名稱管理器”來查看，也需要通過一段VBA代碼來刪除。

刪除宏病毒步驟5：下面通過一段VBA代碼，可以刪除宏表以及"Auto_Activate"名稱。

Subabc()

'運行前先打開這個有“禁用宏就關閉”的工作簿

t=InputBox("輸入工作簿名稱*.xls")

Seta=Workbooks(t)

a.Activate

'顯示宏工作表

s=0

ForEachshInExcel4MacroSheets

sh.Visible=1'顯示宏表

sh.Delete'刪除

s=s+1

Next

MsgBox"刪除了"&s&"個宏表"

'刪除各表中的自動運行“名稱”

OnErrorResumeNext

Fori=1ToSheets.Count

Sheets(i).Names("Auto_Activate").Delete

Next

MsgBox"完畢,請保存這個工作簿"

EndSub

刪除宏病毒步驟6：這個代碼應該放到一個新建的空白工作簿中

刪除宏病毒步驟7：假設有宏病毒的工作簿為“工作簿1”，我們在建立一個空白的工作簿，假設為“工作簿2”。

刪除宏病毒步驟8：打開這個工作簿2的VBA窗口(ALT+F11)，給它插入一個用戶模塊。

刪除宏病毒步驟9：把上面代碼粘貼到這個用戶模塊中，按F5執行代碼，會提示輸入那個有宏表的工作簿1的名字，輸入后按確定，會自動刪除宏表及"Auto_Activate"名稱。

刪除宏病毒步驟10：最后保存工作簿1，退出EXCEL。

提示：那個用來刪除宏表的工作簿2可以不保存，直接退出。

刪除宏病毒步驟11：重新打開原來那個有提示的工作簿1看看，是否提示已經沒了。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。