Como tirar a senha da planilha Excel 2007 à 2016

Muitos usuários do Microsoft Excel que utilizam a função de proteção por senha já viveu ou ainda viverá a situação de ter esquecido a senha...

Existem algumas formas de desproteger as planilhas, vou demonstrar algumas delas...

Importante, nenhum dos processos apresentados abaixo funcionam se a senha for no arquivo e não na planilha (pasta).

Como entendo que esteja tratando com usuários mais avançados, não vou fazer o passo a passo, parto do principio que já sabem criar, gravar e usar uma macro.

1º) EXCEL 2007 e 2010

use o seguinte comendo VBA para desproteger a planilha:

Sub DesprotegerPlanilhaAtiva()

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 liberada e a senha usada é " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

End Sub

Importante:  o resultado deste VBA não será a senha literal como foi gravada pelo dono da planilha, mas, o valor apresentado tem o mesmo valor criptográfico da senha original, sendo assim, funcionará.

Anote caso queira voltar a proteção com o mesmo valor, mas se a intenção for apenas desproteger, nao há necessidade de anotar a senha, a planilha já está desprotegida, basta apenas salva-la...

2º) EXCEL 2013 e 2016 (opção 1)

Para esta versão simplesmente repetir o modelo usado para o 2007 não irá funcionar, neste caso você pode fazer o seguinte:

1º) Salva a planilha 2013/2016 no formato para Excel 97/2003 (XLS)

2º) Feche a planilha e reabra a planilha XLS (recém salva)

3º) repita a operação conforme demonstrado na opção 1 acima (para 2007), usando o VBA, agora funcionará.

3º) EXCEL 2013 e 2016 (opção 2)

Esta opção é um pouco mais trabalhosa, mas se por algum motivo a VBA não funcionar, ainda assim é possível apagar a senha do arquivo (processo manual).

1º) Faça uma cópia da planilha que será desprotegida.

Vamos fazer todo procedimento no arquivo copiado, assim qualquer erro o documento original estará salvo...

Observação:  Para esta atividade você precisa estar conseguindo ver a "extensão" dos arquivos, assim se não estiver vendo precisa habilitar esta funcionalidade.

2º) renomeie a extensão do arquivo copiado de .XLSX para .ZIP

Para mensagem acima sobre a troca da extensão, click em "SIM"

Logo após esta etapa o icone do arquivo irá mudar para simbolizar o arquivo compactado (ZIP)

3º) abra este arquivo .ZIP

veja que uma relação de pastas e arquivos irá aparecer, não altere nenhuma outra pasta ou arquivo.

a) abra a pasta XL

b) abra a pasta WORKSHEETS

Atenção abra o arquivo XML com " Bloco de Notas ", não use outro editor de texto.

c) abra o arquivo SHEET1.XML

Atenção:  o conteúdo deste arquivo geralmente é grande (neste exemplo esta pequeno porque a pasta esta praticamente vazia, apesar de protegida)

d) localize dentro deste arquivo a palavra " sheetProtection "

e) a partir da sheetProtection delete tudo até a palavra selectLockedCells

Note que as palavras sheetProtection e selectLockedCells não podem ser deletadas

f) Feito isso fechar o arquivo e salvar

g) O compactador irá perguntar se é pra salvar o arquivo compactado, escolha SIM

h) Feito isso pode fechar o compactador

4º) renomeie a extensão do arquivo copiado de .ZIP para .XLSX

Responda SIM para esta mudança de extensão.

PRONTO senha da planilha foi apagada...  pode usar normalmente ...

Note que até a formula que estava escondida voltou a aparecer...

É isso, espero que ajude os mais esquecidos...  lembrem-se de anotar as senhas para evitar todo este trabalho...

ATENÇÃO ESTE POST TEM A INTENÇÃO CLARA DE AJUDAR AS PESSOAS QUE ESQUECERAM A SENHA DE "SUAS" PLANILHAS, E NÃO CORROBORAR NO USO INDEVIDO COM DOCUMENTOS DE TERCEIROS. CUIDADO COM DIREITOS AUTORAIS, VOCÊ PODERÁ SER PROCESSADO PELO DONO DA PLANILHA SE ESTA ESTIVER SOB REGISTRO DE DIREITO AUTORAL.

desenvolvido a partir de pesquisa na internet e conhecimento pessoal by David Vieira

Leia Mais…

Diferença entre tela touch "capacitiva" e "resistiva" : Smartphones, Tables e alguns Monitores

O iPhone 4S utiliza uma tela capacitiva de alta qualidade (Foto: Allan Melo)

Os smartphones e tablets fazem uso do que chamamos de tela sensível ao toque, que pode ser controladas pelo contato dos dedos com o display. Porém, existem dois tipos de telas touch: as chamadas resistivas e as capacitivas.

Vamos esclarecer como é composto cada tipo de display e mostrar os prós e contras de cada um, para que você não tenha dúvidas na hora de escolher qual dispositivo comprar.

Tela RESISTIVA

As telas resistivas possuem menor precisão no reconhecimento do toque, já que são compostas por várias camadas. A superfície frontal é de plástico, resistente a riscos, com material condutor do lado interno. Abaixo, vem uma segunda camada que geralmente é de vidro, mas por vezes é feita de plástico rígido. Conforme pressionamos a tela, estas camadas fazem contato que informam ao sistema qual sua posição em coordenadas.

Existem alguns tipos de telas resistivas que também suportam medir a intensidade do toque. Esse tipo de tela oferece uma precisão de até 80% e tem a necessidade de ser calibrada sempre que possível, uma vez que o material sofre desgaste que muda a tensão aplicada pelo toque. Grande parte dos telefones mais antigos de touchscreen são de tela resistiva.

Na prática, as telas resistivas precisam que o usuário pressione com força para que o aparelho possa dar uma resposta. Com isso, o desempenho dos dispositivos com a tecnologia são inferiores, já que eles são piores para navegação e principalmente para atividades mais complicadas, como jogos.

Tela CAPACITIVA

Telas capacitivas são mais sensíveis ao toque dos dedos

Como o próprio nome sugere, é um tipo de tela que usa um capacitor, com duas placas separadas por um isolante (que pode ser o ar). Assim que o dedo toca esse tipo de tela, um capacitor monitorado pelo sistema informa exatamente onde foi acionado, através de uma troca de elétrons. E é por causa dessa troca que canetas stylus comuns não funcionam nesse tipo de tela, apenas as especiais e o próprio dedo.

Uma das grandes vantagens do display capacitivo é conseguir trabalhar com as informações de vários toques ao mesmo tempo, o que possibilita ao dispositivo reconhecer movimentos diferenciados, como a pinça. A precisão dessa tela pode chegar a 100% e é de alta durabilidade.

As telas capacitivas estão presentes na maior parte dos dispositivos mais modernos, e costumam ter um tempo de resposta muito pequeno e uma usabilidade bem confortável. Porém, dependendo do modelo do aparelho, a tela pode ter desempenhos melhores ou piores.

Qual escolher?
As telas resistivas são mais antigas, já que os primeiros dispositivos com tela touch utilizavam a tipo de tecnologia. Mas não significa que ela seja necessariamente ultrapassada ou desaconselhável, dependendo do seu uso. Se você necessita de precisão utilizando qualquer caneta stylus, por exemplo, o display resistivo pode ser uma escolha sensata. Além disso, aparelhos com este tipo de tela podem custar até metade do preço de modelos capacitivos.

Porém, em questão de conforto, velocidade de resposta e durabilidade, a tela capacitiva leva grande vantagem. Além de serem multi-toque (reconhecendo mais de dois dedos ao mesmo tempo), nos displays capacitivos não há necessidade de fazer força para que o aparelho reconheça seus movimentos, bastando um leve deslize. Além disso, os dispositivos que fazem uso da tecnologia capacitiva costumam ser mais finos.

