protectedsaving of file

[wmtsub]

is there someway that i can ran a macro or a script or an object thast would not permit anyone to save my file unless they have a password other than protecting the file in wiondows? I wonder if that can be done from insiew the workbook.

 

[wmtsub]

soI created a UAL.TXT file in my document folder and added my name. Corrected the path to its location and saved a file. then opened the txt file and changed my name. opened and saved the xls again and it allowed me to. Does nto seem to stop teh un authorized person from saving the file.

I like the idea of a Whitelist abd in the future I may adopt that tactic. But right now what I really need is to not allow the file to be saved [just closed] if teh system user name is not "ME". How do i adjust the script for that?

 

[wmtsub]

Got a solution, thought to share it:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName = "***" Then GoTo xit
Cancel = True 'Cancels any request to save the file
Application.ThisWorkbook.Saved = True 'Tells Excel that the file has already been saved (this prevents Excel from requesting that you save the file when you close it)

xit:
End Sub​