Test If VBA/VBE Project Is Locked

Using vba, I want to be able to tell if the vba code is locked. Using the below function I can tell most of the time. The only problem is if the " Lock project for viewing" isn't checked the below function will say it isn't protected. Is there a way to tell if it is protected even if they didn't check "Lock project for viewing".

Function ProtectedVBProject(ByVal wb As Workbook) As Boolean
' 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 Function