U
universal
Hello All,
Since Im employing the HidingWorksheets / ForcingMacros solution, I
have to ensure that on close the formats are restored and worksheets
Hidden/MadeVisible.
Im trying to force a SaveAs on close too, since the users will probably
have double-clicked as an attachment from an email and wont know to
save to the network.
Unfortunately, after pressing [x] and answering "Yes" to the prompt, if
they then cancel the SaveAs, the macro still runs to completion and
quits excel. Is there any way to make "Cancel" from the SaveAs dialog
Exit the Sub?
Many Thanks,
Eddie
Code below:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim closercheck As Long
closercheck = MsgBox("Would you like to save before quitting Excel?",
vbInformation + vbYesNoCancel)
Select Case closercheck
Case Is = vbYes
Application.ScreenUpdating = False
Call restoremacros
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show
Application.Quit
Case Is = vbNo etc...
Since Im employing the HidingWorksheets / ForcingMacros solution, I
have to ensure that on close the formats are restored and worksheets
Hidden/MadeVisible.
Im trying to force a SaveAs on close too, since the users will probably
have double-clicked as an attachment from an email and wont know to
save to the network.
Unfortunately, after pressing [x] and answering "Yes" to the prompt, if
they then cancel the SaveAs, the macro still runs to completion and
quits excel. Is there any way to make "Cancel" from the SaveAs dialog
Exit the Sub?
Many Thanks,
Eddie
Code below:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim closercheck As Long
closercheck = MsgBox("Would you like to save before quitting Excel?",
vbInformation + vbYesNoCancel)
Select Case closercheck
Case Is = vbYes
Application.ScreenUpdating = False
Call restoremacros
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show
Application.Quit
Case Is = vbNo etc...