sábado, 8 de maio de 2010

Ajustar um UserForm para o tamanho da tela

E também não deixar o usuário clicar no "X" para fechar o UserForm.
Muito bom para quem gosta de mexer na interface do Excel via VBA, assim é possível voltar todas as configurações colocando o código no botão SAIR.

;-)


Private Sub CommandButton2_Click()
Application.WindowState = xlMaximized
Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
MsgBox "clicar no botão sair!!!"
End Sub

Nenhum comentário:

Pesquisar este blog

Carregando...

Arquivo do blog

Quem sou eu

Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient.