|
Liebe VBA Community,
Ich bin gerade dabei, eine Excel zu modiizieren.
Die Excel besteht aus zwei Blättern:
1. Datenblatt
2. Pivot
Die Datei steht vielen Nutzern zur verfügung und ich möchte verhindern, dass diese in den Pivots rumpfuschen - deshalb soll das Blatt "Pivot" einen Blattschutz haben. Die Nutzer sollen allerdings in der Lage sein, das Blatt "Datenblatt" zu befüllen. bisher ist es so, dass man die einzelnen Pivot Tabelen manuell aktualisieren muss. Ziel ist es, dass Die Pivot Tabellen trotz des Blattschutzes automatsch aktualisiert werden.
Mein der Algorithmus soll aufgebaut sein wie folgt:
1. Blattschutz von Pivot entfernen (mit Passwort)
2. Pivot Tabellen aktualisieren
3. Blattschutz auf Pivot setzen (mit Passwort)
und mein bisheriger "Code" sieht folgendermaßen aus:
Option Explicit
Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Pivot").Unprotect "test"
Next
ActiveWorkbook.RefreshAll
Next
Sheets("Pivot").Protect "test"
End Sub
Ich bin ein absolut blutiger Anfänger, seid bitte nicht zu hart it mir :D
Freue mich über jede Hilfe.
Liebe Grüße,
Johnny
|