Re: Makro für Blattschutz

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hallo Michael,

> warum sollte man ohne Not eine Auflistung über den Index durchlaufen?
>
> Sub test()
> Dim wsDummy As Work***
> For Each wsDummy In Worksheets
> wsDummy.Protect Password:="a"
> Next
> End Sub
>
> For Each ist fast 40% schneller, obwohl der Zeitvorteil bei dem Beispiel
> keine große Rolle spielt.

da hast du sicher recht ,aber meine Ergänzung zu Iris Code war ja nur
die Erweiterung des von Ihr verwendeten Codes um es besser zu sehen
woran es gefehlt hat

mfg Herbert


.

Quantcast