VB button & code to save workbook

I am trying to make a invoice for work , I have a couple of bits i will try and explain that require a vb code. I don't know to much about VB and would not know where to start. Could someone please help me with this.


I have inserted the workbook. I am wanting to make an invoice. In D5 i have a drop downlist with a list of names and a save button. I would like to find a code that when i click the save button it would automatically save the entire workbook to a directory on my server "\\server\invoices\" The name of the saved file would be the name that's in cell D5 from the drop down list.

When the save button is clicked i would like it not only to save the workbook but to close it but not save the original file, so the next person that opens it gets a clean invoice.

One last thing on the saved workbook i would like the macros to be disabled so no-one can change any info or click save again etc.

Give this a try and see if this is what your talking about


Change the code in Red to your file path (where you want the file saved)

Please Login or Register  to view this content.

Thanks, J

The macro above only closes the workbook

This will exit the entire application.

Replace

Please Login or Register  to view this content.

With

Please Login or Register  to view this content.

And you should be good to go.

Originally Posted by Slomaro2000

Give this a try and see if this is what your talking about


Change the code in Red to your file path (where you want the file saved)

Please Login or Register  to view this content.

Thanks, J

Thanks for the quick reply, i have used this code and added application.quit as suggested by Slomaro2000. It seems to work ok but when i go into the saved file the save button still works could i disable this on the saved workbook?

I am also thinking of adding an increment number to the invoice, i would like this still to work on the original file so it goes up one each time.

Sorry guys its starting to sound like a mission. Thanks for your help so far

Sorry just incase anyone missed it, could anyone help here?

Is there anyone outthere who could point me in the right direction to solve this?

bump...