Ich möchte gern die Blattschutzfunktion über ein Makro zuweisen.
Das Makro soll jedoch vorher überprüfen, ob im activeworkbook in "Diese Arbeitsmappe" das Makro "Private Sub Workbook_Open()" steht.
Wie kriege ich eine solche Überprüfung hin???
Ich möchte gern die Blattschutzfunktion über ein Makro zuweisen.
Das Makro soll jedoch vorher überprüfen, ob im activeworkbook in "Diese Arbeitsmappe" das Makro "Private Sub Workbook_Open()" steht.
Wie kriege ich eine solche Überprüfung hin???
Vielleicht fällt Dir ja noch was ein. Wäre Dir extrem dankbar.
Ich hänge hinten mal noch das Makro an!
Sub pruefung()
Dim intStart As Integer
On Error Resume Next
intStart = ThisWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.ProcBodyLine("Private Sub Workbook_Open()", vbext_pk_Proc)
If intStart <> 0 Then MsgBox "Code vorhanden" Else MsgBox "Code nicht vorhanden"
On Error GoTo 0
End Sub
Mein Makro, dessen existenz überprüft werden soll.
Private Sub Workbook_Open()
Dim iWks As Integer
Application.ScreenUpdating = False
For iWks = 1 To Worksheets.Count
Worksheets(iWks).Protect UserInterfaceOnly:=True
Worksheets(iWks).EnableOutlining = True
Next iWks
Application.ScreenUpdating = True
End Sub
Läuft jetzt. Mußte noch ThisWorkbook durch ActiveWorkbook ersetzen.
Danke für die Hilfe.
Ciao Christian