Überprüfen Sie, ob ein VBProject mit VBA in Microsoft Excel geschützt
geschützt ist Mit der folgenden Funktion können Sie überprüfen, ob ein VBProject geschützt ist, bevor Sie versuchen, das Projekt zu bearbeiten:
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
Beispiel:
If ProtectedVBProject(ActiveWorkbook) Then Exit Sub