Office: (Office 2013) Vba Änderungen Verfolgen Protokoll "Alter Wert" hinzufügen

Hallo Zusammen,

ich habe mir den Code oben in mein Sheet eingefügt und bekomme die Meldung das die Datei nicht Vertraunswürdig ist.
Habe schon alles Probiert aber bekomme die Meldung nicht weg.
Liegt es daran das ich Office 365 Business benutze?

Danke für Eure Hilfe

gruß
Bernd

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
Dim AlterWert As Variant, NeuerWert As Variant
Dim rngNeuSel As Range
If Target.Count > 1 Then Exit Sub
If Sh.Name = "Protokoll" Then Exit Sub
If Intersect(Target, Sh.Range("A9:Q550")) Is Nothing Then Exit Sub
'------
'Ereignisbehandlung ausschalten:
Application.EnableEvents = False
'Zwischenspeichern des neuen Wertes und der neuen Zellmarkierung
NeuerWert = Target.Value
Set rngNeuSel = Selection
'Rückgängigmachen der letzten Aktion (=Zellwertänderung und Zellmarkierung):
Application.Undo '<-- Des Pudels Kern, um alten Zellwert wieder zu bekommen
'Alten Zellwert zwischenspeichern
AlterWert = Target.Value
'Neuen Zellwert aus der Zwischenspeicherung zurückholen in die geänderte Zelle
Target.Value = NeuerWert
'Ebenso die neue Zellmarkierung wieder neu setzen
On Error Resume Next
rngNeuSel.Activate
On Error GoTo 0
'------
With Sheets("Protokoll")
ErsteFreieZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Sh.Name
.Cells(ErsteFreieZeile, 2) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 3) = Target.Value
.Cells(ErsteFreieZeile, 4) = Date
.Cells(ErsteFreieZeile, 5) = Time
.Cells(ErsteFreieZeile, 6) = Environ("username")
.Cells(ErsteFreieZeile, 7) = AlterWert '<---- Ausgeben
End With
'------
'Ereignisbehandlung wieder einschalten:
Application.EnableEvents = True
End Sub

 

Hallo,

da VBA-Makros von Perverslingen dazu missbraucht werden können, um Viren zu verbreiten, hat Microsoft vor Jahren in den Excel-Optionen das "Trust-Center" erfunden. Dort kann man zahlreiche Einstellungen vornehmen, um die Vertrauenswürdigkeit von Excel-Dateien mit Makros festzulegen.
Die einfachste Einstellung ist meist, dass man ein vertrauenswürdiges Verzeichnis (Ordner) festlegt und in diesen die Excel-Datei mit Makros (*.xlsm) speichert. Vergleiche dazu nachfolgenden Screen-Shot aus dem Trust-Center.

 

Hallo Anton,

danke für deine Antwort.
das wird wohl die einzige Möglichkeit sein, das muss ich aber erst bei der IT beantragen.

Alle anderen Einstellungen haben nichts gebracht.

Komisch ist das ich auch andere Dateien mit Makros auf dem Server laufen habe und da gibt es keine Probleme.

Danke und Gruß
Bernd

 

Hallo Bernd,

hast du die Checkbox "Vertrauenswürdige Speicherorte im Netzwerk zulassen (nicht empfohlen)" am Ende der Seite mit der Liste der vertrauenswürdigen Speicherorte gesehen? Diese muss angehakt sein, damit diese Einstellung auch am Server funktioniert.

 

Hallo,

ja der ist gesetzt.
Daran liegt es auch nicht aber guter Tipp.

Danke
Bernd