أخي @عبد اللطيف سلوم جرب هذا الكود قد يفي بالغرض
Dim status As Boolean
status = 0
If (MsgBox("ضغط عند الخروج" & Chr(13) & Chr(13) & "هل تريد ضغط قاعدة البيانات عند الخروج", vbYesNo, "ضغط اٍختياري")) = vbYes Then
status = 1
Else
status = 0
End If
Application.SetOption "Auto Compact", status