Excel fil optaget af anden bruger

Har du overvejet at dele projektmappen?

Lav en makro i 'Workbook_Open' eventen, der gør det...

Hej Pistolprinsen

Du skulle vel ikke have koden til dette?

https://www.google.dk?#q=excel+do+not+tell+if+workbook+is+already+open

Jeg har prøvet at indsætte nedenstående. Men synes desværre ikke det virker. Når jeg som den første bruger åbner filen sker intet, hvilket er helt korrekt. Men når en anden så forsøger at åbne den (mens jeg stadig har den åben) kommer der bare den generelle excel meddelse der spørger om vedkommende vil åbne den som skrivebeskyttet eller give besked.

Nogen der kan hjælpe?

Private Sub Workbook_Open()


Dim location As String
Dim wbk As Workbook

location = "F:\Økonomi 2\Skabeloner\Excel\Rapportering af tid.xlsm"

Set wbk = Workbooks.Open(location)

'Check to see if file is already open
If wbk.ReadOnly Then
  ActiveWorkbook.Close
    MsgBox "Filen er desværre optaget"
    Exit Sub
End If

End Sub

Er der ikke nogen der har et bud på et kodestykke der, hvis den fil man prøver at åbne er i brug, kommer med en besked om at filen er optaget og dermed lukker den uden at åbne den som skrivebeskyttet?

lukkes