DESBLOQUEAR PLANILHAS

Como desbloquear planilha de Excel com senha:

 

  • Primeiro, clique na aba Desenvolvedor e no botão Visual Basic

  • Após isso, acesse a guia de projetos à esquerda localize o projeto VBAProject(PERSONAL.XLSB)

  • Clique na pasta módulos deste projeto, e abra um dos módulos

  • No final dos códigos que existem lá, cole o código abaixo

 

'Desproteger 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 "One usable password is " & 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

 

  • Para executar este procedimento você deve estar no seu arquivo Excel, na planilha bloqueada

  • Clique na guia Desenvolvedor

  • Clique no botão macros e selecione PERSONAL.XLSB!DesprotegerPlanilhaAtiva.

  • Clique em executar.

  • Pronto! O resultado pode demorar um pouco para aparecer, mas ele vai exibir uma mensagem na tela informando uma nova senha, mas já terá desbloqueado a planilha.

__________________________________________________________________________________________________________________________________________________________________________________

Quadro/Formas/Imagens/Objetos Flutuantes

Para criar o Quadro/Formas/Imagens/Objetos flutuante você deve seguir o passo-a-passo abaixo:

Primeiramente renomeie o seu Quadro/Formas/Imagens/Objetos.


Agora vamos fazer com que o quadro fique flutuante, para isto pressione as teclas ALT+F11 ou vai em Desenvolvedor>Grupo Código>Visual Basic, será exibido o ambiente VBE


No ambiente em Microsoft Excel Objetos localize a planilha onde consta o Quadro/Forma/Imagem/Objeto e dê um duplo clique para abrir a página de fonte


Nesta página digite ou copie o seguinte código fonte

Public Sub Mover()
    ActiveSheet.Shapes("Informar o nome do Quadro/Forma/Imagem/Objeto").Select
    Selection.Cut
    Cells(ActiveWindow.ScrollRow + 1, 11).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Este código realiza a movimentação do objeto “Quadro/Forma/Imagem/Objeto” conforme a célula que estiver ativa no momento


Digite ou copie  também o seguinte código que fará com que ao mudar a célula a imagem será posicionada de acordo com a movimentação da planilha
 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Sair
    
    Dim lRng As Range
    Set lRng = Selection
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Mover
    
    lRng.Select
    
Sair:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Agora volte á planilha e á medida que for selecionada uma linha para cima ou para baixo o quadro será movimentado automaticamente através da chamada do evento Worksheet_SelectionChange.