勿沉：如何用VBA判断office2003ppt是否启用了加密(设置了打开密码)？
如何用VBA判断office2003中PPT的VBA工程是否启用了加密与设置了打开加密密码？
但是VBA代码能够在C++里调用
因小弟没有VBA方面的经验，如哪位能写出代码，并说明如何在C/C++里直接调用。经我测试通过后，立马结贴送分
顶者亦有分...
[解决办法]
你是指PPT文档加密吗？
如果是的话文档应该有文档保护类型的变量，你可找找看看。
应该就可以通过这个变量判断了，我用过WORD的文件保护类型判断
[解决办法]
这个是excel下的，ppt改一下对像即可使用
'册除宏巨集
Function DelVba()
If MsgBox("要执行宏移除功能﹖", 32 + vbYesNo, "提示") = vbNo Then Exit Function
If ActiveWorkbook.VBProject.Protection = 0 Then
Dim OJB As Object
For Each OJB In ActiveWorkbook.VBProject.VBComponents
OJB.CodeModule.DeleteLines 1, OJB.CodeModule.CountOfLines
If OJB.Type <> 100 Then ActiveWorkbook.VBProject.VBComponents.Remove OJB
Next
Else
MsgBox "很抱歉,工程项目已被锁定删除操作失败......", 32, "提示"
End If
End Function
