Bom dia!!

Tente algo assim..
..Obs: o código tem que ser posto dentro do módulo de Estapasta_de_Trabalho.

Private Sub Workbook_Open()
    If Application.WindowState = xlNormal Then
    MsgBox "Tela Normal"
    ElseIf Application.WindowState = xlMaximized Then
    MsgBox "Tela Maximizada"
    Else: Application.DisplayFullScreen = True
    MsgBox "Tela Cheia"
    End If
End Sub

Att

Alexandre,

Legal é isso mesmo, mas essa macro ativa só quando eu abro a planilha, eu gostaria que ela fosse ativada quando eu clicar no botão maximinizar.

Bom dia!!

Então tente mudar o método.
http://msdn.microsoft.com/en-us/library ... =office.15).aspx
http://www.techrepublic.com/blog/10-thi ... using-vba/

Att

Bom dia!!

Tente assim..

Private Sub Workbook_WindowResize(ByVal Wn As Window)
     
    If Wn.WindowState = xlMaximized Then
        MsgBox "Foi Maximizado " & Wn.Caption
    ElseIf Wn.WindowState = xlMinimized Then
        MsgBox "Foi Minimizado " & Wn.Caption
    End If
     
End Sub

Att

Alexandre, Não funcionou.

Boa tarde!!

Bom não sei se é isso que você queria, mas se você clicar no minimizar do arquivo ( e não da instalação), a mensagem vai aparecer!!

Att

Funcionou certinho, mas tem como ser na planilha Mãe (ou na da instalação)?

Boa tarde!!

Eu não estou entendendo.

o que é planilha para você é a guia ou arquivo?

Att

Eu estou tentando inserir a macro no X que fica vermelho, Aquele que está lá no topo a direita.

Boa noite!

Esse X, refere se a instalação!

Note que se abrir um único arquivo (MeuArquivo.xls), e minimizar (na parte de baixo), a na janela da instalação na parte superior ficara (Microsoft Excel).

Att