Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

EnableOutlining = true will nicht klappen!!!

EnableOutlining = true will nicht klappen!!!
09.02.2007 15:03:42
Bernd
Hallo Zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: EnableOutlining = true will nicht klappen!!!
09.02.2007 15:29:11
Kurt
Hi,
die Gliederung besteht aber schon, oder?

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, AllowFormattingCells:=True
End With
Next
ActiveWindow.SmallScroll Down:=-100
Application.ScreenUpdating = True
End Sub

mfg Kurt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige