EnableOutlining = true will nicht klappen!!!
09.02.2007 15:03:42
Bernd
ich stehe wohl auf der berühmten Leitung! Bitte Euch um Hilfe.
Was ist falsch an diesem Code, dass er mir bei "EnableOutlining = true" einen Fehler zeigt? Der Code steht in einem Modul.
Danke vorab!!
Bernd
Sub PasswortAufAllenTabellenblätterSetzen()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
With Sheets(i)
.EnableOutlining = True
.Protect Password:="xyz", UserInterfaceOnly:=True
''Trotz Blattschutzes Formatierung erlauben
If ActiveSheet.Protection.AllowFormattingCells = False Then
ActiveSheet.Protect AllowFormattingCells:=True
End If
End With
Next
ActiveWindow.SmallScroll Down:=-100
End Sub