Música de fundo no Excel

Hoje estava trabalhando em uma planilha e pensando: Bem que podia haver uma macro aqui para ouvir músicas…

Bem, fazer o que né? Criá-la!

Declare Function sndPlaySound32 Lib “winmm.dll” _
    Alias “sndPlaySoundA” (ByVal lpszSoundName _
    As String, ByVal uFlags As Long) As Long

Sub SoundStart()
   Dim intCounter As Integer
   Application.EnableCancelKey = xlErrorHandler
   For intCounter = 1 To 10
      Call sndPlaySound32(“C:\WINDOWS\Media\tada.wav”, 1)
      Application.Wait Now + TimeSerial(0, 0, 2)
   Next intCounter
ERRORHANDLER:
End Sub

Excel em tela cheia com barra de status

Muita gente gosta de trabalhar com o Excel em tela cheia, pois vemos praticamente apenas os dados, mas algumas vezes seriam interessante também possui as informações da barra de status.

O problema é que quando clicamos no botão tela cheia ela é automaticamente ocultada e não nos é fornecida uma opção de re-exibí-la.

Como contornar isso então?

Através do VBA!

Ok, mas mesmo mandando ela ser re-exibida via VBA, enquanto estiver em modo de tela cheia, a barra não volta. O que fazer então?

Simples. Basta simular o modo de tela cheia. Como assim?

Ocultando tudo o que ele oculta, exceto a barra de status.

Como fazemos isso?

A função a seguir realiza exatamente este procedimento e deve ser inserida de forma a ser executada na abertura da planilha:

1. Abra a planilha e pressione Alt + F11;

2. Na lado esquerdo da tela, na janela de Projeto, dê dois cliques em EstaPasta_de_trabalho;

3. Na janela do lado direito, clique na seta ao lado de (Geral) e selecione Workbook;

4. Neste momento será criada a macro a ser executada na abertura da planilha:

Private Sub Workbook_Open()

5. Agora insira o código dentro dela, conforme demonstrado abaixo:

Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””,False)”
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
End Sub

6. Pronta, agora você tem uma planilha em tela cheia, mas com a barra de status!

IMPORTANTE: Caso você feche a planilha agora, a próxima que abri-la estará com este visual e pode não ser o que se deseja, então antes de fechá-la você deve restaurar os itens ocultados. Para isto realize o seguinte procedimento:

1. Clique no lado direito da tela, onde você lê Open e selecione BeforeClose;

2. Copie o código da Sub Open para a nova Sub;

3. Altere os três False que vê no código, por três True, conforme demonstrado abaixo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””,True)”
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
End Sub

4. Agora sim, tudo pronto!

Mudar o mundo: cada um precisa fazer a sua parte

Na hora de criticar não faltam pessoas, mas na hora de arremangar as mangas e fazer algo realmente importante são poucos.

O homem desta chamada é muito conhecido e muito criticado, mas está fazendo a parte dele. O que tem feito para melhorar o mundo os que o criticam???

Falar é fácil, fazer não é!

Você pode seguir comprando seu i-não_sei_o_que, mas se deseja mudar o mundo pode ser interessante colaborar com quem faz algo para que isso aconteça e não com quem apenas fala, fala, fala, …

Após 20 anos de trabalho árduo, o Rotary e seus parceiros estão às vésperas de erradicar este mal. Mas, será preciso um golpe final para acabar com ele de uma vez por todas. Esta é a hora.

Sua contribuição ajudará o Rotary a arrecadar US$200 milhões para equiparar parte dos US$355 milhões da doação-desafio da Fundação Bill e Melinda Gates. O total, US$555 milhões, será revertido em campanhas de imunização nos países onde a enfermidade ainda se faz presente.

http://www.rotary.org/pt/serviceandfellowship/polio/pages/ridefault.aspx

Nesse eu acredito, os outros que sigam falando…

Jogos gratuítos via browser

Primeiro uma lista básica:

  • MSN Games
  • Newgrounds
  • Shockwave
  • Kongregate
  • AddictingGames
  • Miniclip
  • NinjaKiwi
  • Candystand
  • Pogo
  • King
  • Agora aqui tem mais de 100 jogos grátis: http://www.microsoft.com/games/playyourgame/

    Procurando jogos do tipo massively multiplayer online (MMO)?

  • FarmVille
  • MMA Pro Fighter
  • Ravenwood Fair
  • Mafia Wars
  • Restaurant City
  • Happy Aquarium
  • FIFA Superstars
  • Millionaire City
  • Pet Society
  • Bejeweled Blitz
  • Mais jogos no hub Microsoft Game: http://games.msn.com/#/

    Jogos casuais para download:

  • Bejeweled 3
  • Mahjong Wisdom
  • Osmos
  • Plants vs. Zombies
  • Slingo Deluxe
  • Club Bing: http://www.clubbing.com/

    MVP Crystal Wedge Award – 5+ years

    O Programa MVP está reconhecendo todos os MVPs que receberam o MVP Award por cinco ou mais anos com um disco especial para ser acoplado ao troféu oficial do programa.

    Pois como estou em meu 6º ano, também recebi o meu e compartilho a foto de meu troféu aqui com os amigos!

    Deixo aqui o meu Muito Obrigado a todos os que de alguma forma contribuíram para estas conquistas!

    No Splash Screen

    Você gostaria de remover a tela de boas vindas de vários programas para carregá-los mais rápido?

    Pois vejamos aqui como fazer isto com o Office:

    Excel: Use o switch “/e“.

    Ex.: Crie um atalho com o seguinte comando: “C:\Program Files\Microsoft Office\Office14\excel.exe” /e

     

    Word: Aqui o switch é “/q“.

    Ex.: “C:\Program Files\Microsoft Office\Office14\Word.exe” /q

     

    PowerPoint: Switch “/splash“.

    Ex: “C:\Program Files\Microsoft Office\Office14\PowerPoint.exe” /splash

     

    Ok, mas e agora o que fazer com o Outlook e outros programas que não são do Office e eu não conheço os switchs? O método mais prático é usar um software para isso:

    Splash Killer: http://www.digitallis.co.uk/pc/SplashKiller/index.html

    Variáveis Ocultas no Excel

    Você já desejou armazenar algumas variáveis no Excel, que pudessem ser chamadas durante a utilização da planilha, mas sem que fossem vistas pelo usuário, nem pudessem ser facilmente alteradas por ele?

    Pois isto pode ser obtido através do uso dos “Nomes” no Excel. Como assim?

    Você já utilizou o recurso de fornecer um nome a uma célula? Sim, clicando na caixa de nomes e informando o nome desejado!

     Neste exemplo foi atribuído o nome Dolar para o valor da cotação.

    A partir daí, toda vez que desejar este valor posso chamá-lo pelo nome, o que pode ser conferido na imagem abaixo.

    Mas o usuário pode ver este nome apenas expandindo a caixa de nomes. Como fazer então para que ele não veja o nome, mas ainda assim possa utilizá-lo?

    Vamos obter isso através do uso da criação de nomes ocultos no Excel. Como assim ocultos?

    Nomes com a propriedade de visibilidade selecionada para falso (visible = false).

    Para obter isso faça o seguinte:

    1. Pressione Alt + F11;
    2. Selecione Inserir -> Módulo;
    3. Copie o código abaixo personalizando-o da forma indicada.

    Sub VariaveisOcultas()
        Dim Nomes(), Valores() As Variant
        Nomes = Array(“Nome1″, “Nome2″, “Nome3″, “Nome4″, “Nome5″)
        Valores = Array(“Valor1″, “Valor2″, “Valor3″, “Valor4″, “Valor5″)
        For i = 0 To UBound(Nomes)
           ActiveWorkbook.Names.Add Name:=Nomes(i), RefersTo:=Valores(i), Visible:=False
        Next i
    End Sub

     Dentro do parêntese onde diz “Nome1″, “Nome2″, etc, informe os pelos quais deseja chamar as suas variáveis.

    Já nos parênteses onde diz “Valor1″, “Valor2″, etc, informe os valores que deseja obter de retorno quando as variáveis forem chamadas.

     O exemplo anterior ainda serve para o uso de suas variáveis. Basta digitar em uma célula da planilha=o_nome_que_você_escolheu que ao pressionar ENTER o nome será substituído por seu valor.

    Simples, rápido e fácil!

    IPv6: sua rede está pronta?

    No dia 08/06/2011 foi realizado um teste com IPv6 por XBox.com, Bing.com, Facebook.com, Akamai.com e Google.com, sendo que todos eles operaram com dupla stack (IPv4 e IPv6) neste dia, sem problema algum, mas em breve a internet toda passará a IPv6. Você já está preparado para isso?

    Faça o teste aqui: http://blogs.technet.com/b/ipv6/archive/2011/02/11/ipv6-day.aspx

    Role a página e procure uma imagem como esta

    Se estiver preparado será is to o que verá. Fundo verde dizendo “Success”.

    Caso ainda não esteja preparado, clique em “How to fix the Problem” para receber orientações sobre como adaptar-se.

    Integração Windows Phone 7 e Windows Small Business Server 2011

    Saiu o RC (Release Candidate) da integração do Windows Phone 7 com o Windows Small Business Server 2011 Essentials.

    Quem sempre gostou de SBS vai adorar essa possibilidade de integração com o celular, mas não mais apenas de calendários, mensagens e contatos, mas sim para o gerenciamento do servidor…

    Este add-in proporcionará o gerenciamento remoto do servidor, permitindo que o usuário tenho acesso pelo celular a:

    - Alertas;

    - Gerenciamento de usuários: ver detalhes de contas, desabilitar contas e alterar senhas;

    - Dispositivos: ver detalhes de PCs e Macs, status de backup, possibilidade de iniciar ou parar um backup;

    - Live Support: este é um dos recursos mais interessantes. Com ele você pode ter na tela inicial do celular várias informações do servidor em tempo real, como: porcentagem de disco usada e alertas de rede, separados por nome de servidor.