No traspasar las macros de thisworkbook al guardar como

Muy buenas,

Tengo esta macro en un libro (en Thisworkbook), y quiero que cuando
grabe el archivo como otro libro, no se traspase (vamos, que el
original permanezca igual):

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Web").Visible = False
end sub

¿Alguien puede darme alguna pista?
He probado a dentro del boton en el que tengo el guardar como a hacer
lo siguiente:

Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWindow.DisplayWorkbookTabs = True
Application.CommandBars("Web").Visible = True
ThisWorkbook.SaveCopyAs "C:...\..."
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Web").Visible = False

pero primero me dejaba la copia igual y me modificaba el original y
despues me daba un error en la tercera Application

¿Alguna idea?

GRACIAS Y FELICES FIESTAS