وعليكم السلام عليك بلصق هذه الأكواد فى حدث This Workbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "مع السلامة " & Application.UserName & _
vbNewLine & "فى حفظ الله شرفتنا", _
vbInformation, "منتدى أوفيسنا"
ThisWorkbook.Save
Application.Quit
End Sub
Private Sub Workbook_Open()
MsgBox "أهلا وسهلا يا " & Application.UserName & _
vbNewLine & "أتمنى أن تكون فى أفضل حال", _
vbInformation, "منتدى أوفيسنا"
End Sub