vba向新建Sheet中自动插入代码

首先，感谢ExcelHome中youhm所提供的帮助！

在 工具-宏-安全性-可靠发行商 里要激活“信任对Visual Basic 项目的访问”

With ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule        
   If Not .Find("Worksheet_Change", 1, 1, -1, -1) Then            
      .InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"            
      .InsertLines 2, "  MSGBOX ""Ok"""            
      .InsertLines 3, "End Sub"       
   End If    
End With