quarta-feira, 15 de agosto de 2012

Como utilizar a planilha enquanto o UserForm está na tela

Dica boba e super simples, mas talvez alguém ainda não saiba:
Quanto tiver um UserForm aberto na tela e necessitar navegar pela planilha, altere a propriedade "Modal" do formulário para FALSE e veja o resultado.
É como se fosse uma tela "flutuando" sobre a planilha...

;-)

domingo, 12 de agosto de 2012

Desproteger planilhas via VBA

Este é um dos códigos mais "manjados" da internet.
Não sei a autoria, estou deixando aqui apenas para futuras consultas.


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 desprotegida com sucesso!!!"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.