Desbloquear planilha com senha em excel 2010

Excel-2010-basico

Entre no menu exibição -> Macro

Coloque o código abaixo e pressione o F5.

Pronto, agora basta fechar e verificar as fórmulas.

 

Sub Macro1()

2

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

3

On Error Resume Next

4

For i = 65 To 66

5

For j = 65 To 66

6

For k = 65 To 66

7

For l = 65 To 66

8

For m = 65 To 66

9

For i1 = 65 To 66

10

For i2 = 65 To 66

11

For i3 = 65 To 66

12

For i4 = 65 To 66

13

For i5 = 65 To 66

14

For i6 = 65 To 66

15

For n = 32 To 126

16

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)

17

If ActiveSheet.ProtectContents = False Then

18

19

Exit Sub

20

End If

21

Next

22

Next

23

Next

24

Next

25

Next

26

Next

27

Next

End Sub

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s