Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#60477
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
Você não está autorizado a ver ou baixar esse anexo.
#60523
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.
#60526
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 agradeceu por isso
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord