Desproteger planilha

2024 - VBA & Macros

Post Recente por Silviag123 5 anos atrás

3 Posts

2 Usuários

0 Reactions

1,032 Visualizações

RSS

Silviag123

(@silviag123)

Posts: 3

New Member

Topic starter

Preciso desproteger uma planilha sempre que alguma célula da coluna N for selecionada.

Estou usando a macro abaixo, porém, não está funcionando. Alguém poderia me ajudar?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "N:N" Then ActiveSheet.Unprotect Password:="1234"
    
    If Intersect(Target, Range("N:N")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

    Application.EnableEvents = False
ActiveSheet.AutoFilter.ApplyFilter
    With ActiveWorkbook.Worksheets("Priorização").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.EnableEvents = True
  
    
    Protect Password:="1234", UserInterfaceOnly:=True
End Sub

Postado : 04/11/2019 9:22 am

Mauro Coutinho

(@coutinho)

Posts: 95

Estimable Member

Silviag123, veja se é isso o que quer :

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Intersect(Target, Range("N:N")) Is Nothing Or Target.Cells.Count > 1 Then
        Exit Sub
    
    Else
        ActiveSheet.Unprotect Password:="1234"
    
        ActiveSheet.AutoFilter.ApplyFilter
        
        With ActiveWorkbook.Worksheets("Priorização").AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    
        Application.EnableEvents = True
        
        Protect Password:="1234", UserInterfaceOnly:=True
    
    End If

End Sub

[]s
Mauro Coutinho

Postado : 04/11/2019 9:53 am