Darstellungsprobleme bei unprotect-Makro
Samuel
Ich verwende folgendes Makro um den Blattschutz alle Blätter und den Mappenschutz einer Arbeitsmappe aufzuheben:
Sub unprotect_SchutzAufheben
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.unprotect "PASSWORD"
Next wks
ActiveWorkbook.unprotect "PASSWORD"
End Sub
Wird das Makro laufen gelassen, werden alle Blätter 'durchgerattert', bzw. gibt's auf dem Bildschirm einen kurzen 'Blättersturm' und man landet wieder auf dem Ausgangsblatt.
Nun melden sich einige Anwender (vor allem mit neueren Systemen), dass das Durcheinander auf dem Bildschirm bei Ihnen 'hängen bleibt'. Sie müssten dann das Excel-Fenster mehrmals minimieren und wieder maximieren, bis der Normalzustand wieder erreicht sei.
Ich vermute ja, dass das Problem bei der Grafikkarte/-Treiber liegt und nicht beim Makro. Aber zur Symtombekämpfung:
Gibt es eine Methode um dieses 'durchrattern' auf dem Bildschirm zu verhindern?
Interessant finde ich ja auch, dass beim Makro zum Schützen der Arbeitsmappe, das alles nicht passiert. Obwohl es eigentlich den gleichen Ablauf verwendet:
Sub Protect_Schuetzen
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Protect "PASSWORD"
Next wks
ActiveWorkbook.Protect "PASSWORD"
End Sub