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