Office: VBA Spalten aus- und einblenden trotz Blattschutz

Guten Tag

Ich habe eine Übersicht, in dem die Urlaubszeiträume meiner Kollegen eingetragen werden sollen. Neben Namen, Vornamen und Zeitraum sollen noch weitere spezifische Daten eingetragen werden. Die entsprechenden Spalten kann man mithilfe von Buttons ein- und ausblenden. Bis hierhin klappt alles soweit.

Nun zu meinem Problem:
Ich will das ganze noch mit einem Blattschutz schützen, damit die Zellen mit meinen Formeln nicht versehentlich gelöscht werden. Die Codes schreibe ich mal mit rein.

Für das Ausblenden:
Sub Relevante_Ansicht()
Worksheets("Übersicht").Unprotect Password:="password"
Columns("G:G").Select
Selection.EntireColumn.Hidden = True
Columns("H:H").Select
Selection.EntireColumn.Hidden = True
Columns("I:I").Select
Selection.EntireColumn.Hidden = True
Range("C1:F1").Select
Worksheets("Übersicht").Protect Password:="password"
End Sub

Und für das Einblenden:
Sub Bearbeitungsansicht()
Worksheets("Übersicht").Unprotect Password:="password"
Columns("G:G").Select
Selection.EntireColumn.Hidden = False
Columns("H:H").Select
Selection.EntireColumn.Hidden = False
Columns("I:I").Select
Selection.EntireColumn.Hidden = False
Range("C1:F1").Select
Worksheets("Übersicht").Protect Password:="password"
End Sub

Das Problem dabei ist, dass ich auch ein Code habe, die die gesamte Zeile rot umrandet, abhängig davon, welche Zelle man ausgewählt hat, quasi als Zeilenführung. Hier der Code dafür:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:="password"
Application.ScreenUpdating = False
Cells.Rows.Borders.ColorIndex = xlNone
Target.EntireRow.Borders.ColorIndex = 3
Target.EntireRow.Borders.Weight = xlThin
Target.EntireRow.Borders(xlInsideVertical).LineStyle = xlNone
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="password"
End Sub

Allerdings habe ich dass Gefühl, dass sich die unterschiedlichen Codezeilen, um den Blattschutz aufzuheben, sich gegenseitig nicht leiden können. Hat da jemand eventuell eine Idee, woran es hapern könnte? Ich weiß, dass das ein recht spezifisches Problem ist, aber ich hoffe trotzdem, dass mir jemand hier helfen kann.

 

Hallo mbaeumk,

leider habe ich nicht das gleiche Gefühl wie du...
Bekommst Du eine Fehlermeldung? Was genau funktioniert nicht?

Ins Blaue geraten, würde ich sagen, dass dein Worksheet_SelectionChange-Event im Blatt "Übersicht" liegt. Damit startest Du eines der oberen Makros, gibst das Blatt frei, selektierst einige Zellen und startest damit das Event-Makro, dass dann den Blattschutz wieder reinschreibt.

Die geratene Lösung wäre, in den beiden oberen Makros zu Beginn die Events auszuschalten und am Ende wieder einzuschalten. Außerdem solltest Du im Event-Makro prüfen,ob nur eine Zelle selektiert wurde.

Gruß,
Lutz

 

Hi,

wann tritt denn das Problem auf und was genau verstehst du unter "können sich untereinander nicht leiden"? Tritt ein Fehler auf oder führt der Code nicht das aus was du erreichen willst?

---

 

Also, meine Absicht ist es dabei, die Zeilenführung beizubehalten, und die Ansichtsänderung nur bei Bedarf mit Buttons zu benutzen. Es gibt zwei Buttons, einmal für die "Relevante Ansicht" und für die "Bearbeitungsansicht".

Wenn ich allerdings den Code so dastehen habe wie oben aufgeführt und einen der beiden Buttons drücke, dann taucht folgende Fehlermeldung auf:

