Home Excel - Dicas Microsoft Excel VBA Excel VBA - Proteger - Desproteger Excel planilha vba proteger desprotege executa macro protege novamente

Excel planilha vba proteger desprotege executa macro protege novamente

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esssa Macro do Aplicativo Microsoft Excel VBA, desprotege determinada folha de planilha, insere uma autonumeração e depois protege novamente via macro, então, essa macro poderá ser muito útil para você desproteger uma planilha, rodar uma determinada macro e a protegê-la novamente.

Option Explicit
Dim BoolProtect As Boolean
Const senha As String = "teste"

Sub Desprotege_Planilha()
Dim ws As Worksheet
Set ws = ActiveSheet
BoolProtect = False
'Checa se a planilha esta protegida.
If ws.ProtectContents = True Then
BoolProtect = True
'desprotege a planilha
ws.Unprotect _
Password:=senha
End If
End Sub

Sub Protege_Planilha()
Dim ws As Worksheet
Set ws = ActiveSheet
' Checa se planilha esta protegida
If BoolProtect = False Then
ws.Protect _
Password:=senha
BoolProtect = False
Else
ws.Protect _
Password:=senha
BoolProtect = True
End If
End Sub

Sub Desprotege_roda_macro_protege()
Call Desprotege_Planilha
Call Minha_Macro
Call Protege_Planilha
End Sub

Sub Minha_Macro()
Dim i As Integer
Range("D3") = "Macro desprotegeu a planilha para rodar rotina....."
Range("D4") = "Macro inserindo númeração de 1 a 10000....."

For i = 1 To 10000
Sheets("Plan1").Cells(1 + i, 1) = i
Next

Range("D3") = ""
Range("D4") = "Dados inseridos e planilha protegida novamente....."
End Sub

Sub Teste()
Dim senha
senha = "teste"
ActiveSheet.Unprotect senha
Range("A2:A5000").ClearContents
Range("D4") = ""
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




    Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba proteger desprotege executa macro protege novamente (84.67 kB)

Última atualização em Ter, 23 de Agosto de 2011 08:21  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4906
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19953
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38141
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460970
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA