Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auflistung der Benutzer II

Forumthread: Auflistung der Benutzer II

Auflistung der Benutzer II
13.10.2004 12:16:28
Nico
Hi @ll,
nachdem mir Jürgen geholfen hat, die Änderungen durch Benutzer der Datei mitzuloggen, habe ich 1 Problem und 1 Frage.
Problem:
Wenn ich die Datei zur Bearbeitung durch mehrere User freigebe, kommt der Laufzeitfehler 1004
Die Unprotect-Methode des Worksheet-Objektes ist fehlerhaft.
Wie bekomme ich das gelöst?
Frage:
Im Logbuch wird der User, das Datum, das Tabellenblatt und die geänderte Zelle geloggt. Ist es möglich auch mitzuloggen, wer z.B. Spalten aus- oder einblendet oder das mitgeloggt wird, wer die Datei einfach nur geöffnet hat bzw öffnen wollte? (einige User sind ausgesperrt)
Mein erster Thread:
https://www.herber.de/forum/messages/499504.html
Danke und Gruß
Nico
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auflistung der Benutzer II
Bert
In freigegebenen Mappen kein kein Schutz aufgehoben oder gesetzt werden!
Bert
AW: Auflistung der Benutzer II
Jürgen
Hallo Nico,
zu 1.nochmal:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intLZ, Sh As Worksheet
Set Sh = ActiveSheet
With Sheets("Logbuch")
.Unprotect ("dein passwort")
intLZ = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(intLZ, 1) = UserName
.Cells(intLZ, 2) = Date
.Cells(intLZ, 3) = Sh.Name
.Cells(intLZ, 4) = Target.Address
.Protect ("dein passwort")
End With
End Sub

Jürgen
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige