Herbers Excel/VBA-Archiv
Anzeigen Datei bereits geöffnet | Herbers Excel-Forum
- Anzeigen Datei bereits geöffnet von René vom 02.02.2010 22:44:07
- AW: Anzeigen Datei bereits geöffnet - von wolfgang am 03.02.2010 06:36:47
Betrifft: Anzeigen Datei bereits geöffnet
von: René
Geschrieben am: 02.02.2010 22:44:07
HALLO
gibt es eine Möglichkeit eine Meldung in einer Datei anzuzeigen wenn die Datei bereits von einem anderen Nutzer zur Bearbeitung geöffnet wurde. Würde mich über jeden Tipp freuen. Gruß René
Betrifft: AW: Anzeigen Datei bereits geöffnet
von: wolfgang
Geschrieben am: 03.02.2010 06:36:47
Hallo Rene,
eine Möglichkeit wäre, mit einem "versteckten Protokoll" Deine Datei zu überwachen.
(wird die Datei geöffnet - oder gedruckt - oder gespeichert - oder geschlossen, erfolgt automatisch eine
versteckte Protokollierung mit Uhrzeit und Tagesdatum) Das Protokoll kannst Du dann mit "Alt +F8" sichtbar machen.
Mit Gruß
Wolfgang
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Protokoll").Unprotect (Passwort)
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(1, 0).Value = Date
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 1).Value = Time
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 2).Value = Application.UserName
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 3).Value = "Schließen"
Sheets("Protokoll").Cells.EntireColumn.Hidden = True
Sheets("Protokoll").Protect (Passwort)
Sheets("Protokoll").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Protokoll").Unprotect (Passwort)
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(1, 0).Value = Date
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 1).Value = Time
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 2).Value = Application.UserName
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 3).Value = "Drucken"
Sheets("Protokoll").Cells.EntireColumn.Hidden = True
Sheets("Protokoll").Protect (Passwort)
Sheets("Protokoll").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Protokoll").Unprotect (Passwort)
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(1, 0).Value = Date
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 1).Value = Time
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 2).Value = Application.UserName
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 3).Value = "Speichern"
Sheets("Protokoll").Cells.EntireColumn.Hidden = True
Sheets("Protokoll").Protect (Passwort)
Sheets("Protokoll").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Open()
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Protokoll").Unprotect (Passwort)
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(1, 0).Value = Date
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 1).Value = Time
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 2).Value = Application.UserName
Sheets("Protokoll").Range("a65536").End(xlUp).Offset(0, 3).Value = "Öffnen"
Sheets("Protokoll").Cells.EntireColumn.Hidden = True
Sheets("Protokoll").Protect (Passwort)
Sheets("Protokoll").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub