Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

E-mails

Deixe seu e-mail para receber atualizações...

E-mails

Minimizando a aplicação - Mostrando somente um Formulário - Hiding/Minimizing Excel and only displaying UserForm


Sabe como é: Aplicações profissionais requerem alguns cuidados como o de deixar a estação de trabalho livre para a utilização do usuário.

Especialmente quando nossas aplicações tratarão de processos demorados, não fará sentindo deixar a máquina totalmente estagnada. Assim podemos usar alguns recursos para permitir que o usuário continue usufruindo a máquina em outras atividades.

Uma dessas técnicas é minimizar a aplicação e deixar um pequeno formulário indicando o posicionamento sobre a fase em andamento. Isso o manterá informado e ao mesmo tempo permitirá seu livre acesso a outros processos e demandas.

Ahh tá bom, mas como faço isso?

Seguem alguns exemplos para experimentar e escolher:


1º EXEMPLO

Sub RunUserForm()

     Let Application.WindowState = xlMinimized

     UserForm1.Show


End Sub


2º EXEMPLO

Private Sub Workbook_Open()

     Let Application.WindowState = xlMinimized

     DataReductionForm.Show

     Let Application.WindowState = xlMaximized

End Sub




3º EXEMPLO


Private Sub UserForm_Initialize()
     Let Application.WindowState = xlNormal
     Let Application.Width = Me.Width
     Let Application.Height = Me.Height
End Sub


4º EXEMPLO

Private Sub Workbook_Open()
     Let Application.WindowState = xlMinimized

     UserForm1.Show vbModeless

End Sub


5º EXEMPLO

Sub Workbook_BeforeClose(Cancel As Boolean)

     Let Application.Visible = True

End Sub

Private Sub Workbook_Open()

     If ThisWorkbook.ReadOnly = True Then
          Let Application.Visible = False

          CBReq.Show
     End If

End Sub


6º EXEMPLO

Private Sub UserForm_Activate()
     Let Application.Left = Me.Left
     Let Application.Top = Me.Top
     Let Application.Width = Me.Width - 100
     Let Application.Height = Me.Height - 100
End Sub

Private Sub UserForm_Layout()
     Let Application.Left = Me.Left
     Let Application.Top = Me.Top

End Sub

Envie comentários e sugestões. Compartilhe este artigo! 
⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 


⬛◼◾▪ CONTATO ▪

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine