quinta-feira, 10 de agosto de 2017

Remover Imagens do Excel com VBA

Segue abaixo um procedimento com macro para desbloquear em apenas alguns segundos uma planilha protegida por senha no EXCEL. 

Siga os passos abaixo conforme indicado.



Passo 1
Abra a planilha protegida e digite ALT+F11

Passo 2
Se você fez certo o passo anterior agora deverá estar aberto o Microsoft Visual Basic. 
Vá em INSERIR > MÓDULO

Passo 3: 
Insira a rotina abaixo copiando e colando desde a linha "Sub RemoverImg()" até "End Sub"

Sub RemoverImg()
On Error Resume Next
Dim img As Shape, cl1 As String, cl2 As String

cl1 = Application.InputBox(prompt:="Célula 1:", Type:=8)
cl2 = Application.InputBox(prompt:="Célula 2:", Type:=8)


For Each img In ActiveSheet.Shapes
    If Not Application.Intersect(img.TopLeftCell, ActiveSheet.Range(cl1 & ":" & cl2)) Is Nothing Then
        img.Delete
    End If
Next

End Sub

Passo 4: Clique no disquete em Salvar na tela de edição da macro.

Passo 5: Digite ALT+F11 novamente para retornar a planilha protegida. 


Digite ALT+F8. Selecione sua macro (Removerimg) e clique em executar.

Passo 6: Sera aberta uma janela solicitando o intervalo de celulas que contenha imagens, deixe em branco para remover todas as imagens.

Espero ter ajudado! Deixe seu comentário abaixo, ok!

Nenhum comentário:

Postar um comentário