Bevor der Zugriff auf bestehende Codes erfolgt,
sollte gepr�ft werden, ob das entsprechende Projekt
gesch�tzt ist.
Hier kann man sich leicht helfen, indem man die Anzahl der
Komponenten
eines Projektes ermittelt.
Wenn das Projekt gesch�tzt ist, liefert dieser Aufruf einen
Fehler:
Function Projekt_gesch�tzt(ByVal WB As Workbook) As Boolean
On Error Resume Next
Anzahl = WB.VBProject.VBComponents.Count
Projekt_gesch�tzt = Err.Number <> 0
End Function
Sub Testen()
Dim WB As Workbook
Set WB = Workbooks("Mappe2.xls")
MsgBox "Projekt gesch�tzt: " & Projekt_gesch�tzt(WB)
End Sub
|
