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
|
