How can I have two subroutines in ThisWorkBook?

[pteronaut]

I currently have a Workbook_Open subroutine in ThisWorkbook to force the workbook to open to the 1st sheet.

I want to add a BeforeSave subroutine to prevent saving by the pressing of Ctrl-S.

I can add both subroutines and they work.

However, the BeforeSave Subroutine does not get saved, no matter where I save it. (On my computer, or on my Onedrive where I share it with my co-workers)

Any help would be gratefully appreciated.

 

[Fluff]

Hi & welcome to MrExcel.
Are you preventing people from doing a save as, or just preventing them from saving?

 

[pteronaut]

Hi & welcome to MrExcel.
Are you preventing people from doing a save as, or just preventing them from saving?

Save As, (to prevent forking of a shared workbook) and Ctrl-S (to prevent accidental saving of volatile data)

I am hoping to combine these two subroutines:

Disable Save, Save As, Ctrl+S

I am currently working on a spreadsheet that I have diabled the Save, Save As, and Ctrl+S funtionality using the following code: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'disables Save, Save As, and Ctrl+S funtionality so users must use 'Save button...

www.mrexcel.com

Private Sub Workbook_Open()
 
Worksheets("Example").Activate
 
End Sub

 

[Fluff]

In that case you will need to disable macros, or open excel in safe mode so that you can save the workbook with the code.

 

[pteronaut]

In that case you will need to disable macros, or open excel in safe mode so that you can save the workbook with the code.

That worked.

Thank you.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[pteronaut]

Interestingly, I must have really screwed with my Trust settings, as the macros are still working if I disable Macros in Trust Center or starting in Safe Mode.

Only when I disable "Allow documents on a network to be trusted" are the macros disabled.

 

[Fluff]

If the file is in a trusted location, then macros will be enabled regardless of security settings.