Username: Blattschutz ersteller

Forumthread: Username: Blattschutz ersteller
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Username: Blattschutz ersteller

05.05.2003 18: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

Re: Username: Blattschutz ersteller

05.05.2003 18:39:14

Nepumuk
Re: Username: Blattschutz ersteller

05.05.2003 18:46:30

Marcus
Re: Username: Blattschutz ersteller

05.05.2003 18:58:28

chris b
Re: Username: Blattschutz ersteller

05.05.2003 18:59:08

chris b

Re: Username: Blattschutz ersteller

05.05.2003 18: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 18: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