2003如何自動加載宏-有解無憂

如何設定打開xls檔案就運行宏，例如打開test.xls就執行，其它xls最好不要加載宏。百度說的添加到加載項根本沒用，實在不行的話，excel2010或者wps專業版也可以。

uj5u.com熱心網友回復：

在test.xls中的workbook_open中添加即可。

uj5u.com熱心網友回復：

是否使用宏，這是由使用者在選單：工具\宏\安全性中的設定決定的。
并不由開發者控制。

uj5u.com熱心網友回復：

參考 1 樓 Topc008的回復:

在test.xls中的workbook_open中添加即可。

非常感謝，我需要的就是這個，這問題困擾了我很久。順便問一下，如果是每個xls檔案打開都執行一遍如何做

uj5u.com熱心網友回復：

樓主是想搞宏病毒嗎？

uj5u.com熱心網友回復：

參考 4 樓舉杯邀明月的回復:

樓主是想搞宏病毒嗎？

如果搞宏病毒我就自己學vba了，不會到這里問

uj5u.com熱心網友回復：

參考 5 樓 weixin_29832331 的回復:

Quote: 參考 4 樓舉杯邀明月的回復:
樓主是想搞宏病毒嗎？

如果搞宏病毒我就自己學vba了，不會到這里問

從你的“需求”，感覺就是很明顯的是一種“病毒行為”。
這跟是否在這兒問、是否自學VBA扯不上關系。

我在約10年前，就遇到一個Excel的宏病毒，應該是屬于蠕蟲類的。
被感染后，無論新建表格，還是打開一個表格檔案，都會被注入它的病毒代碼、寫入一大堆的垃圾資料。
病毒代碼不用說了，打開VBE就能看到，有一個模塊里面就是病毒代碼。
垃圾資料當然不是在“表格”內，而是在檔案的“屬性”中，點擊“自定義”選項卡，就能看到大概30到50項資料。
它能感染所有新建和打開的檔案，說明新建檔案、打開檔案時，它都能被激活執行的。
并且是“事件”激活的，因為當時公司的那些都是古董級的電腦（大概就是586級別CPU、16M或32M記憶體，安裝的Win95），
配置很低的，并不會感覺到“例外卡”。如果不采用事件機制，它要“一直運行”，被感染后處理表格時肯定卡得很明顯。
它是只感染.xls檔案的，因為我在其中幾個同事的電腦上手工清除掉它（公司IT在電腦上安裝的瑞星殺毒檢測不到）。
然后采取了點“防御措施”，可以讓電腦不會再被感染和傳播這個宏病毒，當時的 Office97、2000，安全性很代低的。
樓主在3樓說的“每個xls檔案打開都執行一遍”，這個代碼當然能完成（當然要允許宏運行才行）。
這個病毒樣本，在我自己的電腦中還保留著。
不過你也別問我要這個樣本，我現在記不清楚它的代碼什么模樣，也不會隨便把這個樣本傳給別人。

uj5u.com熱心網友回復：

參考 6 樓舉杯邀明月的回復:

Quote: 參考 5 樓 weixin_29832331 的回復:

Quote: 參考 4 樓舉杯邀明月的回復:
樓主是想搞宏病毒嗎？

如果搞宏病毒我就自己學vba了，不會到這里問

從你的“需求”，感覺就是很明顯的是一種“病毒行為”。
這跟是否在這兒問、是否自學VBA扯不上關系。

我在約10年前，就遇到一個Excel的宏病毒，應該是屬于蠕蟲類的。
被感染后，無論新建表格，還是打開一個表格檔案，都會被注入它的病毒代碼、寫入一大堆的垃圾資料。
病毒代碼不用說了，打開VBE就能看到，有一個模塊里面就是病毒代碼。
垃圾資料當然不是在“表格”內，而是在檔案的“屬性”中，點擊“自定義”選項卡，就能看到大概30到50項資料。
它能感染所有新建和打開的檔案，說明新建檔案、打開檔案時，它都能被激活執行的。
并且是“事件”激活的，因為當時公司的那些都是古董級的電腦（大概就是586級別CPU、16M或32M記憶體，安裝的Win95），
配置很低的，并不會感覺到“例外卡”。如果不采用事件機制，它要“一直運行”，被感染后處理表格時肯定卡得很明顯。
它是只感染.xls檔案的，因為我在其中幾個同事的電腦上手工清除掉它（公司IT在電腦上安裝的瑞星殺毒檢測不到）。
然后采取了點“防御措施”，可以讓電腦不會再被感染和傳播這個宏病毒，當時的 Office97、2000，安全性很代低的。
樓主在3樓說的“每個xls檔案打開都執行一遍”，這個代碼當然能完成（當然要允許宏運行才行）。
這個病毒樣本，在我自己的電腦中還保留著。
不過你也別問我要這個樣本，我現在記不清楚它的代碼什么模樣，也不會隨便把這個樣本傳給別人。

當然這些都是在允許宏的條件下，每次手動加載宏比較麻煩，而且我不能在運行程式之前打開excel執行宏吧！

uj5u.com熱心網友回復：

http://www.autohotkey.com

uj5u.com熱心網友回復：

這也不是什么神秘的東西
沒必要藏著掖著
我告訴樓主吧
C:\Program Files\Microsoft Office\OFFICE11\XLSTART
在這個檔案夾里放一個excel檔案，每次打開excel的時候都會自動打開這個excel檔案
然后放進去一個檔案,這個檔案插入類模塊，命名為clsApp；并在下面撰寫代碼：
Public WithEvents App As Application
Private Sub app_workbookOpen(ByVal Wb As Excel.Workbook)
'定義App為應用程式物件后，監視作業表的打開事件
Call 你所要運行的模塊
End Sub
這樣每個打開的xls檔案就都可以運行你的宏了.

uj5u.com熱心網友回復：

參考 9 樓 aspower_的回復:

這也不是什么神秘的東西
沒必要藏著掖著
我告訴樓主吧
C:\Program Files\Microsoft Office\OFFICE11\XLSTART
在這個檔案夾里放一個excel檔案，每次打開excel的時候都會自動打開這個excel檔案
然后放進去一個檔案,這個檔案插入類模塊，命名為clsApp；并在下面撰寫代碼：
Public WithEvents App As Application
Private Sub app_workbookOpen(ByVal Wb As Excel.Workbook)
'定義App為應用程式物件后，監視作業表的打開事件
Call 你所要運行的模塊
End Sub
這樣每個打開的xls檔案就都可以運行你的宏了.

后來我看了vba教程的確像你說的這樣

uj5u.com熱心網友回復：

參考 10 樓 weixin_29832331 的回復:

Quote: 參考 9 樓 aspower_的回復:
這也不是什么神秘的東西
沒必要藏著掖著
我告訴樓主吧
C:\Program Files\Microsoft Office\OFFICE11\XLSTART
在這個檔案夾里放一個excel檔案，每次打開excel的時候都會自動打開這個excel檔案
然后放進去一個檔案,這個檔案插入類模塊，命名為clsApp；并在下面撰寫代碼：
Public WithEvents App As Application
Private Sub app_workbookOpen(ByVal Wb As Excel.Workbook)
'定義App為應用程式物件后，監視作業表的打開事件
Call 你所要運行的模塊
End Sub
這樣每個打開的xls檔案就都可以運行你的宏了.

后來我看了vba教程的確像你說的這樣

是的話怎么不給分呢?

uj5u.com熱心網友回復：

參考 11 樓 aspower_的回復:

Quote: 參考 10 樓 weixin_29832331 的回復:

Quote: 參考 9 樓 aspower_的回復:
這也不是什么神秘的東西
沒必要藏著掖著
我告訴樓主吧
C:\Program Files\Microsoft Office\OFFICE11\XLSTART
在這個檔案夾里放一個excel檔案，每次打開excel的時候都會自動打開這個excel檔案
然后放進去一個檔案,這個檔案插入類模塊，命名為clsApp；并在下面撰寫代碼：
Public WithEvents App As Application
Private Sub app_workbookOpen(ByVal Wb As Excel.Workbook)
'定義App為應用程式物件后，監視作業表的打開事件
Call 你所要運行的模塊
End Sub
這樣每個打開的xls檔案就都可以運行你的宏了.

后來我看了vba教程的確像你說的這樣

是的話怎么不給分呢?

不好意思啊，客戶端好像沒有采納功能，因為我是用微信登陸的，網頁版第三方登陸又沒有微信

實在是無語

uj5u.com熱心網友回復：

參考 12 樓 weixin_29832331 的回復:

Quote: 參考 11 樓 aspower_的回復:
Quote: 參考 10 樓 weixin_29832331 的回復:

Quote: 參考 9 樓 aspower_的回復:
這也不是什么神秘的東西
沒必要藏著掖著
我告訴樓主吧
C:\Program Files\Microsoft Office\OFFICE11\XLSTART
在這個檔案夾里放一個excel檔案，每次打開excel的時候都會自動打開這個excel檔案
然后放進去一個檔案,這個檔案插入類模塊，命名為clsApp；并在下面撰寫代碼：
Public WithEvents App As Application
Private Sub app_workbookOpen(ByVal Wb As Excel.Workbook)
'定義App為應用程式物件后，監視作業表的打開事件
Call 你所要運行的模塊
End Sub
這樣每個打開的xls檔案就都可以運行你的宏了.

后來我看了vba教程的確像你說的這樣

是的話怎么不給分呢?

不好意思啊，客戶端好像沒有采納功能，因為我是用微信登陸的，網頁版第三方登陸又沒有微信實在是無語

結貼啊,客戶端沒有結貼功能?

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/79615.html

標籤：VB基礎類

上一篇：知道用AVIFileCreateStream給AVI檔案寫入音頻嗎

下一篇：visual basic 6.0 中如何將在多個picturebox 中繪制的影像保存成一張圖片或pdf文本