Code: Function boolTestLocked()

<pre>Public Function boolTestLocked()
''' The VBComponents collection of the project being cleaned.
Dim mcmpComponents As VBComponents ''' These must be declared at the module-level.
On Error Resume Next
Set mcmpComponents = Nothing
Set mcmpComponents = ActiveDocument.VBProject.VBComponents
''' If true, the project was protected.
If mcmpComponents Is Nothing Then
boolTestLocked = True
Else
boolTestLocked = False
End If
'Sub TESTboolTestLocked()
'MsgBox boolTestLocked
'End Sub
End Function
</pre>