Disable "SAVE AS" function - Does not work

[Villalobos]

Hi,

I have this code in ThisWorkbook to avoid that the user "SAVE AS" the workbook (the "SAVE" function is allowed) under different name or even in a different location, but unfortunately I able to "SAVE AS" it and I do not know why?!

 Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = True Then Cancel = True
End Sub

Do you have any idea how to disable only the "SAVE AS" function? I use Excel2013.



Thank you the reply!

 

[Deepak]

Hi,

It wouldn't produced any unnatural error. Working just fine.
Pls share the sample workbook to loop more why this' doesn't execute itself.

Must Check "Macro needs to enable to run it".

 

[Villalobos]

I have uploaded it.

 

[Deepak]

Works! Just fine.

 

[Villalobos]

hmmm... Ok, the problem is just on my side.
Thank you for your time.

 

[Debraj]

Hi Villalobos

I have read somewhere.. excel 2013 has Two types of SAVE AS method.

• One using Alt + F + A using Save As Dialog Box.
• Another is though File menu.. Then Startup Screen > Then selecting your desired location (Skydrive / SharePoint / Computer) then Save as..

Using second option, its first checks your Shared location, then show a startup screen, and then go through Save as Option.. Its only due to New Cloud Computing technology.

Right now in office, No access of Office 2013, I will definitely re-confirm, when back to home..

 

[Villalobos]

Hi Debraj,

It is interesting, I waiting for you!

 

[Debraj]

Hi Villalobos

Tested and working fine.. in 2013..
Its giving chance to go to File Menu.. displaying Startup Screen..
But .. click on Folder / Drive / Shared Location, is not working (as expected)..

Its blocking just "Save As" Dialog box..

 

[Villalobos]

Thanks Debraj the confirmation!