返回列表 上一主題 發帖

[分享] 用程式寫程式 (VBProject / VBComponents)

[分享] 用程式寫程式 (VBProject / VBComponents)

作者:leonchou
一個簡單的例子:在某XLS檔加入Workbook_Open事件

Sub ggg()
Dim wb As Excel.Workbook
Set wb = GetObject("C:\test.xls")
With wb.VBProject.VBComponents("ThisWorkbook").CodeModule
 .InsertLines 1, "Private Sub Workbook_Open()"
 .InsertLines 2, "Msgbox ""This is a Test."""
 .InsertLines 3, "End Sub"
End With
wb.Close SaveChanges:=True
Set wb = Nothing
End Sub

VBComponent 是一個VBA專案中的元件,
元件可以是表單(UserForm)、模組(Module)或物件類別。
此例即是在 ThisWorkbook 模組寫入程式。

CodeModule 物件代表一個元件內的程式碼,
要寫入程式就要用到 CodeModule。
*******************************
以下程式會刪除Book2中所有程式 --

Sub ddd()
Dim vbc As Object
With Workbooks("book2.xls").VBProject
For Each vbc In .VBComponents
 Select Case vbc.Type
 Case vbext_rk_Project, vbext_wt_Browser, vbext_ct_MSForm '註
  .VBComponents.Remove .Item(vbc.Name)

 Case Else
  .VBComponents(vbc.Name).CodeModule.DeleteLines 1, _
  .VBComponents(vbc.Name).CodeModule.CountOfLines

 End Select
Next
End With
End Sub

註:VBComponent.Type
vbext_rk_Project 模組的集合(Module) Type =1
vbext_wt_Browser 物件類別(Class1) Type =2
vbext_ct_MSForm 自訂表單(UserForm) Type =3
**********************************
刪除 Sheet1 所有的代碼:

Sub DelSheetCodes()
Dim cMdl As Object
Set cMdl = ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule
n = cMdl.CountOfLines
cMdl.DeleteLines 1, n
End Sub

最後二行亦可直接寫成
cMdl.DeleteLines 1, cMdl.CountOfLines
**********************************
例如你已從另一活頁簿匯出Module2的程式碼於 C:\module2.bas
以下將 module2.bas 匯入目前workbook,
會產生一個 Module2 模組及其程式碼 --

Sub ImpCodes()
ActiveWorkbook.VBProject.VBComponents.Import "C:\module2.bas"
End Sub
學海無涯_不恥下問

富哥
最近比較忙
您這則可否研究測試一下
VBP鎖定下可否新增匯出刪除模組
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

真是不錯的教學,好好的來研究看看。

TOP

^^ 還沒有想到可以這麼做...真的不錯
Homeman

TOP

回復 1# Hsieh


    請問超版
是否能在自己的 module 取得 自己的VBProject 的 密碼? 假設密碼是 "1234"?
或者說, 原來的密碼是 "1234" 而被破解了, module內的程式碼能偵測已被改

謝謝

TOP

        靜思自在 : 口說一句好話,如口出蓮花;口說一句壞話如口吐毒蛇。
返回列表 上一主題