Este fórum está sendo desativado

[Leonardo1234]

Pessoal,

Dentro de uma macro que desprotege e protege a planilha, eu estou com um problema, em que quando, a macro vai protegê-la, ela não deixa habilitado o uso do AutoFiltro, formatar linhas e formatar colunas, que são opções que eu preciso manter desbloqueadas. Alguém consegue uma solução? Segue a macro abaixo e a planilha em anexo, a senha para acessar o VBA é "131077".

Sub InsereLinhaEmTabela()
On Error GoTo fim
If ActiveCell.ListObject <> "" Then
ActiveSheet.Unprotect "131077"
Range(ActiveCell.ListObject.Name).ListObject.ListRows.Add ActiveCell.Row - 1
ActiveSheet.Protect "131077"
End If
fim:
End Sub

[Leonardo1234]

Alguem consegue me ajudar nisso? Por favor pessoal, preciso muito de uma solução.

[Kledison]

Boa tarde Leonardo!

verifica as dicas do site do Tomas Vasquez ajuda!


http://www.tomasvasquez.com.br/forum/vi ... .php?t=268


Att

[Leonardo1234]

Kledison, muito obrigado pela dica, o problema é que meu conhecimento em vba é zero.. eu não sei como eu acrescentaria essas linhas no codigo, você não consegue me mandar como ficaria na macro que eu tenho? Preciso deixar habilitado como eu disse, o uso do autofiltro, e editar colunas e linhas. Agradeço muito se vc conseguir me ajudar nessa.

[Kledison]

Ok, também não sou fera no VBA, mas vamos tentar.

acrescente o que está de vermelho na sua MACRO.

Sub InsereLinhaEmTabela()
On Error GoTo fim
If ActiveCell.ListObject <> "" Then
ActiveSheet.Unprotect "131077"
Range(ActiveCell.ListObject.Name).ListObject.ListRows.Add ActiveCell.Row - 1
ActiveSheet.Protect "131077", AllowFiltering:=True, AllowFormattingCells:=True
End If

Rode a MACRO e confira se é assim que deseja.

Att
fim:
End Sub

[Leonardo1234]

Boa Kledison, funcionou sim, brigadaoooo