material retirado da internet: link

Leia Mais…

Onde estão as vagas de T.I. ?

Agosto de 2016 - Jarinu/SP/Brasil.

Tenho acompanhado as inúmeras reclamações que conhecidos, amigos e colegas de trabalho tem publicado nas redes sociais sobre a falta de oportunidades.

Tenho igualmente acompanhado as também inúmeras ofertas de emprego que os principais sites oferecem e em paralelo acompanho também as ofertas que vem dos sites de relacionamento (Facebook e LinkedIn), realmente são muitas ofertas...

Mas assim como todos que reclamam, eu também tenho enviado meu CV para estas oportunidades e não tenho recebido respostas...  Porque?

Minha opinião sobre este assunto esbarra na situação do pais...  Mas tenho visto tantas reportagens afirmando que para área de TI não existe crise, que as vagas estão ai para quem quiser e precisar...  Seria irônico se não fosse trágico...

Quantos precisam, assim como eu, e não temos resposta....  Porque?

Entendo que com a crescente demanda na oferta de mão de obra, tem sido bastante trabalhoso, para não dizer oneroso o trabalho do RH das empresas, afinal com um mercado sobrecarregado de Mão de Obra (mais de 11 milhões), imagino a quantidade de Currículos que o setor de recrutamento esta recebendo para cada vaga publicada...  Isso deve ser muito desgastante, oneroso e claro, não menos importante, deve estar baixando o valor do profissional no mercado, o que é natural nos dias de hoje, afinal quando a oferta é maior que a demanda a tendência é refletir no custo/valor.

Já pensei até no quesito "preparação", ou seja, estudo, aperfeiçoamento, mas eu assim como muitos possuímos além da preparação, a experiência e esta sim não tem preço, afinal nenhuma escola no mundo prepara um profissional para tantos pontos do dia a dia que não são nem citados nas universidades, e cursos preparatórios...

Desta forma, o famoso Q.I. (quem indica), assim como a tal de "Network" esta cada dia mais importante em nossas vidas, pois se o seu currículo não chegar através de uma indicação interna nas empresas, com certeza deve estar na pilha dos milhares de currículos que chegam todos os dias nas mesas dos recrutadores, que não tem culpa do fato de serem tantas as pessoas necessitadas...  Que fique claro, que julgar o RH neste momento é o que menos devemos fazer, afinal, eles assim como nós que somos da área de TI, também respondem por resultados, Velocidade x Qualidade, e não se iludam, se você se acha preparado para a vaga, existem pelo menos mais 20 com a mesma certeza e este número deve ser maior....

Se a vaga não entrar via indicação, vale a ordem de chegada, e uns 70% de sorte do currículo ser lido e pré selecionado...  Nos dias de hoje quem consegue viver de "sorte"... afinal se tivéssemos tanta sorte assim já teríamos ganho na mega-sena.... E dividindo o premio com tanta gente não podemos chamar de sorte.. kkkk

Comente o que você vê desta crise X emprego X oportunidades X recolocação X indicação

Não menos importante, comente se você esta tendo dificuldades em conseguir as indicações, se o teu Network esta respondendo, se você esta trabalhando hoje (entrada recente) e se foi por indicação...

Comente, critique, proponha novos temas...

Te espero!!

Abraço

by David Vieira

Leia Mais…

criando FUNÇÃO "RetirarNumero()" no Excel (VBA)

Para extrair os números de uma célula que contenha dados mistos (letras e números) o Excel tem várias funções nativas, porém todas elas são limitadas a uma série de regras e combinações que muitas vezes só complicam vejam Fórmula para extrair número de texto - EXCEL.

