Pesquisar na Comunidade

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()