AW: Makro auf alle geöffneten Dateien übertragen
08.11.2007 13:53:23
Thorsten
Option Explicit
Sub Print_All()
Dim wkb As Workbook, wks As Worksheet
For Each wkb In Application.Workbooks
For Each wks In wkb.Worksheets
wks.PrintOut
Next
Next
End Sub
dein Code wurde doch schon "fast" komplett angegeben. du möchtest nur nicht ausdrucken(PrintOut), sondern schützen(Protect)
Sub Protect_All()
Dim wkb As Workbook, wks As Worksheet
For Each wkb In Application.Workbooks
For Each wks In wkb.Worksheets
wks.Protect
Next
Next
End Sub
Ich habs nicht getestet, müsste aber funktionieren.
grüsse