Para simplificar a vida do usuário Excel, vamos criar uma função através do VBA para extrair todo valor numérico de uma célula que tenha texto com números junto.

Nesta função o(s) números(s) podem estar em qualquer posição da célula, a função irá reconhecer e trazer a informação.

Copie esta macro e cole no módulo do VBA , vá em inserir função , função definida pelo usuário e pronto.

Function RetirarNumero(Texto As String)
   Dim x As Integer
   Dim y As Integer
   Dim z As String
   For x = Len(Texto) To 1 Step -1
   If IsNumeric(Mid(Texto, x, 1)) Then
     y = y + 1
     z = Mid(Texto, x, 1) & z
   End If
   If y = 1 Then z = CInt(Mid(z, 1, 1))
     Next x
     RetirarNumero = CLng(z)
 End Function

Neste exemplo de função ela será usada com a seguinte sintaxe na célula onde se queira o resultado:

=retirarnumero(end_celula)

end_celula:  é o endereço físico da célula  exemplo:  =retirarnumero(a1)

Vamos no passo a passo para criar esta função:

1º) O arquivo Excel deverá ser salvo para execução de macro, ou seja, "Pasta de Trabalho Habilitada para Macro do Excel"

2º) A pasta de "Desenvolvedor", precisa estar disponível como na imagem abaixo:

Se esta pasta não estiver habilitada siga a instrução abaixo para habilita-la.

ARQUIVO

     OPÇÕES

          Personalizar Faixa de Opções

no lado direito tem uma relação de opções para Guias Principais, habilite DESENVOLVEDOR

3º) Após habilitado esta pasta, vamos inserir o código VBA.

CLICK no icone Visual Basic na extrema esquerda para abrir o editor

4º) Vamos editar o VBA e criar a função

Na tela de edição abra a tela de projeto VBA (EXIBIR / PROJECT EXPLORER)

Aberta a tela de projeto, insira um Módulo em Plan1

Na tela de código que será aberta insira :

Function RetirarNumero(Texto As String)
Dim x As Integer
Dim y As Integer
Dim z As String
For x = Len(Texto) To 1 Step -1
If IsNumeric(Mid(Texto, x, 1)) Then
y = y + 1
z = Mid(Texto, x, 1) & z
End If
If y = 1 Then z = CInt(Mid(z, 1, 1))
Next x
RetirarNumero = CLng(z)
End Function

Logo após inserir os comandos é só salvar...

Pode fechar esta janela e voltar a planilha de trabalho.

6º) Na célula onde deseja o resultado insira a nova FUNÇÃO...

Fonte pesquisa internet para desenvolvimento deste documento.

Leia Mais…

Fórmula para extrair número de texto - EXCEL

A lógica aqui é pesquisar e extrair o primeiro número da sequência alfanumérica e retornar então somente os números que se seguem.

A solução envolve a criação de fórmulas que executem as seguintes tarefas:

• Quebre a sequência alfanumérica em caracteres separados.
• Verifique se há um número na sequência decomposta.
• Verifique a posição do número na sequência alfanumérica.
• Conte os números na sequência alfanumérica.

Abordaremos cada uma dessas tarefas separadamente e, em seguida, integraremos as fórmulas para obter o resultado final.

QUEBRAR A SEQUÊNCIA ALFANUMÉRICA EM CARACTERES SEPARADOS

Use a função EXT.TEXTO. Essa função retorna um número específico de caracteres de uma sequência de texto, começando na posição em que você indicar, com base no número de caracteres especificado. A sintaxe da função é :

EXT.TEXTO(texto;núm_inicial;núm_caract)

EXT.TEXTO(texto;núm_inicial;núm_caract)
texto:   A sequência texto contém os caracteres que você deseja extrair.
núm_inicial:   A posição do primeiro caractere a ser extraído do texto. O primeiro caractere no texto tem núm_inicial 1 e assim por diante.
núm_caract:   Especifica o número de caracteres que a função EXT.TEXTO deve retornar do texto

