Afvangen systeemmelding dat Excelbestand in gebruik is

[ambra]

Ik heb het volgende probleem.
Op het netwerk (citrix) is een Excel-bestand beschikbaar welke door meerdere gebruiker geopend en bewerkt kan worden. Bestand is niet ingesteld als Gedeeld. Dit ivm andere problemen met uitvoeren macro's
Ik wil de gebruiker die als tweede het bestand wil openen een melding geven dat het bestand al open is en niet bewerkt kan/mag worden.
Het bestand moet dan weer sluiten.

Standaard komt er een melding dat het bestand al geopend is door: naam gebruiker.
Je kunt dan kiezen voor bijv. openen met alleen lezen of waarschuwen.
Deze melding wil ik dus afvangen en vervangen door eigen melding gevolgd door afsluiten bestand.
Is er iemand die mij op weg kan helpen met een macro?
Alvast bedankt voor de moeite.

 

[enijhuis]

Beter laat dan nooit.
Plak de volgende code in het Workbook-object. Hiermee zou het moeten lukken

Private Sub Workbook_Open()

    Const MY_ERR_NR = 666

    On Error GoTo ErrHandler

    If ThisWorkbook.ReadOnly Then
        Err.Raise MY_ERR_NR, "Workbook_Open", "Mijn melding"
    End If

    Exit Sub
ErrHandler:
    Select Case Err.Number
        Case MY_ERR_NR
            MsgBox Err.Description, vbInformation
            ThisWorkbook.Close SaveChanges:=False
        Case Else
            MsgBox "Onverwachte fout:" & vbCrLf & Err.Description, vbExclamation
    End Select
End Sub