Datei sperren...

Forumthread: Datei sperren...
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Datei sperren...

Datei sperren...

14.12.2024 13:37:35

sigrid

Hallo zusammen,
wir Schreiben im Büro manchmal mit 2 Personen Rechnungen, dabei werden die Rg.-Daten in einer Datenbank gespeichert.
Die Datenbank liegt auf einem Rechner1 \\Buch\d\_Rechnungen\Datenbank.xlsm,
der 2. Rechner \\Buch2\d\Rechnungen
der 2. Rechner muss also die Datenbank vom 1. Rechner holen damit die Daten übertragen werden, danach wird die
Datenbank auf dem Rechner 1 wieder gespeichert.
Wie kann man das verhindern ?
Irgendwie eine MsgBox sobald darauf zugegriffen wird, wenn die Datenbank noch in gebrauch ist.

gruß sigrid

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei sperren...

14.12.2024 14:13:17

Marc
AW: Datei sperren...

14.12.2024 14:20:01

Onur
AW: Datei sperren... Danke für die Info --))

14.12.2024 14:34:01

sigrid

AW: Datei sperren...

14.12.2024 14:13:17

Marc

also xlsm ist keine Datenbank..



Dim PDF_Bool As Boolean

PDF_Bool = TestOpenPDF("dein Pfad \" & dateinameMitEndung)



Function TestOpenPDF(DateiName As String) As Boolean

ThisWorkbook.Activate

Dim DateiNr As Long

Dim fehler As Long

On Error Resume Next

DateiNr = FreeFile()

Open DateiName For Input Lock Read As #DateiNr

Close DateiNr

FehlerNr = Err

On Error GoTo 0

Select Case FehlerNr

Case 0

TestOpenPDF = False

Case 53

'MsgBox "PDF wird erzeugt", vbOKOnly

TestOpenPDF = False

Case 70

TestOpenPDF = True

Case Else

'Error FehlerNr

'MsgBox "Fehler: " & FehlerNr, vbOKOnly

TestOpenPDF = False

End Select

End Function

AW: Datei sperren...

14.12.2024 14:20:01

Onur

Wenn eine Datei von User1 geöffnet ist und User2 will sie auch öffnen, kann er das ja nur schreibgeschützt machen. DAS kann man überprüfen.
Du öffnest ja irgendwie irgendwo die Datei.
Mach es stattdessen so:

Private Sub CommandButton1_Click()

   Dim DateiName

   DateiName = "C:\XXX\XXX\XXX\Datenbank.xlsm"

   Workbooks.Open DateiName

   If ActiveWorkbook.ReadOnly Then

      MsgBox "Datei wird z.Z. benutzt - bitte später noch einmal versuchen !"

      ActiveWorkbook.Close

   End If

End Sub