ich hab im archiv folgenden code vom renee gefunden: (eingebettet in "diese arbeitsmappe")
Private Sub Workbook_Open()
On Error GoTo add_property
If ThisWorkbook.ReadOnly = True Then
MsgBox "Datei wird wieder geschlossen, weil..." & vbCrLf & _
"BenuterIn hat die Datei geöffnet!", _
vbOKOnly + vbExclamation, _
"Lock-Check"
ThisWorkbook.Close (False)
Exit Sub
End If
ThisWorkbook.CustomDocumentProperties("LastUser") = Environ("Username")
ThisWorkbook.Save
Exit Sub
add_property:
ThisWorkbook.CustomDocumentProperties.Add _
Name:="LastUser", _
LinkToContent:=False, _
Type:=msoPropertyTypeString, _
Value:=Environ("Username")
Resume Next
End Sub
https://www.herber.de/forum/archiv/908to912/t908179.htm
Dieser prüft ob im netzwerk noch jemand diese datei geöffnet hat, falls ja, gibt dann den benutzer wieder und schließt die datei (funktioniert auch alles wunderbar)
Problem: ich werd vorher gefragt ob ich die datei "schreibgeschützt" öffnen soll oder informiert werden möchte wenn datei wieder zur verfügung steht.
Frage: gibt es eine Möglichkeit diese Abfrage auszuschalten, so dass die Datei gleich startet, oder sich schließen tut?
lieben gruß
sascha