Check if VBProject is protected

Vishesh's picture
This code lets you know whether the VB project is protected or not Add a reference to the Microsoft Visual Basic Extensibility Library It returns TRUE if the VB project in the active document is protected
Function ProtectedVBProject(ByVal wb As Workbook) As Boolean
    Dim intVBComp As Integer
    intVBComp = -1
    On Error Resume Next
    intVBComp = wb.VBProject.VBComponents.Count
    If Err.Number = 1004 Then
        MsgBox "Add reference to the Microsoft Visual Basic Extensibility Library", vbCritical, "Excel Experts"
    End If
    On Error GoTo 0
    If intVBComp = -1 Then
        ProtectedVBProject = True
    Else
        ProtectedVBProject = False
    End If
End Function