Gliederung u. anderes mit Blattschutz
10.01.2023 17:44:41
Bernd_hat
heute zum dritten mal. Sorry dafür.
Das Blatt Konti 14+8 ist Schreibgeschützt. ( Passwort ist 1234)
Eigentlich soll es nach dem öffnen der Datei möglich sein:
Gliederung zu benutzen.
Zeilen einfügen.
Zeilen kopieren.
Zellen formatieren.
Das funktioniert aber leider nicht.
Hier der Code. Kann da bitte mal jemand schauen warum es nicht funktioniert ?
Option Explicit
Private Sub Workbook_Open()
Dim lcol As Variant
Sheets(1).Activate
lcol = Application.Match(CLng(Date), Rows(3), 0)
If IsNumeric(lcol) Then Application.Goto Cells(3, lcol), True
Sheets("Konti 14+8").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
Sheets("Konti 14+8").EnableOutlining = True ' Für Gliederung
Sheets("Konti 14+8").Protect Password:="1234"
End Sub
https://www.herber.de/bbs/user/157195.xlsm
Gruß Bernd_