Bloquear / proteger células ou tabelas com senha usando INPUTBOX no Excel VBA.

Saiba bloquear apenas uma parte de sua planilha Excel usando senha e INPUTBOX no VBA para restringir seu acesso.

Muitas vezes queremos restringir o acesso a apenas uma parte de nossas tabelas e deixar o resto livre para todos. Para isso, nós criamos esse código Excel VBA para realizar essa tarefa.

É um código simples e criativo onde usamos os eventos CHANGE e SELECTIONCHANGE. Confiram.

O nosso canal tem como objetivo ensinar Excel e VBA a internautas com pouco ou nenhum conhecimento sobre o assunto. Oferecemos, entre outras coisas, cursos de Excel básico, intermediário e avançado. Isso inclui exercícios variados e criativos onde você poderá aplicar o seu conhecimento adquirido em situações reais.

A importância dessa ferramenta é fundamental em qualquer profissão. Isso porque todo ambiente de trabalho necessita, de uma forma ou de outra, executar pequenos controles e tarefas repetitivas. Portanto, não perca tempo. Não fique para trás. Venha conosco se aventurar nessa ferramenta.

DOWNLOAD ARQUIVOS GRÁTIS:

PLAYLIST RESPOSTAS:

PLAYLIST COMO PENSA UM PROGRAMADOR:

PLAYLIST DICAS RÁPIDAS:

PLAYLIST PROCEDIMENTOS:

PLAYLIST HORÁRIO ESCOLAR 2021:

PLAYLIST CURSO VBA BÁSICO:

CÓDIGO DESTE VÍDEO:
Sub Cadeado()
If Range("E4").Value = 1 Then
Range("E4").Value = 0
Exit Sub
ElseIf Range("E4").Value = 0 Then
Range("E4").Value = 1
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Senha As Variant

If (Target.Address = "$E$4" And Target.Value = 1) Then
ActiveSheet.Shapes.Range(Array("Cadeado_02")).IncrementTop 8.75
MsgBox "A tabela acabou de ser bloqueada."
Exit Sub
End If

If (Target.Address = "$E$4" And Target.Value = 0) Then
Senha = InputBox("Desbloquear tabela:", "Cadeado:", "Sua senha aqui")
If Senha = 1234 Then
ActiveSheet.Shapes.Range(Array("Cadeado_02")).IncrementTop -8.75
MsgBox "Tabela desbloqueada."
Exit Sub
Else
Application.EnableEvents = False
Range("E4").Value = 1
Application.EnableEvents = True
MsgBox "Senha incorreta."
Exit Sub
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("E4").Value = "1" Then
If (Target.Column = 1 Or Target.Column = 2 Or _
Target.Column = 3 Or Target.Column = 4) And _
(Target.Row MAIOR 4 And Target.Row MENOR 20) Then
Range("A4").Select
MsgBox "Tabela bloqueada."
Exit Sub
End If
End If
End Sub

CURSO EXCEL SEM VBA:

[explorarexcel]

SEGUE CÓDIGO DESTE VÍDEO:

Sub Cadeado()
If Range("E4").Value = 1 Then
Range("E4").Value = 0
Exit Sub
ElseIf Range("E4").Value = 0 Then
Range("E4").Value = 1
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Senha As Variant

If (Target.Address = "$E$4" And Target.Value = 1) Then
8.75
MsgBox "A tabela acabou de ser bloqueada."
Exit Sub
End If

If (Target.Address = "$E$4" And Target.Value = 0) Then
Senha = InputBox("Desbloquear tabela:", "Cadeado:", "Sua senha aqui")
If Senha = 1234 Then
-8.75
MsgBox "Tabela desbloqueada."
Exit Sub
Else
Application.EnableEvents = False
Range("E4").Value = 1
Application.EnableEvents = True
MsgBox "Senha incorreta."
Exit Sub
End If
End If
End Sub


Private Sub Target As Range)
If Range("E4").Value = "1" Then
If (Target.Column = 1 Or Target.Column = 2 Or _
Target.Column = 3 Or Target.Column = 4) And _
(Target.Row > 4 And Target.Row < 20) Then
Range("A4").Select
MsgBox "Tabela bloqueada."
Exit Sub
End If
End If
End Sub