Tenho um arquivo que ao ser aberto, automaticamente oculta barra de menus, planilhas, inibe alguns comando com "Ctrl + PageUp", entre outros comandos.
Deixando somente os campos onde devem ser preenchidos os dados pelos usuários.
Meu problema é que qualquer outra planilha que for aberta (com excessão de uma "nova planilha") de alguma forma ela herda as caracterísitcas da outra impedindo que os usuarios trabalhem.
Atualmente esse é o codigo:
Código: Selecionar todos
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
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Private Sub Workbook_Open()
Já rodei alguns fóruns e não consegui resolver... alguém consegue dar uma força?
Obrigado!