再次求助！始终没有解决的VBE保护出错的问题，请朋友们帮助，不胜感激！

sukey1520

程序放在thisbook下，系统XP+EXCEL2007下运行的时候出错，VBE的保护密码是:123456,程序如下：
     
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Application.VBE.ActiveVBProject.Protection = 1 Then
       Call DeleteMenu
       Application.OnKey "%{F11}"
    End If
End Sub

Private Sub Workbook_Open()
    Dim Msg
    'Application.OnKey "%{F11}", ""
   
    If Application.VBE.ActiveVBProject.Protection = 0 Then
      With ThisWorkbook
            For i = 1 To .VBProject.VBComponents.Count
           With .VBProject.VBComponents(i).CodeModule
                .DeleteLines 1, .CountOfLines
            End With
            Next
            .Save
         End With
    End If
   
End Sub
出错图示：


以为是引用错误，看了引用也不知道哪里有错。


在论坛里问了好久以及在网络上搜了，也没有找到答案，希望能找到解决VBE访问提示1004错误的问题。

程序.zip (23.3 KB, 下载次数: 8)

2015-1-23 17:42 上传

点击文件名下载附件

sukey1520

自己顶上，期待答案

sukey1520

星期六天论论都没有什么人，再次自顶一下，求助。

sukey1520

在线等，有人知道吗？

ctp_119

信息收到，呵呵，，，设置问题啦！！！

sukey1520

ctp_119 发表于 2015-1-26 11:12
信息收到，呵呵，，，设置问题啦！！！

为什么就是不能运行，可是一直找不到原因。

sukey1520

ctp_119 发表于 2015-1-26 11:12
信息收到，呵呵，，，设置问题啦！！！

设置什么问题，请版主指教，非常感谢！

ctp_119

sukey1520 发表于 2015-1-26 11:14
为什么就是不能运行，可是一直找不到原因。

呵呵，要善于找原因。。。。

ctp_119

勾选这个就运行无阻了！！！

sukey1520

ctp_119 发表于 2015-1-26 11:32
勾选这个就运行无阻了！！！

问题是已经勾选了，运行出现1004错误.