Para o nosso exemplo, a fórmula é:=EXT.TEXTO(A1;LIN($1:$9);1)

Essa fórmula decompõe a sequência alfanumérica e coloca os caracteres — virtualmente — em diferentes linhas da planilha. Por exemplo, na sequência alfanumérica abc123, todos os 6 caracteres seriam separados.

OBSERVAÇÃO O número 9 pode ser substituído por qualquer número maior de acordo com o tamanho da sequência. Neste exemplo, o tamanho máximo da sequência é 9.

É importante notar que quando a sequência é decomposta, "1", "2" e "3" são tratados como texto — não como números. Para convertê-los em números, multiplique a fórmula por 1. Por exemplo:=1*EXT.TEXTO(A1;LIN($1:$9);1)

VERIFICAR SE HÁ UM NÚMERO NA SEQUÊNCIA DECOMPOSTA

Aqui empregamos a função ÉNÚM, que verifica se há um número na sequência alfanumérica. A fórmula agora se torna:=ÉNÚM(1*EXT.TEXTO(A1;LIN($1:$9);1))

Se houver um número na sequência, o resultado será VERDADEIRO; caso contrário, será FALSO.

VERIFICAR A POSIÇÃO DO NÚMERO NA SEQUÊNCIA ALFANUMÉRICA

Agora, verificaremos a posição do número localizando um valor VERDADEIRO no resultado da sequência decomposta mencionada no parágrafo acima. Empregaremos a função CORRESP. A nova fórmula agora é:=CORRESP(ÉNÚM(1*EXT.TEXTO(A1;LIN($1:$9);1));0)

IMPORTANTE Você deve digitar essa fórmula como uma matriz pressionando CTRL+SHIFT+ENTER.

Se a sequência for abc123, a fórmula resultará 4 — sendo essa a posição do primeiro caractere numérico na sequência alfanumérica.

CONTAR OS NÚMEROS NA SEQÜÊNCIA ALFANUMÉRICA

A tarefa agora é contar os números na sequência, para determinar os caracteres a serem retornados após o primeiro número na sequência alfanumérica.

Como mencionado acima, os números armazenados como texto na sequência alfanumérica podem ser convertidos para números multiplicando-os por 1. Por exemplo, =1*EXT.TEXTO(A1;LIN($1:$9);1)

Depois de convertê-los para número, é possível contar os números com a função CONT.NÚM. Os números podem ser contados utilizando-se a seguinte fórmula:=CONT.NÚM(1*ENT.TEXTO(A1;LIN($1:$9);1))

INTEGRAR AS FÓRMULAS

Agora, empregaremos a função ENT.TEXTO para integrar as várias partes da fórmula, como mostrado no seguinte exemplo.=ENT.TEXTO(A1;CORRESP(VERDADEIRO,ÉNÚM(1*ENT.TEXTO(A1;LIN($1:$9);1));0);CONT.NÚM(1*ENT.TEXTO(A1;LIN($1:$9);1)))

Em termos básicos, o problema pode ser agora resumido como: Verificar a posição do primeiro número na sequência alfanumérica (na célula A1). Retornar esse número e os seguintes.

Para converter os caracteres do resultado em número, multiplique por 1. Embora isso não seja estritamente necessário, deve ser feito se você for executar operações matemáticas sobre os resultados. Esta é a fórmula final a ser digitada na célula:

B1:  =1*ENT.TEXTO(A1;CORRESP(VERDADEIRO;ÉNÚM(1*ENT.TEXTO(A1;LIN($1:$9);1));0);CONT.NÚM(1*ENT.TEXTO(A1,LIN($1:$9);1)))

IMPORTANTE Você deve inserir essas fórmulas como matrizes pressionando CTRL+SHIFT+ENTER.

fonte: Mauricio Cassemiro - MVP

Leia Mais…