Este fórum está sendo desativado

[mazim232]

Olá bom dia!

Tenho esta planilha, de auto classificação automatica por ordem alfabetica, que tem uma macro que faz isso, porem quando eu protejo ela não funciona, alguem poderia resolver pra mim.

Ela esta protegida, quem ver, pode perceber que não esta rodando a macro, dar um erro, porem quando desproteger, a macro roda normalmente.

[osvaldomp]

Olá, @mazim232 .

Experimente o código abaixo no lugar do existente.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim LR As Long
  If Target.Count > 1 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  LR = Cells(Rows.Count, "A").End(xlUp).Row
  Me.Protect Password:="", DrawingObjects:=True, _
  Contents:=True, Scenarios:=True, AllowFiltering:=True, userinterfaceonly:=True
  Range("$A$3:$Z" & LR).Sort Key1:=Range("$A$3")
End Sub

#
obs. se quiser adicionar uma senha, coloque-a entre as aspas ~~~> Password:="coloque a senha aqui"

[mazim232]

Muito obrigado, deu certinho, perfeito!!!!

[mazim232]

Sr. Osvaldo, a macro só estar deixando eu fazer lançamentos nas colunas, A e B, se eu quiser fazer alguns lançamentos nas colunas posteriores, C até K, não esta deixando eu fazer lançamentos nestas outras colunas.

[osvaldomp]

Não é a macro que impede os lançamentos, e sim a permissão que você marca ao proteger manualmente a planilha pela primeira vez.

Me parece que você marcou somente Selecionar células desbloqueadas e como possivelmente você não desbloqueou manualmente as células a partir da coluna C então por isso você não consegue acessá-las.

Ainda, a sua macro atua somente após alguma alteração manual na coluna A, e eu não mexi nisso.
Se você quiser que atue de A até K então altere esta linha ~~~> If Target.Column <> 1 Then Exit Sub para ~~~> If Target.Column > 11 Then Exit Sub


Ainda, se você utiliza a planilha somente da coluna A até a coluna K, não faz sentido ordenar até a coluna Z, como está no seu código.
Altere ~~~> Range("$A$3:$Z" & LR) para ~~~> Range("A3:K" & LR)

[mazim232]

Obrigado!
Realmente estava bloqueada.
Resolvido..