Hi,

I´ve got this macro in a workbook (inside Thisworkbook), and i need it
not to get copied when i save as... ; so original won´t change.


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


Any idea??? I´ve already tried this inside the command button from
which i save as :



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


But first try it kept the copy with false options and original changed,
and second try gave an error


THANKS A LOT AND MERRY CHRISTMAS