Message on saving

[bionicle]

Hi all,

I have the following formula that isn't right.

I'm trying to change the message when you save the file, I need it to ask whether the data has been uploaded, if its a "yes" it will save and close, if its a "no" the it closes the message and opens the worksheet "data input"
This is what I have so far:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Have you uploaded the data?", vbYesNo) = vbYes Then Exit Sub
If MsgBox("upload now?", vbYesNo) = vbYes Then

This is where I'm stuck as I can't for the life of me remember what comes next...

Also, is there a way of stopping the workbook from being closed if there is no change made to the data input tab?

Thanks for you help in advance.

 

[Fluff]

How about

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Have you uploaded the data?", vbYesNo) = vbNo Then
   Cancel = True
   Sheets("Data Input").Select
Else
   Me.Save
End If
End Sub

 

[6StringJazzer]

To open the worksheet data input

   Worksheets("data input").Activate

However, it's not clear when you want this to happen in the sequence of steps. Before you ask to "upload now"? After you ask? After you ask but only if the answer is Yes?

Also, what does it mean "if there is no change made to the data input tab"? No change made when?

Once this sub is called you can stop the workbook from being closed with

Cancel = True

but it's not clear what conditions should be checked, or even if those conditions can be checked in this Sub.

 

[bionicle]

How about

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Have you uploaded the data?", vbYesNo) = vbNo Then
   Cancel = True
   Sheets("Data Input").Select
Else
   Me.Save
End If
End Sub

Thank you worked a treat.

 

[Fluff]

Glad we could help & thanks for the feedback.