Office: (Office 365) Excel VBA Codes Pivot-Aktualisierung, Kommentare, etc.

Hallo liebe Office-Hilfe Mitglieder,

ich bin seit kurzem hier neu registriert und hätte eine (für mich als absolutem Laien in Sachen VBA) Problemstellung, bei der mir hoffentlich jemand von Euch helfen könnte?!

Ich benötige 2 Codes, von denen im Moment nur der erste separat funktioniert, mit einem 2 gemeinsam so in einem Code kombiniert, damit eben beide gemeinsam funktionieren.

Der erste Code soll dazu dienen, dass sich sämtliche Pivot-Tabellen (innerhalb der Excel-Datei insgesamt 3 Pivot-Tabellen, von denen sich jede aus unabänderbaren Gründen in je einem separaten Register-Blatt befindet) bei Änderungen automatisch aktualisieren, ohne dass man diese manuell aktualisieren muss und der 2 Code soll dazu dienen, damit „Kommentare“ (befinden sich ebenfalls in 3 verschiedenen Register-Blättern) nicht ausschließlich bei einem Mouse-Over, sondern auch zusätzlich bei einer ausschließlichen Auswahl der Zellen, welche die „Kommentare“ beinhalten über die Pfeiltasten, ohne dass zusätzlich ein Mouse-Over erfolgt, angezeigt werden sollen. (die „Kommentare“ sollen also bei BEIDEN Varianten erscheinen und der Code soll auch eventuelle Fehlermeldungen, bei einer Auswahl von Zellen, die keine „Kommentare“ besitzen, vermeiden!)

Hier die 2 separaten Codes, die ich, nach diversen Google-Suchen, in unterschiedlichen Foren gefunden habe und die in einem gemeinsam funktionierenden Code zusammengefügt werden müssten:

1. Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ThisWorkbook.RefreshAll

End Sub

2. Code:

Option Explicit
Public rngPrev As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not rngPrev Is Nothing Then _
rngPrev.Comment.Visible = False

With Target(1)
If .NoteText <> "" Then
.Comment.Visible = True
Set rngPrev = Target(1)
Else
Set rngPrev = Nothing
End If
End With
End Sub

Bezüglich dem 1. Code (AUTOMATISCHE Aktualisierung der Pivot-Tabellen) gibt es auch noch ein weiteres Problem:

Die Datenquellen und die Pivot-Tabellen befinden sich in jeweils einem Register-Blatt und eine Grafik, deren Datenquelle sich auf eben diese Daten bezieht, befindet sich in einem separaten Register-Blatt (und so getrennt soll es auch bleiben).
Das eine Register-Blatt in dem sich die Daten und Pivot-Tabellen befindet soll mit einem Blattschutz (inklusive Kennwort) geschützt werden.
Leider aktualisieren sich durch den obigen 1. Code die Pivot-Tabellen und dadurch auch die dazugehörigen Grafiken in dem separaten Register-Blatt nur dann, wenn der Blattschutz inklusive Kennwort NICHT aktiviert ist.
Somit bräuchte ich (falls das überhaupt generell möglich ist) einen Code bzw. eine Einstellung, die es ermöglicht, dass auch bei dem aktivierten Blattschutz inklusive Kennwort des Register-Blattes in dem sich die Datenquellen und Pivot-Tabellen befinden, diese automatisch aktualisieren und damit zusammenhängend eben auch die dazugehörigen Grafiken in dem separaten Register-Blatt (welches ebenfalls mit einem Blattschutz inklusive Kennwort versehen ist).

PS: Kennt jemand von Euch auch eine Möglichkeit eine einzelne Zelle mit einem Inhalt (im konkreten Fall: „Autor: ……“) mit einem vom Kennwort des Blattschutzes ABWEICHENDEM anderem Kennwort zu versehen, damit wie in diesem Fall der Autor unwiderruflich gesperrt ist / bleibt?! (sprich, dass man sich, auch wenn man jemandem das Kennwort des Blattschutzes gibt, keine Sorgen machen muss, dass der Autor, welchen eben eine spezielle Zelle beinhaltet, abgeändert werden kann!)

Ich hoffe sehr, dass jemand von Euch sich so gut auskennt, damit sie / er mir (zumindest bei ein paar der obigen Punkte) helfen kann und auf jeden Fall vielen lieben Dank im Voraus für die Mühe und Unterstützung!

Liebe Grüße

Markus aus Wien