在thisworkbook中加入：
option explicit
private sub workbook_activate()
call mytools
end sub
private sub workbook_beforeclose(cancel as boolean)
'call delmytools
end sub
private sub workbook_deactivate()
call delmytools
end sub
private sub workbook_open()
'call mytools
end sub
在新建模組中加入：
自定義整個選單：
在thisworkbook裡加入：
option explicit
private sub workbook_activate()
call addnowbar
end sub
private sub workbook_deactivate()
call delnowbar
end sub
在新建立模組中加入：
移除工作表最大化與最小化圖示：
可以先定義選單，然後將功能賦予選單，乙個為禁用，乙個為恢復：
直接在sheet中加入：
option explicit
private sub commandbutton1_click() '移除工作表左上角圖示和右上角最小化/最大化/關閉按鈕
activeworkbook.protect , , true
end sub
private sub commandbutton2_click() '恢復工作表左上角圖示和右上角最小化/最大化/關閉按鈕
activeworkbook.protect , , false
end sub
遮蔽工作表的複製功能：
在thisworkbook中加入：
option explicit
private sub workbook_activate()
call procopy
end sub
private sub workbook_deactivate()
call stacopy
end sub
在新建立模組中加入：
VBA中操作Excel常用方法總結
要用vba來關閉工作簿，用workbook.close 方法即可，而要退出excel，則用application.quit 方法。下面是一些 示例 關閉活動工作簿，如果工作簿有更改，提示是否儲存 複製 如下 sub closeworkbook activeworkbook.close end sub...
excel下vba程式設計
最近需要在excel中實現乙個功能，查閱excel的函式沒有，或者是我沒找到，於是使用 vba進行擴充套件實現，步驟如下 1 開啟要擴充套件的excel檔案,並啟用巨集。2007的excel檔案，在 上面一行有乙個黃色小條提示 2 使用快捷鍵 alt f11 開啟vba編輯視窗 3 在左邊的部分新增...
VBA應用EXCEL公式
七個使用公式的例子 1 行標是變數的例子 2 列標用一維陣列輸入字串做列標，行標是變數 3 用rc做相對引用 4 rc和變數混合 5 整列使用rc引用，避免使用迴圈 6 整個區域rc引用 相對引用 迴圈 7 整個區域rc應用 相對引用 不用迴圈 sub數例 a1 1a a2 d2 a3 cd a4 ...