Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro alterando outros arquivos

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
rhodgoncalves
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Out 08, 2014 9:22 am

Macro alterando outros arquivos

Mensagem por rhodgoncalves »

Boa tarde.

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

Já rodei alguns fóruns e não consegui resolver... alguém consegue dar uma força?
Obrigado!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Rafael Monteiro
Consultor
Consultor
Mensagens: 277
Registrado em: Seg Nov 28, 2011 8:27 am
Localização: Sorocaba - SP
Contato:

Re: Macro alterando outros arquivos

Mensagem por Rafael Monteiro »

Tente com isso:

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_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Sheets("INICIAL").Visible = True
Sheets("Planejador").Visible = False
Sheets("LOG").Visible = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",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


Responder