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

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), protege e ou desprotege uma folha de planilha em determinadas colunas, sensibilizada pelo Evento_Change(Ao digitar), nas colunas(A)=1, Coluna(D)=4, Coluna(7)=G.
A finalidade é proteger somente as colunas onde se encontra o número da matrícula já digitado e deixar liberado as células em branco, para novas digitações, nas outras colunas na folha de planilha nao sensibilizada pelo procedimento ficam desprotegidas, para mudança do status, para sim ou não. Baixe o exemplo de planilha no final da página para melhor entendimento. Fiquem com Deus, Expedito Marcondes.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vCelula As Range, vRegiao As Range
Set vRegiao = Intersect(Target, Union(Columns(1), Columns(4), Columns(7)))

If vRegiao Is Nothing Then Exit Sub
ActiveSheet.Unprotect

For Each vCelula In vRegiao
If vCelula <> "" Then
vCelula.Locked = True
Else
vCelula.Locked = False
vCelula.FormulaHidden = False
End If
Next vCelula
[B1].Value = "Folha de Planilha PROTEGIDA!"
[B1].Font.ColorIndex = 10
ActiveSheet.Protect

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

Publicidade
Compre com segurança, garantia e ótimos preços

Macro impede usuário de ativar células onde há formulas
Macro do Aplicativo Microsoft Excel VBA, impede o usuário, de digitar nas células onde contém fórmulas, mas não pelo método validação, mas via vba mesmo. O usuário vai clicar nas células onde contém as fórmulas e elas vão estar congeladas indisponível para ativação e digitação, somente com células que contenham fórmulas. Veja bem, protege com senha determinada planilha e desprotege

Sub protege_celulas_formulas()
Protecao_celulas_Formulas Worksheets("Plan3"), "Saberexcel"
End Sub

Sub DesProtege_celulas_formulas()
Worksheets("Planl3").Unprotect "Saberexcel"
End Sub

Sub Protecao_celulas_Formulas(Ws As Worksheet, PassWord As String)
On Error Resume Next

With Ws
.Unprotect PassWord 'que a palavra (senha) é passada para a macro
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.EnableSelection = xlUnlockedCells
.Protect PassWord
End With
End Sub


Aprenda Microsoft Excel VBA ((SaberExcel))

Saberexcel - o Site das Macros
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 Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros
Macros do Aplicativo Microsoft Excel VBA, protege todas as folhas de planilha do Livro, com auxílio de uma caixa de entrada (InputBox)

Sub Proteger_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
Dim vMinhaSenha As String

vMinhaSenha = InputBox("Entre com sua Senha!" & vbCrLf & _
"(Aceita espaço em branco sem senhas)" & vbCrLf & vbCrLf & _
"Nao esqueça a senha!", "Entre com a Senha - Saberexcel ")

For Each Wsh In ThisWorkbook.Worksheets
Wsh.Protect (vMinhaSenha)
Next Wsh

End Sub

observem que esta macro vai desproteger suas planilhas, mudamos pouca coisa, voce só tem que lembrar da senha para desprotegê-la.

Sub Desproteger_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
Dim vMinhaSenha As String

vMinhaSenha = InputBox("Entre com sua Senha!" & vbCrLf & _
"(Vamos desproteger todas as planilhas)" & vbCrLf & vbCrLf & _
"Lembre-se da senha!", "Entre com a Senha - Saberexcel ")


For Each Wsh In ThisWorkbook.Worksheets
Wsh.Unprotect (vMinhaSenha)
Next Wsh

End Sub

Aprenda Aplicativo Microsoft Excel VBA com qualidade Saberexcel