Macro altera qualquer arquivo excel que eu abro

[rodrigo_mgoncalves]

Boa tarde. Sou novo no fórum. Espero poder contribuir. Mas como a grande maioria, já entro com uma dúvida.. rss...

Tenho um arquivo que ao ser aberto, automaticamente oculta barra de menus, planilhas(plan1, plan2, plan3...), desabilita alguns comandos como "Ctrl + PageUp", entre outros.

Deixando somente os campos onde devem ser preenchidos os dados pelos usuários.

Meu problema é que qualquer outra planilha que for aberta de alguma forma ela herda as caracterísitcas da citada a cima impedindo que os usuarios trabalhem. Gostaria que essas alterações que fiz se limitassem somente nessa planilha.

Atualmente esse é o codigo:

Private Sub Workbook_Activate()

Worksheets("Planejador").Protect Password:="xxxxx", UserInterfaceOnly:=True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = Not Application.DisplayStatusBar
Application.OnKey "%{F11}", ""
Application.OnKey "%{F8}", ""
Application.OnKey "^x", ""
Application.OnKey "^v", "colar_especial"
Application.OnKey "^{PGDN}", ""
Application.OnKey "^{PGUP}", ""
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayNoteIndicator = False
Application.CellDragAndDrop = True
Application.Caption = "teste 2I"
ActiveWindow.DisplayHeadings = False
ActiveWorkbook.Windows(1).Caption = ""
Sheets("Planejador").Visible = True
'Sheets("LOG").Visible = True
Sheets("INICIAL").Visible = False
Sheets("Planejador").Select

End Sub

Private Sub Workbook_Deactivate()

Application.CellDragAndDrop = False
Sheets("INICIAL").Visible = True
Sheets("Planejador").Visible = False
'Sheets("LOG").Visible = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayNoteIndicator = True
Application.OnKey "%{F11}"
Application.OnKey "%{F8}"
Application.OnKey "^x"
Application.OnKey "^v"
Application.OnKey "^{PGDN}"
Application.OnKey "^{PGUP}"

End Sub

Já tentei os comandos abaixo, porém não funcionaram. Alguém pode me ajudar?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

Private Sub Workbook_Open()