&#10004; VBA Excel Specialist&#174;

MIS - Usufruindo a excelência na análise das suas Informações

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

Acesse: http://goo.gl/0v6AO

Impedir o formulário que desenvolvemos seja fechado no momento errado ou sem querer, pode ajudar muito aos usuários menos atentos. O código abaixo mostrará como fazer isso, evitando que o formulário seja fechado ao se pressionar o 'X'.

Inicie por colocar o código abaixo no formulário: Clique duas vezes no formulário e cole o código:

Sub UserForm_Close (Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

MsgBox "Pressione o botão Fechar."

Let Cancel = True

End If

End Sub

Para fechar o formulário inseriremos um código num botão do formulário:

Private Sub CommandButton1_Click()

Unload frm_Cad_Client

End Sub

Tags: VBA, Excel, Form, Close, fechar, unload

VBA Excel Basics - Modo profissional de Abrir e Fechar o MS Excel

MIS - Usufruindo a excelência na análise das suas Informações

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

Acesse: http://goo.gl/0v6AO

O objeto Application do MS Excel disponibiliza uma coleção de objetos para controle das janelas (Windows) que permitem que abramos, organizemos, redimensionemos e fechemos as janelas filhas (child) do MS Excel.

O código abaixo abrirá uma nova janela filha e colocará as janelas em cascata, abrindo as janelas para a pasta de trabalho ativa:

Sub OpenCascadeWindows()

ActiveWindow.NewWindow

Application.Windows.Arrange xlArrangeStyleCascade, True

End Sub

Feche a janela aberta no código anterior e restaure a janela original para um estado maximizado no Excel:

Sub CloseMaximize()

ActiveWindow.Close

ActiveWindow.WindowState = xlMaximized

End Sub

Controle a janela pai do MS Excel usando as propriedades WindowState e DisplayFullScreen do objeto Application

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub ChangeExcelWindowState()

   Let Application.WindowState = xlMaximized

   Sleep 1000

   Let Application.WindowState = xlMinimized

   Sleep 1000

   Let Application.WindowState = xlNormal

   Sleep 1000

   Let Application.DisplayFullScreen = True

   Sleep 1000

   Let Application.DisplayFullScreen = False

End Sub

Tags: VBA, Excel, Basics, open, close, window

VBA Excel Basics - Bloqueando o usuário

MIS - Usufruindo a excelência na análise das suas Informações

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

Acesse: http://goo.gl/0v6AO

O objeto Application do MS Excel fornece algumas formas que limitam a interação do usuário com a planilha que está usando. Isso será bem útil quando desejar impedir que os usuários interrompam alguma processo da sua aplicação MS Excel enquanto este executa algum processo demorado.

Explicando:

Defina a propriedade DisplayAlerts como False, escondendo as caixas de diálogo padrão do MS Excel enquanto o código for executado.

Configure a propriedade Interactive como False para bloquear completamente os usuários do MS Excel.

Otimize a propriedade ScreenUpdating como False, ocultando as alterações executadas via código. Um dos benefícios da definição de ScreenUpdating como False é que o código anterior é executado mais rapidamente, pois o MS Excel não precisa atualizar a tela ou rolar a planilha quando células estiverem selecionadas.

Cada abordagem acima requer que se inclua um código no final do procedimento para retornar a configuração ao seus padrão original, caso contrário poderá bloquear um usuário permanentemente.

Segue:

Sub UserBlock()

   Dim cel As Range



   Let Application.Cursor = xlWait

   Let Application.Interactive = False

   Let Application.ScreenUpdating = False



   ' Simulando uma ação.

   For Each cel In [a1:iv999]

   cel.Select

   Next



   ' Restaura as configurações padrão

   Let Application.Interactive = True

   Let Application.ScreenUpdating = True

   Let Application.Cursor = xlDefault



   [a1].Select

End Sub

Tags: VBA, Excel, Basics, workbook, fechar, close, sem salvar, not save,

VBA Excel Basics - Como sair do MS Excel sem salvar nenhuma aba

MIS - Usufruindo a excelência na análise das suas Informações

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

Acesse: http://goo.gl/0v6AO

Suponhamos que sejas alguém extremamente preocupado em poupar os seus usuários do stress de precisarem salvar automaticamente suas planilhas e todas as abas que tenham sofrido alterações, sem acrescentar nenhuma ansiedade a tais por tal descuido.

Segue:

Sub EndNotSave( )

   Dim wb As Workbook

   For Each wb In Workbooks

   ' Marca o workbook como salvo

   Let wb.Saved = True

   Next

   Application.Quit

End Sub

Tags: VBA, Excel, Basics, workbook, fechar, close, sem salvar, not save,

VBA Excel Basics - Salvando todos os Workbooks abertos antes de fechar o MS Excel sem avisar o usuário

MIS - Usufruindo a excelência na análise das suas Informações

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

Acesse: http://goo.gl/0v6AO

Segue:

Sub CloseSaveAll()
    Dim wb As Workbook

    For Each wb In Workbooks
        wb.Save
    Next

    Application.Quit
End Sub

Tags: VBA, Excel, Basics, workbook, fechar, close, salvar, save,

VBA Excel - Fechando o MS Excel - Close MS Excel

MIS - Usufruindo a excelência na análise das suas Informações

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms