Check if a VBProject is protected
2000-02-05 VBE 0 204
With the function below you can check if a VBProject is protected before you try to edit the project:
Function ProtectedVBProject(ByVal wb As Workbook) As Boolean ' requires a reference to the Microsoft Visual Basic Extensibility library ' returns TRUE if the VB project in the active document is protected Dim VBC As Integer VBC = -1 On Error Resume Next VBC = wb.VBProject.VBComponents.Count On Error GoTo 0 If VBC = -1 Then ProtectedVBProject = True Else ProtectedVBProject = False End If End FunctionExample:
If ProtectedVBProject(ActiveWorkbook) Then Exit Sub