Este fórum está sendo desativado

[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?

[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...

[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!