Impedir Editar dados em Planilha (VBA)
Página 1 de 1
Impedir Editar dados em Planilha (VBA)
Bom dia!!
Impedir editar os dados uma vez posto na planilha.
Impedir editar os dados uma vez posto na planilha.
- Código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewValue As Variant, OldValue As Variant
If Target.Count > 1 Then Exit Sub
'Say you want to work with the range A1:F100
If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
NewValue = Target.Value
Application.EnableEvents = False
Application.Undo
OldValue = Target.Value
If OldValue = "" Then
Target.Value = NewValue
ElseIf InputBox("entre com a senha") = "alevba" Then
Target.Value = NewValue
Else: MsgBox "Você não tem permissão para alterar o conteúdo da celula.", 16, "Células Bloqueadas"
Target.Value = OldValue
End If
Application.EnableEvents = True
End If
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» DADOS DE OUTRA PLANILHA
» Modelos – Planilha de Banco de Dados no Excel (Recurso com VBA)
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar dados de vários arquivos para uma única planilha
» Inserindo dados nas linhas da planilha de acordo com a hora do sistema
» Modelos – Planilha de Banco de Dados no Excel (Recurso com VBA)
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar dados de vários arquivos para uma única planilha
» Inserindo dados nas linhas da planilha de acordo com a hora do sistema
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|