Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userabhängiger Schreibschutz einer Arbeitsmappe

Forumthread: Userabhängiger Schreibschutz einer Arbeitsmappe

Userabhängiger Schreibschutz einer Arbeitsmappe
22.08.2002 10:08:36
Stefan B.
Hallöle,
folgende Herausforderung beschäftigt mich gerade. Ich möchte eine Excel-Arbeitsmappe nur für bestimmte - z.B. im Coding hinterlegte - Benutzer mit Schreibrechten öffnen lassen. Alle anderen sollen nur lesen können. Zusätzlich soll nur für die schreibberechtigten User in einem Arbeitsblatt ein Protokoll geschrieben werden: Wann wurde und wer hat dieses Dokument bearbeitet und gespeichert. Für "Nur-Lese-User" soll kein Protokoll geschrieben werden.
Schon mal vielen Dank im voraus für eure Hilfe...
MfG Stefan
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Userabhängiger Schreibschutz einer Arbeitsmappe
22.08.2002 11:15:47
mathias r.
Das Speichern könntest du im BeforeSave-Ereignis unterbinden. Das Protokoll kann ja ersteinmal für alle geschrieben werden. Wenn die Mappe dann nicht gespeichert wird, verfällt das Protokoll eben.
Re: Userabhängiger Schreibschutz einer Arbeitsmappe
22.08.2002 11:17:34
Herbert
hallo thomas,
Datei schreibschützen,das Kennwort den berechtigten personen bekanntgeben.
das protokollieren mit folgenden makros:

entweder mit diesem ereignismakro,speichern mit standard-symbolschaltfläche

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim uname As String
Dim zellnr As Integer
zellnr = Sheets("Tabelle2").Range("D1")
    uname = Application.UserName
    Range("Tabelle2!A" & zellnr) = uname
    Range("Tabelle2!B" & zellnr) = Date
    Range("Tabelle2!C" & zellnr) = Time
End Sub

oder mit diesem makro,daß mit einer schaltfläche ausgeführt wird

Sub Speichern()
Dim uname As String
Dim zellnr As Integer
zellnr = Sheets("Tabelle2").Range("D1")
    uname = Application.UserName
    Range("Tabelle2!A" & zellnr) = uname
    Range("Tabelle2!B" & zellnr) = Date
    Range("Tabelle2!C" & zellnr) = Time
    ActiveWorkbook.Save
End Sub

und in einer ausgeblendeten tabelle fogendes:

gruß herbert 


Anzeige
Re: Userabhängiger Schreibschutz einer Arbeitsmappe
22.08.2002 12:10:54
Ralf Sögel
vergiss nicht, den usern mitzuteilen, dass ein Protokoll geführt wird.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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