Office: (Office 2013) Blattschutz

melonytony · 5. Dezember 2017

Hallo zusammen,

ich habe hier ein Excel-Problem mit dem Blattschutz.

Und zwar habe ich gewisse Zellen mit einem Blattschutz versehen (Standard-Excel-Funktion). Häckchen gesetzt bei "Zellen formatieren" und "Nicht gesperrte Zelle auswählen".

Innerhalb des gesperrten Bereichs gibt es Gruppierungen - die habe ich mit folgendem Makro erlaubt. Funktioniert alles einwandfrei.

Code:

Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="xxx"
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ABER: Blattschutz und Gruppieren funktioniert jetzt auch, nur kann ich die nicht gesperrten Zellen nicht mit Farben etc. formatieren. Wenn ich das Makro deaktiviere funktioniert die Formatierung, nur mit Makro tut es nicht.

Kennt ihr das Problem?

Vielen Dank vorab!

Viele Grüße
Tony

:)

aloys78 · 7. Dezember 2017

Hallo Tony,,

hilft Dir das weiter:
Code:

Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="xxx", AllowFormattingCells:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

melonytony · 7. Dezember 2017

Perfekt - jetzt funktionierts *Smilie DANKE!

melonytony · 13. Dezember 2017

Mittlerweile habe ich ein neues Problem bekommen *frown.gif*

Und zwar macht er mit dem Code prinzipiell auf jedes Blatt einen Blattschutz.
Code:

Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="xxx", AllowFormattingCells:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sprich ich nehme den Blattschutz manuell über die Optionen raus - speichere - schließe die Excel - öffne neu - jedes Blatt hat wieder einen Blattschutz.

Lässt sich der Code nur auf die manuell mit Blattschutz belegten Arbeitsblätter anwenden - weil nur dort will ich ja die Gruppierung im Blattschutz ermöglichen.

Vielen vielen Dank vorab!!!

Ekimflow · 13. Dezember 2017

?? Wenn es nur auf manuell erzeugte Blätter wirken soll, warum dann überhaupt ein Makro?

melonytony · 13. Dezember 2017

weil im Standard eine Gruppierung auf einem Arbeitsblatt mit Blattschutz nicht funktioniert.

Ekimflow · 13. Dezember 2017

Dann wohl so:

Code:

Option Explicit

Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count

If Sheets(i).ProtectContents = True Then

Sheets(i).Protect userinterfaceonly:=True, Password:="xxx", AllowFormattingCells:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter

End If

Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

melonytony · 15. Dezember 2017

Cool! DANKE!

Jetzt brauche ich noch einen Zusatz der mir das Kommentare einfügen und einblenden erlaubt *Smilie

DANKE EUCH!

aloys78 · 15. Dezember 2017

Hallo Toni,

Jetzt brauche ich noch einen Zusatz der mir das Kommentare einfügen und einblenden erlaubt
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Vorschlag:
Code:

Option Explicit

Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="xxx", AllowFormattingCells:=True, Contents:=True, DrawingObjects:=False
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn das so weiter geht, dann brauchst Du das Blatt überhaupt nicht mehr zu schützen !

Gruß
Aloys

Office: (Office 2013) Blattschutz

Blattschutz

Blattschutz

Blattschutz

Blattschutz

Blattschutz - Similar Threads - Blattschutz

Praktischer Umgang mit Zellenschutz

Blattschutz Paßwort

Zeilen automatisch sperren mittels VBA (wenn Bedingung erfüllt)

Blattschutz nach Datei kopieren defekt?

[VBA] temporäre Kopie Blattschutz aktivieren

Intelligente Tabelle erweitern trotz Blattschutz

Blattschutz Userform / Comman Button