Besked ved lukning af fil

I kodemodulet ThisWorkbook kan du lave følgende:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Worksheets("Sheet1").Range("A1").Value = "" Then
        MsgBox "Du skal huske at indtaste løbenummeret!!", _
            vbExclamation + vbOKOnly, "Systemcheck"
        Cancel = True
    End If
End Sub

Brugeren kan nu kun lukke arket, hvis Sheet1 celle A1 er udfyldt.

Fik du det løst ?