Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Username: Blattschutz ersteller

Username: Blattschutz ersteller
05.05.2003 16:17:39
chris b
Hallo Excel Profis,habe eine frage und zwar lässt es sich irgendwie nachvollziehen welcher User also Benutzername den Blattschutz erstellt(eingegeben) hat,nicht der der die Datei zuletzt gespeichert.Vielen Dank Chris

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Username: Blattschutz ersteller
05.05.2003 16:39:14
Nepumuk

Hallo Chris,
nur wenn du vor dem Speichern den Status der Tabellen abfrägst und falls dies geschützt wurden, in z.B. einem augeblendeten Tabellenblatt, den Usernamen einträgst.
Gruß
Nepumuk

Re: Username: Blattschutz ersteller
05.05.2003 16:46:30
Marcus

Hi Chris,
du könntest beim speichern prüfen, ob das Blatt geschützt ist.
Wenn es nicht geschützt ist, wird eine reservierte Zelle im Blatt gelöscht.
Wenn es geschützt ist und die reservierte Zelle ist nicht leer, wird der Benutzername in die Zelle egschrieben.
Wenn diese schon besetzt ist, wird kein neuer Name in die Zelle geschrieben.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")

With ws
If .ProtectContents = False Then
.Range("A1") = ""
ElseIf .Range("A1") = "" And .ProtectContents = True Then
.Unprotect
.Range("A1").Value = Application.UserName
.Protect
End If
End With
End Sub

mfg
Marcus

Anzeige
Re: Username: Blattschutz ersteller
05.05.2003 16:58:28
chris b

Vielen Dank Marcus !!!!!!!!!

Re: Username: Blattschutz ersteller
05.05.2003 16:59:08
chris b

Danke !

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige