Password protect or prohibit the "Save" & "Save as" option in Excel

David77

Board Regular
Joined
Jun 24, 2020
Messages
109
Office Version
  1. 365
Platform
  1. Windows
Hello everybody,

I am currently managing an order form in Excel, where people download it and then they go in every day, fill out the details and submit the order through a macro. They will just need to download it once and then do this whenever they have an order.

However, is there any way in which I can make it so they cannot save the file with their changes once they've downloaded it? So that the file will essentially always remain in it's alpha version with no changes being possible?

I have password protected all the cells that I don't want them to edit, but some of these cells naturally have to be edited so they can send out the order with this information. However, once they close the Excel file, I don't want them to save this information from their last order (so it does not pop up the next time they create an order).

I know that obviously they could just choose not to save the Excel file whenever they do this, but it would be nice if there was a smarter solution in order to avoid any human errors.

Does anybody know of any solutions to this problem? Would greatly appreciate!

Thank you very much for your time everybody :)

Best regards,
David
 

Some videos you may like

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.

offthelip

Well-known Member
Joined
Dec 23, 2017
Messages
1,489
Office Version
  1. 2010
Platform
  1. Windows
you could try this in the workbook before save event:
VBA Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
 

David77

Board Regular
Joined
Jun 24, 2020
Messages
109
Office Version
  1. 365
Platform
  1. Windows
you could try this in the workbook before save event:
VBA Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Thank you!! :)
 

Watch MrExcel Video

Forum statistics

Threads
1,112,817
Messages
5,542,670
Members
410,567
Latest member
SCraig123
Top