Impedir Editar dados em Planilha (VBA)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Impedir Editar dados em Planilha (VBA)

Mensagem por alexandrevba em Qui Set 06, 2012 6:14 am

Bom dia!!
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
Wink
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum