Die Programmzeile
anzahl = ActiveWorkbook.VBProject.VBComponents.Count
führt zu folgender Fehlermeldung
Der programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher
Was ist falsch ?
Laut Hilfeanweisungen müßte alles korrekt sein.
hier der Abschnitt des Programmcodes komplett:
Sub Start()
Dim NeueMappe As String, AlteMappe As String, lvComp As Integer, CompName As String
Dim AltVerzDatei, AnzahlComp As Integer, Zeile As Long, Inhalt As String, Fertig As Boolean
Dim Pos As Integer
Worksheets("Start").Select
AltVerzDatei = Application.GetOpenFilename("Excel-Dateien (*.xls*), *.XLS", 1, "BDE 2000 Transfer VBA EXCEL 97")
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Workbooks.Add
NeueMappe = ActiveWorkbook.Name
If AltVerzDatei = False Then
Workbooks(NeueMappe).Close SaveChanges:=False
Worksheets("Start").Select
Application.StatusBar = False
Exit Sub
End If
Application.StatusBar = "Quelldatei wird geöffnet"
AlteMappe = Workbooks.Open(Filename:=AltVerzDatei, UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Editable:=True).Name
RevisionsNummer AlteMappe, NeueMappe 'Revisionsnummer aus alter Datei auslesen und in neue Datei schreiben
'Workbooks(NeueMappe).Activate
Workbooks(AlteMappe).Activate
Application.ScreenUpdating = True
'AnzahlComp = Workbooks(AlteMappe).VBProject.VBComponents(ActiveSheet.CodeName).Count ' geht auch nicht
AnzahlComp = ActiveWorkbook.VBProject.VBComponents.Count