VBA Access - Fechando TODOS os Relatórios Abertos - Close All Forms

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

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

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Se você tem já criou um formulário através do qual evoca todos os seus relatórios, sabe bem que de vez em quando ficam inúmeros deles sobrepondo-se uns aos outros. Como resolver isso?

Function CloseAllReportss()

    Dim lngLoop As Long

    For lngLoop = (Forms.Count - 1) To 1 Step -1

        DoCmd.Close acForm, Forms(lngLoop).Name

    Next lngLoop

End Function

Tags: Access, VBA, Report, Reports, close, fechar

VBA Excel - Formulário - Impedindo o fechamento no [X]

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Receba  3 Calendários Customizáveis de  2013 em Excel

Você tem direito as informações da sua empresa

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

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

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

13 Dicas para se Falar em Público

Tópicos relacionados:

Envie um email sem o aviso de segurança

Coleta de dados por meio de mensagens de email 

Como enviar um email com uma assinatura dinâmica
Anexando arquivo ao email
Avalia o endereço do email
Como criar um código no Outlook
Pesquise todos os emails no Outlook e extraia informações

Enviando E-mail sem o aviso de segurança

Enviando e-mails a partir do Excel

Como exportar as tarefas do MS Outlook para o MS Excel

LOTUS NOTES DOMINO - Código de envio de emails

Atualizando gráfico com dados do MS Excel

Criando um Deck do Powerpoint no MS Excel

Criando e Diminuindo Apresentações.

Exportando Gráficos, Tabelas, criando Dashboards

Imprimindo Slides de uma apresentação

Acrescentando comentários aos Slides com codificação

Exportando dados da query para Slides PPT

Trabalhando com Shape Glow e as propriedades Reflection

Adicione um Shape ao Slide e o formate

Homogeinize todos os links da sua apresentação MS Powerpoint

Exportando o conteúdo de um .DOC para um Slide .PPT

Compreendendo o Early Binding e o Late 

KPI - Key Performance Indicator

Acrônimos - Technology, Electronics and Games Acronyms

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 - Como sair do MS Excel sem salvar nenhuma aba

| Blog Office VBA | Blog Excel | Blog Access |

Suponhamos que seja 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, no stress, stress

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

 | Blog Office VBA | Blog Excel | Blog Access |

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 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 a planilha - Close workbook MS Excel

VBA Excel - Fechando a planilha - Close workbook MS Excel

Tá, tudo bem, é simples eu sei, mas para quem não sabe é uma mão na roda.

ActiveWorkbook.Close False
' Fecha o Workbook ativo sem salvar qualquer alteração efetuada.

ActiveWorkbook.Close True ' Fecha o Workbook ativo e salva as mudanças efetuadas.

ActiveWorkbook.Close
' Fecha o Workbook ativo e deixa que o usuário no momento decida se deseja gravar ou não.

Fontes: ExcelTip, 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

            

VBA Excel - Fechando a planilha - Close workbook MS Excel

VBA Excel - Fechando a planilha - Close workbook MS Excel

Tá, tudo bem, é simples eu sei, mas para quem não sabe é uma mão na roda.

ActiveWorkbook.Close False
' Fecha o Workbook ativo sem salvar qualquer alteração efetuada.

ActiveWorkbook.Close True
' Fecha o Workbook ativo e salva as mudanças efetuadas.

ActiveWorkbook.Close
' Fecha o Workbook ativo e deixa que o usuário no momento decida se deseja gravar ou não.

Fontes: ExcelTip,

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com