Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Travas movinto das ...
 
Notifications
Clear all

Travas movinto das planilha - VBA

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
1,190 Visualizações
RSS
 Felipe ICS
(@felipe-ics)
Posts: 14
Active Member
Topic starter
 

Olá amigos, estou tentando impedir que o usuário movimente as planilhas (verticalmente e horizontalmente), então no VBE desabilitei as barras de rolagens:

ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False

NO entanto se o usuário acionar o botão de rolagem no mouse a planilha se movimenta normalmente, tem alguma maneira de impedir esse movimento ?

 
Postado : 27/08/2013 10:07 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Veja se este exemplo de código te ajuda:

ActiveSheet.ScrollArea = "A1:T25"

Para retornar ao estado anterior:

ActiveSheet.ScrollArea = ""

Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/08/2013 4:17 am
 Felipe ICS
(@felipe-ics)
Posts: 14
Active Member
Topic starter
 

Vlw amigo, funcionou sim, porem apenas para a planilha ativa, ou seja, apenas a que abre na inicialização do excel. Como faço para deixar em todas planilhas ?

 
Postado : 29/08/2013 12:33 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma sugestão é voce colocar esse código no "Private Sub Workbook_Open()", assim que a pessoa abrir a planilha o código vai se executar automaticamente, desde que, claro, as macros sejam ativadas.
Lá voce pode colocar o nome das plans que voce quer definir como no exemplo abaixo:

'DELIMITA A ÁREA DE ACESSO DA PLANILHA DE RELAÇÃO DE COLABORADORES
Sheets("RELAÇÃO DE COLABORADORES").ScrollArea = "A1:AQ250"

'DELIMITA A ÁREA DE ACESSO DA PLANILHA DE CADASTRO
Sheets("CADASTRO").ScrollArea = "A1:K53"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/08/2013 6:45 am
Forum Jump:
  Tópico Anterior
Próximo Tópico