在工程锁定情况下如何拷贝宏命令程序
Sub CopyAllModules()
Dim FName As String
Dim VBComp As VBIDE.VBComponent
With Workbooks("Book1.xls")
FName = .Path & "\code.txt"
If Dir(FName) <> "" Then
Kill FName
End If
Set Newbook = Workbooks.Add
For Each VBComp In .VBProject.VBComponents
If VBComp.CodeModule.CountOfLines > 0 Then
VBComp.Export FName
Newbook.VBProject.VBComponents.Import FName
Kill FName
End If
Next VBComp
End With
End Sub
可以在sheet1上设置命令按钮启动宏,但如果工程锁定,则出现错误如下示:
运行时错误 ‘50289’
该工程已被保护,不能执行操作
在工程锁定时,如何解决