I'm using the following code in "ThisWorkBook" but every time I try to test & click on Save As - it allows me to save - why is this not working?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "The 'Save As' Function has been disabled"
Cancel = True 'Cancels any request to save the file
End Sub
Where have you placed this code?
---
Hans
"IT" Always crosses your path!
May the (vba) code be with you... if it isn't; start debugging!
If you like my answer, Click the * below to say thank-you
in the Visual Basic "ThisWorkbook"
Strange, works fine here.
The moment I press the Save or SaveAs button I get the message box
Here's a link with some ideas
https://www.extendoffice.com/documen...llow-save.html
and this code will do it too
You will have to enable those command before ending the session
Please Login or Register to view this content.
I do have a couple of control boxes that I have macros assigned to in order pull items into & clear off form & in those macros it unprotects & reprotects the sheet.
seems like after these buttons are used then the "Save As" function is available again - would these buttons be causing an issue from the unprotecting & reprotecting sheet?
Well, have you re-read your answer to my question?
You say yourself that you have a couple of control boxes (all macro's then) and you want me (and the readers) to try and 'guess' if this is possible? How do you want us to guess if we don't even know what they do.
Think it over and explain more, guessing and assumptions are no options for helping someone.
my apologies - I will close out the thread until I can provide better information.
Not necessary to apologize, it's just that your information does not tell us everything.
Using the following code in VBA "ThisWorkbook" to try & disable the Save & Save As functions - but this is not working properly
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False
End Sub
Attached is spreadsheet I'm using & wanting to prevent the Saving Function - also contains VBA for emailing form
Hi, sorry for not answering but haven’t had the time ,
Will look later today and let you know
Try this, you can only save the file using the button on the sheet.
You can decide and add a prompt for a password or only allow certain people to save the file.
Now all save options are disabled.
We really don't want anyone to be able to save the file except me as administrator of the file.
I add / delete info from another sheet not shown in the attached example - then I save file & upload to a server for others to use - we just don't want them to be able to save the file to their desktop or anything - this way they have to go to the server & use the most recent updated file that I uploaded.
Well, then you delete the button and there is nothing they can do.
This also mean that YOU cannot save it either.
You could use a prompt for a password to allow to save
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks