How to insert code into a workbook from another workbook

[Frenzyy]

Hi All, not sure if this is even possible but I'm trying to save a file from another workbook and then ensure that nobody can update any links in it, etc. upon opening, and so I'd need to insert the below two lines of code under 'Workbook_Open' but I'm unsure how to this, so I'd greatly appreciate some help.

Application.AskToUpdateLinks = False
Application.DisplayAlerts = False

This is my save as line:

 wb2.SaveAs fileName:=filePath & "\" & fileName & ".xlsm", ReadOnlyRecommended:=True

Many thanks!

 

[Trevor G]

Open both workbooks and In the VBA Screen on the left you should see a list of workbooks and sheet names and any modules you have. Just below the last sheet name for the book you want the code in it will show you ThisWorkBook. Double click this and it will then give you two drop downs at the top change the left one from General to Workbook this will then give you the On_Open Event and paste your code above End Sub.

 

[Frenzyy]

Hi Trevor, sorry if I wasn't clear enough with my question but I'm looking to do it using the code within the already activeworkbook, if you know what I mean. As you can see above, I'm saving the newly created workbook so that it later opens as read-only. Now I want to add what I mentioned above as well but just unsure how.

Thanks!