Macro that alows only saving as .xlsm or .pdf funtion

Hi... I have an workbook with protected VBA code and protected sheets. I know that excel environment is not safe at all and this passwords can be cracked. Either way i want to dificult a little more these from happening by not allowing the user to save the workbook in other formats than PDF or xlsm. This way (as VBA code is protected in xlsm file) they cant save the workbook in xls for then create a macro that allows them to unlock the worksheets. So if i prevent them to save the file in xls them they will have to break the VBA to write the macro to unlock the sheets. Thats way i need this macro. Is there any way of doing this? I also have a macro in a button, in a sheet, that saves 3 pages of that worksheet into PDF. Thats why i need the macro to allow save as PDF too.

Thank you

I think it may be something to do with this:

Please Login or Register  to view this content.

But this prevents ALL save as... And i want it to allow user to change name, but only if it is in file format xlsm or pdf.

The below works for me. I can't remember where I found it. It will only allow saving as a .xlsm. It will not allow saving as .pdf except if you use "Save and Send".

Please Login or Register  to view this content.