Página 1 de 1

Limite de zoom

Enviado: 18 Set 2018 às 13:26
por Luc
Boa tarde pessoal,

Preciso delimitar a variação de zoom de uma planilha. Quero que varie, por exemplo de 55% a 130%.

Quando alguém for dar zoom segurando control ou manualmente deve ser impossibilitado.

Existe uma macro para isso?

Limite de zoom

Enviado: 18 Set 2018 às 16:51
por ExcelFlex
Boa tarde, quando usuario modifica o Zoom, não gera nenhum evento, então não é possível rastrear.

Você poderia incluir uma rotina de verificação de zoom tipo:
if ActiveWindow.Zoom < 55 then ActiveWindow.Zoom = 55
if ActiveWindow.Zoom > 130 then ActiveWindow.Zoom = 130

Mas isso precisaria ficar dentro de um loop ou um Timer...

Fala mais um pouco sobre porque você precisa limitar isso, quem sabe podemos ajudar...

Limite de zoom

Enviado: 21 Set 2018 às 09:37
por Luc
ExcelFlex,

O motivo é que não queria que o usuário percorresse a planilha em branco.

Ocultando as linhas dá certo, mas fica aquele azulão limbo estranho.

Eu consegui limitando a área de scroll da planilha assim:

No workbook(EstaPasta_de_trabalho):
Código: Selecionar todos
Option Explicit

Private Sub Workbook_Open()
    
    limita_area
    
End Sub
No módulo normal:
Código: Selecionar todos
Option Explicit
Option Private Module

Public Sub limita_area()
    
    Sheets("-DEZSED").ScrollArea = "A1:V150"
    Sheets("JANSED").ScrollArea = "A1:V150"
    Sheets("FEVSED").ScrollArea = "A1:V150"
    Sheets("MARSED").ScrollArea = "A1:V150"
    Sheets("ABRSED").ScrollArea = "A1:V150"
    Sheets("MAISED").ScrollArea = "A1:V150"
    Sheets("JUNSED").ScrollArea = "A1:V150"
    Sheets("JULSED").ScrollArea = "A1:V150"
    Sheets("AGOSED").ScrollArea = "A1:V150"
    Sheets("SETSED").ScrollArea = "A1:V150"
    Sheets("OUTSED").ScrollArea = "A1:V150"
    Sheets("NOVSED").ScrollArea = "A1:V150"
    Sheets("DEZSED").ScrollArea = "A1:V150"

End Sub
Nas worksheets:
Código: Selecionar todos
Option Explicit
Também apliquei uma cor a todo o fundo exterior através de uma macro de formatação condicional.

Encontrei em pesquisas uma forma de controlar o zoom, mas é um pouco instável e às vezes provoca um erro na macro, então descartei.

Mesmo assim, obrigado pela ajuda!