Abfrage "Dokument wird verwendet" unterdrücken
Sascha
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
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
Anzeige