Dag Excel-experts,
Ik heb een xlsm-bestand dat gebruikt wordt door 5 personen (het bestand staat op een centrale locatie).
Bij het openen van het bestand zou ik graag hebben dat er een controle gebeurt of het bestand al in gebruik is door een collega.
Indien in gebruik, verschijnt er een MsgBox met de boodschap "Het bestand is al in gebruik" (ik wil vermijden dat het document wordt geopend in dat geval).
Indien niet in gebruik verschijnt er een MsgBox met de boodschap "Welkom" en opent het XLSM-bestand.
Ik heb via Google al verschillende opties gevonden maar ik krijg altijd een foutmelding.
Mogelijk kan er mij iemand op weg zetten en aangeven waar de code verkeerd is?
Alvast bedankt,
Bert
Ik heb een xlsm-bestand dat gebruikt wordt door 5 personen (het bestand staat op een centrale locatie).
Bij het openen van het bestand zou ik graag hebben dat er een controle gebeurt of het bestand al in gebruik is door een collega.
Indien in gebruik, verschijnt er een MsgBox met de boodschap "Het bestand is al in gebruik" (ik wil vermijden dat het document wordt geopend in dat geval).
Indien niet in gebruik verschijnt er een MsgBox met de boodschap "Welkom" en opent het XLSM-bestand.
Ik heb via Google al verschillende opties gevonden maar ik krijg altijd een foutmelding.
Mogelijk kan er mij iemand op weg zetten en aangeven waar de code verkeerd is?
Alvast bedankt,
Bert
Code:
Sub isFileOpen()
Dim wkBk As Workbook
If WorkbookOpen("Start.xlsm") Then
Workbooks("Q:\Group Shared\Start.xlsm").Activate
MsgBox "Het bestand is momenteel in gebruik."
Else
Set wkBk = Workbooks.Open("Q:\Group Shared\Start.xlsm")
MsgBox "Welkom"
End If
End Sub
Function WorkbookOpen(WorkBookName As String) As Boolean
WorkbookOpen = False
On Error GoTo WorkBookNotOpen
If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
WorkbookOpen = True
Exit Function
End If
WorkBookNotOpen:
End Function