Show the form modally so it holds up code execution in the beforesave event.
VB Code:
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  2.     Form.Show vbModal

  3.     If save = 0 Then

  4.         Exit Sub

  5.     End If

  6. End Sub