Laufzeitfehler '1004':
Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Ich weiß nicht genau, woran das liegt, aber wenn nur die Zeilenführung den Blattschutz umgehen kann, dann kann ich den Ansichtswechsel gar nicht nutzen, und wenn der Ansichtswechsel den Blattschutz umgehen kann, dann funktioniert die Zeilenführung nicht mehr. Ich hätte aber schon gerne beides drin.

 

Hallo mbaeumk,

einfach mal die beiden Makros im Einzelschritt ausführen. Was macht der Code?
Wo kommt die Fehlermeldung?

Gruß,
Lutz

 

Die Fehlermeldung taucht meistens in der rot gefärbten Zeile. Ab und zu kommt sie aber erst in der orange markierten Zeile.

Sub Relevante_Ansicht()
Worksheets("Übersicht").Unprotect Password:="password"
Columns("G:G").Select
Selection.EntireColumn.Hidden = True
Columns("H:H").Select
Selection.EntireColumn.Hidden = True
Columns("I:I").Select
Selection.EntireColumn.Hidden = True
Range("C1:F1").Select
Worksheets("Übersicht").Protect Password:="password"
End Sub

 

Was sagt der Einzelschritt-Modus? Durchläuft das Makro das Worksheet_SelectionChange-Event?

Wenn die Fehlermeldung meistens in der roten Zeile kommt und nur manchmal in der orangen, ist dann in diesen seltenen Fällen zufällig vorher die Spalte G markiert gewesen?

 

Macht er. Ich fange beim ersten Sub an (in diesem Fall für die "Relevante Ansicht"), dann springt er zum Worksheet_SelectionChange und markiert dabei die gesamte Spalte G. Nachdem der gesamte Worksheet_SelectionChange durchlaufen wurde, springt er wieder rüber zum Sub Relevante_Ansicht(), markiert im Code die erste Selection-Zeile und gibt mir dann die Fehlermeldung, sobald ich einen Schritt weiter will.

 

Das Problem bei deinem Code ist, dass du immer alles selektierst - dadurch wird nach jedem Schritt das Worksheet_SelectionChange-Ereignis ausgelöst und das Blatt wieder gesperrt, sodass keine weitere Aktion für das Ausblenden/Einblenden möglich ist. Ändere den Code wie folgt:

Code:

Sub Relevante_Ansicht()
    Worksheets("Übersicht").Unprotect Password:="password"
    Columns("G:G").EntireColumn.Hidden = True
    Columns("H:H").EntireColumn.Hidden = True
    Columns("I:I").EntireColumn.Hidden = True
'    Range("C1:F1").Select
    Worksheets("Übersicht").Protect Password:="password"
End Sub

Sub Bearbeitungsansicht()
    Worksheets("Übersicht").Unprotect Password:="password"
    Columns("G:G").EntireColumn.Hidden = False
    Columns("H:H").EntireColumn.Hidden = False
    Columns("I:I").EntireColumn.Hidden = False
'    Range("C1:F1").Select
    Worksheets("Übersicht").Protect Password:="password"
End Sub

Falls du nicht unbedingt C1:F1 am Codeende selektieren musst, kannst du diese Zeile auch noch weglassen - ich habe sie einfach mal auskommentiert. Sie macht aber keinen Ärger, weil danach keine Ämderungen im Tabellenblatt ausgeführt werden sondern nur der Blattschutz noch gesetzt wird.

---

 

Hallo

Ich bekomme keine Fehlermeldung. Aber ich vermute du hast deinen Code an falscher Stelle stehen.
Außerdem sind die "Select" und "Selection" und auch "Range("C1:F1").Select" ganz überflüssig.
Kopiere das Makro "Bearbeitungsansicht" und "Relevante_Ansicht" in ein Allgemeines Modul.
Und die "Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)" in das Modul Übersicht kopieren.

 

Danke Beverly. Hab deins ausprobiert, und es funktioniert einwandfrei. Danke für deine Hilfe