VBA-Code auf allen Arbeitsmappen zu arbeiten

Question

ich diesen Code haben:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

Lastrow = ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row  

If ActiveWorkbook.Name Like "FR_*" And WorksheetFunction.CountIf(ActiveSheet.Range(Cells(4, 12), Cells(Lastrow, 12)), "<>Pending Distribution") > 0 Then 
    MsgBox "Warning, column L has values other than Pending Distribution" 
    Cancel = True 
End If 

End Sub 

Es funktioniert, wenn es in die Arbeitsmappe in vba gespeichert, aber es funktioniert nicht in Personal.xlsb

Ich möchte mach es auf ALL Arbeitsmappe arbeiten, die mit FR_ beginnen, aber es funktioniert nicht, obwohl ich ActiveSheet und ActiveWorkbook verwende, warum?

Answer 1

mit der persönlichen wie diese

Public WithEvents CUSTOM_EXCEL As Excel.Application 

Private Sub CUSTOM_EXCEL_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Lastrow = Wb.ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row 
If Wb.Name Like "FR_*" And WorksheetFunction.CountIf(Wb.ActiveSheet.Range(Cells(4, 12), _ 
    Cells(Lastrow, 12)), "<>Pending Distribution") > 0 Then 
    MsgBox "Warning, column L has values other than Pending Distribution" 
    Cancel = True 
End If 
End Sub 

Private Sub Workbook_Open() 
    Set CUSTOM_EXCEL = Application 
End Sub