Prezados (as), bom dia!

Quero compartilhar com vocês o código abaixo. Eles são interessantes, pois configuram a apresentação da planilha e do userform conforme a resolução/tamanho do monitor, ou seja, ao abrí-la, o código se encarregar de configurá-la.

Certamente muito de vocês possuem esse código, ou algo similar, mas de qualquer modo, os disponibilizarei, vide abaixo.

Configurar apresentação da planilha conforme resolução do monitor;

1 - Configurar o sheet/planilha:

obs: inserir esse código no worksheets. Os ranges descritos abaixo ("b4:ab4") serão alterados conforme as colunas de cada planilha que desejarem configurar conforme a resolução do monitor.

Private Sub Worksheet_Activate()

 Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
 
Application.DisplayFullScreen = True
Dim rngSelection    As Range
Dim lRow            As Long
Dim lCol            As Long
    
    If TypeName(Selection) = "Range" Then Set rngSelection = Selection
    With ActiveWindow
        lRow = .ScrollRow
        lCol = .ScrollColumn
        .ScrollRow = 1
        .ScrollColumn = 1
        ActiveSheet.Range("b4:ab4").Select
        .Zoom = True
        .ScrollRow = lRow
        .ScrollColumn = lCol
    End With
    
    If Not rngSelection Is Nothing Then
        rngSelection.Select
        Set rngSelection = Nothing
    End If
  
    
End Sub

1 - Configurar o(s) userform:

Batar inserir o código descrito abaixo no userform.

Private Sub UserForm_Initialize()
       
   
With Application
.WindowState = xlMaximized
End With

With Me
.Top = Application.Top
.Left = Application.Left
.Height = Application.Height
.Width = Application.Width
End With

end sub

Caso restarem dúvidas, gentileza sinalizar!