Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como limitar área d...
 
Notifications
Clear all

Como limitar área de trabalho?

 
2024 - VBA & Macros
Post Recente por Deni89 9 anos atrás
8 Posts
3 Usuários
0 Reactions
1,287 Visualizações
RSS
 Deni89
(@deni89)
Posts: 0
New Member
Topic starter
 

Olá pessoal!

Estou com um probleminha na minha planilha, não consigo limitar minha área de trabalho, já tentei duas formas:
Já tentei alterar a ScrollArea através da "Propriedade", por aqui eu consigo limitar minha área, salvo, mas quando fecho a pasta de trabalho e abro novamente tudo que configurei some e novamente pode-se alterar qualquer parte da planilha.

Já tentei também inserindo os códigos:

Private Sub Workbook_Activate()
Worksheets(1).ScrollArea = “A1:S25″
End Sub

e também:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.ScrollArea = "A1:S25"
End Sub

Mas também não deram certo.

Alguém saberia como fazer através de macro? Ou se estou errando em algum lugar?
Obrigado!

 
Postado : 22/02/2016 6:58 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Deni89,

Cara, tenta colocar na propriedade "Workbook_Open"

Qualquer coisa da o grito.
Abraço

 
Postado : 22/02/2016 7:10 am
 Deni89
(@deni89)
Posts: 0
New Member
Topic starter
 

Bom dia Deni89,

Cara, tenta colocar na propriedade "Workbook_Open"

Qualquer coisa da o grito.
Abraço

Bernardo, bom dia!

Obrigado pela sugestão, mas cara, tentei com "Workbook_Open" também não funcionou :|

 
Postado : 23/02/2016 5:38 am
 fcarlosc
(@fcarlosc)
Posts: 0
New Member
 

Bom-dia amigo,
Posta o seu arquivo.
att,
Francisco

 
Postado : 23/02/2016 6:00 am
 Deni89
(@deni89)
Posts: 0
New Member
Topic starter
 

Bom-dia amigo,
Posta o seu arquivo.
att,
Francisco

Bom dia Francisco...

Segue o link para o arquivo.
Note que algumas fórmulas não vão funcionar, pois ele usa dados de outra planilha como referência.

Obrigado desde já.

https://drive.google.com/file/d/0B3ytY3 ... sp=sharing

 
Postado : 23/02/2016 6:54 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Deni89,

Coloca isso em "EstaPasta_de_trabalho"

Option Explicit

Private Sub Workbook_Open()
    ThisWorkbook.Worksheets("Plan4").Activate
    ThisWorkbook.ActiveSheet.ScrollArea = "$A$1:$S$25"
End Sub

Qualquer coisa da o grito.
Abraço

 
Postado : 23/02/2016 7:11 am
 fcarlosc
(@fcarlosc)
Posts: 0
New Member
 

Aproveitando o código do Bernardo
Tenta assim:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Plan1.ScrollArea = “A1:S25″
End Sub

Na "Worksheet" e não no "Workbook"

 
Postado : 23/02/2016 10:03 am
 Deni89
(@deni89)
Posts: 0
New Member
Topic starter
 

Pessoal, muito obrigado!!

Valeu mesmo, problema resolvido!

Grande abraço.

 
Postado : 23/02/2016 11:28 am
Forum Jump:
  Tópico Anterior
Próximo Tópico