Página 1 de 1
Rodar macro em planilha com colunas e linhas bloquedas
Enviado: 14 Jun 2022 às 11:56
por 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.
Re: Rodar macro em planilha com colunas e linhas bloquedas
Enviado: 14 Jun 2022 às 13:40
por osvaldomp
Olá,
@mazim232 .
Experimente o código abaixo no lugar do existente.
Código: Selecionar todosPrivate 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"
Re: Rodar macro em planilha com colunas e linhas bloquedas
Enviado: 14 Jun 2022 às 13:58
por mazim232
Muito obrigado, deu certinho, perfeito!!!!
Re: Rodar macro em planilha com colunas e linhas bloquedas
Enviado: 14 Jun 2022 às 14:22
por 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.
Re: Rodar macro em planilha com colunas e linhas bloquedas
Enviado: 14 Jun 2022 às 15:53
por 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)
Re: Rodar macro em planilha com colunas e linhas bloquedas
Enviado: 14 Jun 2022 às 16:25
por mazim232
Obrigado!
Realmente estava bloqueada.
Resolvido..