VBA Excel - Escondendo as Abas muito bem - Choose from Hidden or Very Hidden

|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

Às vezes escolhemos o modo Hidden ou muito oculto (Com este recurso as abas do Excel ficam muito escondidas e não podem ser reexibida pelo usuário ou através da opção Reexibir. Somente através de você ou usando o Editor do Visual Basic.

Sub HideActiveSheet()

 Dim myChoice as String

 If ActiveWorkbook Is Nothing Then Exit Sub

 myChoice = MsgBox("Do you want the active sheet to be Very Hidden ? ", vbQuestion + vbYesNoCancel)

 Select Case myChoice

 Case vbYes

  ActiveSheet.Visible = xlSheetVeryHidden

 Case vbNo

  ActiveSheet.Visible = xlSheetHidden

 Case vbCancel

  Exit Sub

 End Select

End Sub

Tags: VBA, Excel, worksheet, hide, oculto

VBA Outlook: Reencaminhar mensagens enviadas como ocultas.

Controle o fluxo de informações ocultas da sua máquina, rede, departamento, etc... Esta pequena funcionalidade permite que acompanhe o que vem trafegando na sua rede.

A funcionalidade abaixo é apenas um exercício de como manipular as mensagens dentro do MS Office Outlook.


Private Sub Application_ISend (ByVal Item As Object, Cancel As Boolean)
    ' Author:                            Date:                       Contact:
    ' André Bernardes             02/05/2009 09:15    bernardess@gmail.com
    ' Reencaminhar mensagens enviadas para outro destinatário através do campo Bcc
 
    Dim objMe As Recipient

    Set objMe = Item.Recipients.Add("bernardess@gmail.com")

    Let objMe.Type = olBCC
    objMe.Resolve

    Set objMe = Nothing
End Sub

Tags: Bernardes, VBA, Office, send, Bcc, oculto, e-Mail

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com