Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Impedir Editar dados em Planilha (VBA)

Ir para baixo

Impedir Editar dados em Planilha (VBA) Empty Impedir Editar dados em Planilha (VBA)

Mensagem por alexandrevba 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
alexandrevba
alexandrevba
Intermediário
Intermediário

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

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos