Testei até a versão 2010 e funcionou normalmente.

Sub DespactivePlan()

‘ desproteger

Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer

On Error Resume Next

For i = 65 To 66

For j = 65 To 66

For k = 65 To 66

For l = 65 To 66

For m = 65 To 66

For i1 = 65 To 66

For i2 = 65 To 66

For i3 = 65 To 66

For i4 = 65 To 66

For i5 = 65 To 66

For i6 = 65 To 66

For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If ActiveSheet.ProtectContents = False Then

MsgBox “Planilha desprotegida!”

Exit Sub

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

End Sub

Aqui está um resumo:

600 pessoas chegaram ao topo do Monte Everest em 2012. Este blog tem cerca de 3.900 visualizações em 2012. Se cada pessoa que chegou ao topo do Monte Everest visitasse este blog, levaria 7 anos para ter este tanto de visitação.

Clique aqui para ver o relatório completo

Para quem quer aprender mais sobre Database Marketing, muito útil.

Várias publicações livres do Google Livros para consulta.

Marketing de A à Z por Phillip Kotler

http://www.google.com.br/search?q=DATABASE+MARKETING&hl=pt-BR&tbo=1&qscrl=1&tbs=bks:1,lr:lang_1pt&source=lnt&lr=lang_pt&sa=X&ei=8TOFTPuoA8H_lgfez-WIDw&ved=0CA0QpwU

Imagine que você tenha em uma coluna informações do tipo "a", "a1", "a2", "a3", "b1", "b2", "c1", "c2", "d1", "d2", "e1", "e3", "e5"….e outra coluna com valores correspondentes. Digamos que seja preciso somar apenas os dados correspondentes à todos que contém "a". Se você fizer um somase e nos critérios colocar "a" o Excel irá somar apenas "a" e ignorar "a2", "a1" e os demais, se você tentar fazer um somases e irá aparecer um "0". Então o que fazer??

Simples, nos critérios digite "a*" e o Excel vai somar todos os dados correspondentes e que iniciem com "a"
O asterisco é a chave para tornar sua fórmula muito mais eficiente, gerando produtividade para seu trabalho.

Muito simples não é, e adianta um baita trabalho.

Até mais.

Sub zip_activeworkbook()

    Dim strDate As String, DefPath As String

    Dim FileNameZip, FileNameXls

    Dim oApp As Object

    If ActiveWorkbook Is Nothing Then Exit Sub

    DefPath = ActiveWorkbook.Path

    If Len(DefPath) = 0 Then

        MsgBox “Plz Save activeworkbook before zipping” & Space(12), vbInformation, “zipping”

        Exit Sub

    End If

    If Right(DefPath, 1) <> “\” Then

        DefPath = DefPath & “\”

    End If

    ‘Criar data/hora como texto e o arquivo temporário xls e zip

    strDate = Format(Now, ” dd-mmm-yy h-mm-ss”)

    FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) – 4) & strDate & “.zip”

    FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) – 4) & strDate & “.xls”

    If Dir(FileNameZip) = “” And Dir(FileNameXls) = “” Then

        ‘Pegar a cópia do activeworkbook

        ActiveWorkbook.SaveCopyAs FileNameXls

        ‘Criar arquivo Zip vazio

        newzip (FileNameZip)

        ‘Copiar o arquivo na pasta compactada

        Set oApp = CreateObject(“Shell.Application”)

        oApp.Namespace(FileNameZip).CopyHere FileNameXls

        ‘Tratamento de erros

        On Error Resume Next

        Do Until oApp.Namespace(FileNameZip).items.Count = 1

            Application.Wait (Now + TimeValue(“0:00:01”))

        Loop

        On Error GoTo 0

        ‘Deletar o arquivo temporário

        Kill FileNameXls

        MsgBox “completed zipped : ” & vbNewLine & FileNameZip, vbInformation, “zipping”

    Else

        MsgBox “FileNameZip or/and FileNameXls exist”, vbInformation, “zipping”

    End If

End Sub

Private Sub newzip(sPath)

‘Criar arquivo Zip vazio

‘Mudar o keepITcool Dec-12-2005

    If Len(Dir(sPath)) > 0 Then Kill sPath

    Open sPath For Output As #1

    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)

    Close #1

End Sub

Falow

As tecnologidas de BA devem ocupar cada vez mais espaço no mercado corporativo de ferramentas de análises de dados estratégicos de gestão de negócios.

Trata-se de ferramentas que englobam não somente os dados internos dos servidores das empresas, mas agregam tendências em tempo real de redes sociais e demais mecanismos Real Time da internet atual, fatores fundamentais para a tomada de decisões.

O foco de BA é muito mais acertivo que metodologias anteriores e eleva a análise para o campo científico. O SAS será muito mais valorizado neste cenário e o Business Inteligence perderá espaço, pois é muito limitado em relação ao BA, que não se restringe apenas em analisar históricos de atividades.

O Business Analytics é muito mais eficiente na realização de prognósticos e análises estatísticas, tornando as organizações muito mais competitivas.

Segue um vídeo sobre aplicação do Business Analytics

Até mais…

Relaxa, eu já fiz isso (Risos) e descobri que a solução é mais simples do que parece, confira:

Vá em iniciar, Executar,  digite  regedit e Ok, ou digite control+R para abrir o menu Executar.

Será aberto um menu com várias chaves de configurações, navegue até a seguinte chave:

HKEY_CURRENT_USER\Software\Microsoft\Office, clique com o botão direito do mouse em cima da pasta do Office e selecione Renomear, digite Office.old

Feche o Editor de registro e abra o Excel novamente.

Pronto, feito isso seu Excel irá voltar a exibir o menu quando clicar no botão direito do mouse.

Segue uma aplicação que desenvolvi, na verdade tive que refazer um projeto. A situação era a seguinte: Era necessário gerar relatórios para um pessoal externo da empresa, cerca de uns 200 arquivos em Excel que todos deveriam receber mensalmente. Existia uma macro do Excel que gerava esses relatórios, porém , não havia ninguém que soubesse operá-la adequadamente. E eu não estou falando de uma empresa pequena, falo de uma das maiores empresa do Brasil, mas tudo bem, voltemos ao texto…a tal macro era um negócio arcaico, gigantesco e desnecessário, por isso resolvi refazer tudo assim que peguei o processo.

Abaixo coloquei a macro que fiz, com ela consegui gerar os relatórios com 10 vezes menos códigos que a macro anterior, melhorando muito a produtividade da área:

Public Sub modeloexecutivo2()

Windows(“Modelo Executivo.xlsm”).Activate

Sheets(“Modelo Executivos”).Select

sv = Range(“b6”)

extensão = “.xls”

Columns(“A:M”).Select

Sheets(“Modelo Executivos”).Select

Sheets(“Modelo Executivos”).Copy

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWorkbook.SaveAs Filename:= _

“S:\AREAS\Vendas\Operacoes de Vendas\Produtividade de Vendas\Plano de Campo5- Projetos\Painel PC\Relatórios Executivos Teste\” & sv & extensão

ActiveWindow.Close

End Sub

Public Sub alteraexecutivo2()

Windows(“PLANO DE CAMPO_TESTE.xlsm”).Activate

Sheets(“ROSTO”).Select

codigo10 = Range(“d6”).Value

Range(“V10”).Select

Selection.Copy

Range(“D6”).Select

ActiveSheet.Paste

Range(“D6”).Select

Selection.Copy

Range(“V9”).Select

Range(“V9:V181”).Select

Application.CutCopyMode = False

Selection.Copy

Selection.Find(What:=codigo10, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False).Activate

ActiveCell.Offset(1, 0).Select

Selection.Copy

Range(“D6”).Select

ActiveSheet.Paste

End Sub

Public Sub executar2()

Do Until Range(“d6”).Value = 3

Call alteraexecutivo2

Call modeloexecutivo2

Loop

End Sub

A idéia é muito simples, a macro filtra informações através de algumas tabelas dinâmicas e gera relatórios com base nisso.

Não vou colocar a macro anterior por que é sacanagem mas se alguém quiser discutir ou tiver alguma idéia melhor será muito válido.

Até mais.

CTRL+C (Copiar)
CTRL+X (Cortar)
CTRL+V (Colar)
CTRL+Z (Desfazer)
DELETE (Excluir)
SHIFT+DELETE (Excluir o item selecionado permanentemente sem colocá-lo na Lixeira)
CTRL enquanto arrasta um item (Copiar o item selecionado)
CTRL+SHIFT enquanto arrasta um item (Criar um atalho para o item selecionado)
Tecla F2 (Renomear o item selecionado)
CTRL+RIGHT ARROW (Mover o ponto de inserção para o início da próxima palavra)
CTRL+RIGHT ARROW (Mover o ponto de inserção para o início da palavra anterior)
CTRL+RIGHT ARROW (Mover o ponto de inserção para o início do próximo parágrafo)
CTRL+RIGHT ARROW (Mover o ponto de inserção para o início do parágrafo anterior)
CTRL+SHIFT com qualquer tecla de seta (Destacar um bloco de texto)
SHIFT com qualquer tecla de seta (Selecionar mais de um item em uma janela ou no desktop, ou selecionar o texto em um documento)
CTRL+A (Selecionar tudo)
Tecla F3 (Pesquisar um arquivo ou pasta)
ALT+ENTER (Exibir as propriedades para o item selecionado)
ALT+F4 (Fechar o item ativo, ou encerrar o programa ativo)
ALT+ENTER (Exibir as propriedades do objeto selecionado)
ALT+SPACEBAR (Abrir o menu de atalho da janela ativa)
CTRL+F4 (Fechar o documento ativo em programas que permitem que você tenha vários documentos abertos simultaneamente)
ALT+TAB (Alternar entre itens abertos)
ALT+ESC (Circular através de itens na ordem em que eles foram abertos)
Tecla F6 (Circular através de elementos da tela em uma janela ou no desktop)
Tecla F4 (Exibir a barra de Endereços em Meu Computador ou no Windows Explorer)
SHIFT+F10 (Exibir o menu de atalho do item selecionado)
ALT+SPACEBAR (Exibir o menu de Sistema da janela ativa)
CTRL+ESC (Exibir o menu Iniciar)
ALT+a letra grifada em um nome de menu (Exibir o menu correspondente)
Letra grifada em um nome de comando em um menu aberto (Executar o comando correspondente)
Tecla F10 (Ativar a barra de menu no programa ativo)
RIGHT ARROW (Abrir o próximo menu da direita, ou abrir um submenu)
LEFT ARROW (Abrir o próximo menu da esquerda, ou fechar um submenu)
Tecla F5 (Atualizar a janela ativa)
BACKSPACE (Exibir a pasta em um nível acima em Meu Computador ou no Windows Explorer)
ESC (Cancelar a tarefa atual)
SHIFT quando você insere um CD-ROM na unidade de CD-ROM (Impedir que o CD-ROM execute automaticamente)
CTRL+SHIFT+ESC (Abre o Gerenciador de tarefas)

Se você pressionar SHIFT+F8 em caixas de lista de seleção estendidas, você habilita o modo de seleção de estendido. Nesse modo, é possível usar uma seta de direção para mover um cursor sem alterar a seleção. É possível pressionar CTRL+BARRA DE ESPAÇOS ou SHIFT+BARRA DE ESPAÇOS para ajustar a seleção. Para cancelar o modo de seleção estendido, pressione SHIFT+F8 novamente. O modo de seleção estendido se auto cancela quando você move o foco para outro controle.

CTRL+TAB (Mover para frente através das guias)
CTRL+SHIFT+TAB (Mover para trás através das guias)
TAB (Mover para frente através das opções)
SHIFT+TAB (Mover para trás através das opções)
ALT+Letra grifada (Executar o comando correspondente ou selecionar a opção correspondente)
ENTER (Executar o comando para a opção ativa ou botão)
SPACEBAR (Selecionar ou limpar a caixa de verificação se a opção ativa for uma caixa de verificação)
Teclas de seta (Selecionar um botão se a opção ativa for um grupo de botões de opção)
Tecla F1 (Exibir Ajuda)
Tecla F4 (Exibir os itens na lista ativa)
BACKSPACE (Abrir uma pasta um nível acima se uma pasta estiver selecionada na caixa de diálogo [B]Salvar como[/B] ou Abrir[/B])

Logotipo do Windows (Exibir ou ocultar o menu Iniciar)
Logotipo do Windows+BREAK (Exibir a caixa de diálogo Propriedades do Sistema)
Logotipo do Windows+D (Exibir o desktop)
Logotipo do Windows+M (Minimizar todas as janelas)
Logotipo do Windows+SHIFT+M (Restaurar as janelas minimizadas)
Logotipo do Windows+E (Abrir Meu computador)
Logotipo do Windows+F (Pesquisar um arquivo ou pasta)
CTRL+Logotipo do Windows+F (Pesquisar por computadores)
Logotipo do Windows+F1 (Exibir Ajuda do Windows)
Logotipo do Windows+ L (Travar o teclado)
Logotipo do Windows+R (Abrir a caixa de diálogo Executar)
Logotipo do Windows+U (Abrir o Gerenciador de Utilitário)

SHIFT direito por oito segundos (Alternar entre ligar e desligar as Teclas de filtragem)
ALT esquerdo+SHIFT esquerdo+PRINT SCREEN (Alternar entre ligar e desligar Alto Contraste)
ALT esquerdo+SHIFT esquerdo+NUM LOCK (Alternar entre ligar e desligar Teclas para mouse)
SHIFT cinco vezes (Alternar entre ligar e desligar as Teclas de Aderência)
NUM LOCK por cinco segundos (Alternar entre ligar e desligar as Teclas de Alternância)
Logotipo do Windows + U (Abrir o Gerenciador de Utilitário)

END (Exibir a base da janela ativa)
HOME (Exibir o topo da janela ativa)
NUM LOCK+sinal de asterisco (*) (Exibir todas as subpastas que estão sob a pasta selecionada)
NUM LOCK+sinal de mais (+) (Exibir o conteúdo da pasta selecionada)
NUM LOCK+sinal de menos (-) (Recolher pasta selecionada)
LEFT ARROW (Recolher a seleção atual se estiver expandida, ou selecionar a pasta pai)
RIGHT ARROW (Exibir a seleção atual se estiver recolhida, ou selecionar a primeira subpasta)

Após clicar duas vezes em um caractere na grade de caracteres, você pode mover-se através da grade utilizando os atalhos de teclado:

RIGHT ARROW (Mover para a direita ou para o início da próxima linha)
RIGHT ARROW (Mover para a esquerda ou para o fim da linha anterior)
UP ARROW (Mover para uma linha acima)
DOWN ARROW (Mover para uma linha abaixo)
PAGE UP (Mover uma tela acima de cada vez)
PAGE DOWN (Mover uma tela abaixo de cada vez)
HOME (Mover para o início da linha)
END (Mover para o fim da linha)
CTRL+HOME (Mover para o primeiro caractere)
CTRL+END (Mover para o último caractere)
SPACEBAR (Alternar entre o modo Ampliado e Normal quando um caractere está selecionado)

CTRL+O (Abrir um console salvo)
CTRL+N (Abrir um novo console)
CTRL+S (Salvar o console aberto)
CTRL+M (Adicionar ou remover um item de console)
CTRL+W (Abrir uma nova janela)
Tecla F5 (Atualizar o conteúdo de todas as janelas do console)
ALT+SPACEBAR (Exibir o menu da janela MMC)
ALT+F4 (Fechar o console)
ALT+A (Exibir o menu Ação)
ALT+V (Exibir o menu Exibir)
ALT+F (Exibir o menu Arquivo)
ALT+O (Exibir o menu Favoritos)

CTRL+P (Imprimir a página atual ou página ativa)
ALT+sinal de menos (-) (Exibir o menu de janela da janela ativa no console)
SHIFT+F10 (Exibir o menu de atalho de Ação para o item selecionado)
Tecla F1 (Abrir o tópico de Ajuda, se houver, para o item selecionado)
Tecla F5 (Atualizar o conteúdo de todas as janelas do console)
CTRL+F10 (Maximizar a janela ativa do console)
CTRL+F5 (Restaurar a janela ativa do console)
ALT+ENTER (Exibir a caixa de diálogo Propriedades, se houver, para o item selecionado)
Tecla F2 (Renomear o item selecionado)
CTRL+F4 (Fechar a janela ativa do console) Quando um console possui apenas uma janela de console , este atalho fecha o console)

CTRL+ALT+END (Abrir a caixa de diálogo Segurança do Microsoft Windows NT)
ALT+PAGE UP (Alternar entre programas da esquerda para a direita)
ALT+PAGE DOWN (Alternar entre programas da direita para a esquerda)
ALT+INSERT (Circular através dos programas na ordem dos usados mais recentemente)
ALT+HOME (Exibir o menu Iniciar)
CTRL+ALT+BREAK (Alternar entre uma janela e a tela inteira do computador cliente)
ALT+DELETE (Exibir o menu do Windows)
CTRL+ALT+ sinal de subtração (-) (Colocar um instantâneo da área de janela inteira do cliente na área de transferência do servidor de Terminal e fornecer a mesma funcionalidade que ocorre ao pressionar ALT+PRINT SCREEN em um computador local).
CTRL+ALT+sinal de adição (+) (Colocar um instantâneo da janela ativa no cliente na área de transferência do servidor de Terminal e fornecer a mesma funcionalidade que pressionar PRINT SCREEN em um computador local).

CTRL+B (Abrir a caixa de diálogo Organizar Favoritos)
CTRL+E (Abrir a barra de Pesquisa)
CTRL+F (Iniciar o utilitário de Localizar)
CTRL+H (Abrir a barra de Histórico)
CTRL+I (Abrir a barra de Favoritos)
CTRL+L (Abrir a caixa de diálogo Abrir)
CTRL+N (Iniciar outra instância do navegador com o mesmo endereço na Web)
CTRL+O (Abrir a caixa de diálogo Abrir, o mesmo que CTRL+L)
CTRL+O (Abrir a caixa de diálogo Imprimir)
CTRL+R (Atualizar a página atual da Web)
CTRL+W (Fechar a janela atual)