Conseguir através do código:

If Application.CommandBars("Ribbon").Height >= 145 Then

CommandBars.ExecuteMso "MinimizeRibbon"

End If

Um problema no código,

Alguém me ajuda?

O código está executando o Ajuste do ZOOM antes de minimizar a faixa de opções.

Alguém sabe o que poderia ser ?

Private Sub Worksheet_Activate()
    
If Application.CommandBars("Ribbon").Height >= 100 Then

CommandBars.ExecuteMso "MinimizeRibbon"

End If

Call Zoom
    
End Sub

Private Sub Zoom()

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("A1:A32").Select
        .Zoom = True
        .ScrollRow = lRow
        .ScrollColumn = lCol
    End With
    
    If Not rngSelection Is Nothing Then
        rngSelection.Select
        Set rngSelection = Nothing
    End If
    
Range("A1").Select

End Sub

Eu sei quase nada de VBA, então é mais um chute mesmo.. algo que eu tentaria se estivesse no seu lugar...

Já tentou colocar o "call zoom" dentro do IF, logo após o "MinimizeRibbon"? Desse jeito ele vai sempre minimizar a faixa de opções primeiro e na sequencia roda a sub Call Zoom...

Ou se não for possível, por questão de condicional... tenta usar uma variável para capturar o Height do ribbon primeiro.. depois faz o If usando o valor dessa variável... se for >=0.. minimiza o ribbon...