Anzeigen Datei bereits geöffnet

Forumthread: Anzeigen Datei bereits geöffnet

René

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é

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: Anzeigen Datei bereits geöffnet

wolfgang

AW: Anzeigen Datei bereits geöffnet

03.02.2010 06:36:47

wolfgang

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Anzeigen Datei bereits geöffnet

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread