Microsoft Excel

Herbers Excel/VBA-Archiv

Anzeigen Datei bereits geöffnet | Herbers Excel-Forum


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




Beiträge aus den Excel-Beispielen zum Thema "Anzeigen Datei bereits geöffnet"