Office: Blatt einblenden/ausblenden trotz Schutz noch möglich

Hallo,

ich aktiviere mit folgendem Makro den Blattschutz für meine Datei.

##########################
Function FDateiProtect()

Dim spasswort As String
spasswort = "xyz"

ActiveSheet.Protect Password:=spasswort, DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowInsertingRows:=False, AllowFiltering:=True, userinterfaceonly:=True, AllowFormattingCells:=True
ActiveSheet.Protect Contents:=True, userinterfaceonly:=True
ActiveSheet.EnableOutlining = True ' Für Gliederung
ActiveSheet.EnableAutoFilter = True


End Function
##########################

Ich bin der Meinung, dass früher dabei auch das Ein-/Ausblenden von Blättern nicht möglich war, dies sich aber mit den neuen MS Updates verändert hat. Sicher bin ich mir allerdings nicht.

Was muss ich in mein Makro aufnehmen, damit folgende Dinge nicht mehr durch den User möglich sind:
- Blatt einblenden
- Blatt ausblenden
- Blatt verschieben
- Blatt löschen
- Blatt umbenennen

Danke für die Hilfe.

 

Hi f.stoessel...

Zunächst, ist es besser die Eigenschaften einer Tabelle vor dem Schützen
einstellen; also z.B....

ActiveSheet.EnableOutlining = True ' Für Gliederung
ActiveSheet.EnableAutoFilter = True
:
ActiveSheet.Protect "Kennwort"

Wenn Du nicht möchtest, dass User Tabellen nicht einblenden können,
kannst Du diese auf xlSheetVeryHidden setzen. Diese Tabelle taucht
auch nicht mehr im Menü Blatt -> Einblenden auf. Umbennen usw.
verhinderst Du, indem Du die Mappe schützt. Beispiele...

ThisWorkbook.Worksheets("Tabelle").Visible = xlSheetVeryHidden
ThisWorkbook.Protect "Kennwort"

Gruß