VBA to prevent saving workbook

[herbc0704]

I am working in Excel 2013. Is there a VBA to prevent the user from saving or save as to another location? Also, is there a way to turn off this VBA only by me when I have to make changes to the workbook?

 

[HalfAce]

Hi,
There are certainly ways to prevent saving a workbook but, as you've guessed, it would be difficult to save it like that so it will work the way you want for the next user. About the quickest solution that comes to mind (without any coffee yet...) would be to require a password before allowing to save.
You can try something like this in your ThisWorkbook code module.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim PW As String
PW = InputBox("Enter a password to save this file.", "Password To Save")
If PW <> "MyPassword" Then Cancel = True
End Sub

(Obviously, you'll need to replace 'MyPassword' with whatever your password is...)

As stated earlier, there are plenty of ways to achieve this, including testing for the username and allowing/disallowing to save depending on who the user is, but this is about the quickest way to get there that I can think of right now.

Hope it helps.

 

[herbc0704]

Ace, Thanks!