Hallo zusammen,
ich habe leider ein kleines Problem mit folgenden Code und brauche eine
Unterstützung hier im Forum.
Folgender Code soll alle Tabellen (außer Tabelle "Start") einblenden und
den Blattschutz deaktivieren.
Das funktioniert auch ganz gut, allerdings läuft das sehr sehr langsam ab.
(im Vergleich zur Version 2010 deutlich langsamer)
Gibt es eine andere Möglichkeit das Einblenden aller Tabellen zu beschleunigen?
Oder was könnte ich hier ändern? Freue mich über jeden Hinweis.
For Each ws In ActiveWorkbook.Worksheets
If ws.Name "START" Then
ws.Visible = True
ws.Unprotect Password:="xxx"
End If
Next
Vielen Dank.
Marco