Tabellenblatt schützen

[Chris_#]

Hallo zusammen,

eine Pivottabelle möchte ich gegen Veränderung der Formatierung schützen.
Dies funktioniert auch soweit mit einem Blattschutz und einigen Einstellungen.
Problem ist nur, dass sich die eingefügten Objekte der Datenschnitte noch immer verschieben und auch löschen lassen.
Setze ich unter Einstellungen "Blatt schützen" "Objekt bearbeiten einen Haken, kann ich keine Werte mehr auswählen. 
Gibt es hier noch eine Einstellungsmöglichkeit?

Viele Grüße

[schauan]

Hallöchen,

eventuell nimmst Du einen Schreibschutz auf die Mappe, sodass zumindest der "gelöschte" Zustand nicht gespeichert werden kann?

[Niko]

Das in "DieseArbeitsmappe"

Code:
Private Sub Workbook_Open()
   PT_aktualisieren
End Sub


Das in ein StandardModul (z.B. Modul1)

Code:
Sub PT_aktualisieren()
   Dim ws As Worksheet
   Dim pt As PivotTable
   For Each ws In ThisWorkbook.Worksheets
      If ws.PivotTables.Count Then
         ws.Unprotect "pw" 'Passwort anpassen
         For Each pt In ws.PivotTables
            pt.RefreshTable
         Next
         ws.Protect "pw" 'Passwort anpassen
      End If
   Next
End Sub


Alle Blätter müssten dann das gleiche Passwort haben (hier bsp: "pw").
Könnten auch verschiedene sein ist dann aber aufwendiger



Habe diesen Code im Internet gefunden, vieleicht hilft er Ihnen...wenn Sie es mit VBA lösen möchte.


Der Anfänger, bitte hilfe aus dankbarkeit an, da ich ich hier auch immer geholfen werde. Falls dies nichts für Sie ist, bitte einfach ignorieren.

Niko