Enable.Outlining = true
27.03.2006 17:44:02
Fabian
ein banales Problem:
warum funktioniert trotz des o.g. Befehls das Ein- und Ausblenden von Zeilen nicht? Sobald das Blatt geschuetzt ist, lassen sich die Zeilen nicht mehr einblenden.
Sub PasswortSetzen()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
With Sheets(i)
.Unprotect Password:="xxx"
.EnableOutlining = True
.Protect Password:="xxx", UserInterfaceOnly:=True
End With
Next
End Sub
Danke vorab
Fabian
Anzeige