Need code for Message upon closing.

[ygeducation]

I am totally new to code and need some help please. I have a workbook that staff input data but once completed I need to provide a reminder to save as a new name.
Much appreciate any help, we are using excel 2010.

[AndyLitch]

Put this code in the ThisWorkbook module

Please Login or Register  to view this content.

[ygeducation]

Thanks for this, however I am still able to close it without changing the name. I put this code in the Macro screen and selected 'this workbook' but to now success, am I doing something wrong?

[AndyLitch]

OK

This in a code module

Please Login or Register  to view this content.

This in the ThisWorkbook module

Please Login or Register  to view this content.

[HaHoBe]

Hi, ygeducation,

what about using a template for the workbook to be filled?

Ciao,
Holger

[ygeducation]

Thanks everyone, got it working, much appreciate you assistance.

[ygeducation]

Came up with another issue and hope someone can help. I get the warning message upon closing but I need to input a "Cancel' feature otherwise when they click OK, it actually saves over the document. I need it to force the user to use the "Save As" feature only. Here is the code I currently have:
[COLOR="#FF0000"]Private Sub Workbook_Open()
MsgBox "This is only an input workbook.", vbInformation + vbOKOnly
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Did you remember to save your work", vbInformation + vbOKOnly
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Remember to save file as the JV number.", vbCritical + vbOKOnly
End Sub