Makros nur ausführen, wenn nicht schreibgeschützt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rainer
Vielen Dank für den Tipp. Nur, wo geanau muss ich den Status von ReadGlobalState in die einzelnen Makros kopieren. Wenn ich ihn ganz zu Beginn einfüge, z.B. vor
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column &gt 13 Then Exit Sub
Kommt die Fehlermeldung: "Fehler beim Kompilieren. Ausserhalb einer Prozedur ungültig."
Wenn ich ihn nach
Private Sub Worksheet_Change(ByVal Target As Range)
einfüge kommt die Fehlermeldung
"Fehler beim Kompilieren Variable nicht definiert."
Und noch etwas: Wie könnte ich - falls ein User eine Änderung an der schreibgeschützten Datei vornehmen will eine Message-Box anzeigen z.b. mit der Meldung "Diese Datei ist schreibgeschützt - Änderungen können nicht gespeichert werden."
Danke und Gruss
Ben

Hallo Mustafa
Herzlichen Dank für die "Einmischung" und den Tipp. Jetzt funktionierts.
Ich habe aber noch 3 andere Problempunkte:
Ich habe folgenden Code, um jeweils Benutzername und Datum/Zeit der letzten Änderung in Zeile 14 - 16 zu schreiben.


Private Sub Worksheet_Change(ByVal Target As Range)
If ReadGlobalState = True Then Exit Sub
If Target.Column > 13 Then Exit Sub
Cells(Target.Row, 15) = Date
Cells(Target.Row, 16) = Time
Cells(Target.Row, 14) = Application.Username
End Sub

Frage 1: Wie muss ich das ändern, damit nur Änderungen in gewissen Spalten (z.B. Nr. 1 und 10) mit Datum/Zeit und User protokolliert werden?
Frage 2: Die Idee wäre, dass der User gemäss dem Netzwerkkennwort in Spalte 14 geschrieben wird. Mit Application.Username scheint das nicht zu klappen. Bei mir zwar schon, bei anderen Usern aber nicht. Gibt es etwas "besseres" als Application.Username?
Frage 3: Mir ist aufefallen, dass die Funktion "rückgängig" in meiner Datei nicht möglich ist. Liegt das an den Makros und falls ja, gibt es einen VBA-Code, der diese Funktion wieder einschaltet?
Ich hoffe, das sind nicht zu viele Fragen.
Vielen Dank und Grüsse aus Basel
Benno

Private Sub Worksheet_Change(ByVal Target As Range) If ReadGlobalState = True Then Exit Sub If Target.Column = 1 or Target.Column = 10 Then Cells(Target.Row, 15) = Date Cells(Target.Row, 16) = Time Cells(Target.Row, 14) = Environ.Username end if End Sub

Beliebteste Forumthreads (12 Monate)

Makros nur ausführen, wenn nicht schreibgeschützt

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makros nur ausführen, wenn nicht schreibgeschützt

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread