Notifications

Clear all

AllowSorting:=True não funciona

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

6 Posts

3 Usuários

0 Reactions

1,283 Visualizações

RSS

jalexm

(@jalexm)

Posts: 77

Trusted Member

Topic starter

Olá.
A planilha exemplo em anexo, possui um título e um cabeçalho com filtros, ambos com células bloqueadas.
As linhas de dados estão desbloqueadas e a planilha está protegida.

Uma macro executa ao abrir a planilha e coloca o nome dela na célula A1.
Para isso, executa o seguinte código:

Private Sub Workbook_Open()
   With ActiveSheet
      .Unprotect
      .Range("A1").Value = .Name
      .EnableSelection = xlUnlockedCells
      .Protect AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True
   End With
End Sub

Bem simples. O problema é que, apesar de AllowSorting:=True, ao tentar classificar os dados, surge mensagem de erro.
AllowSorting:=True simplesmente não funciona, ou eu estou esquecendo de alguma coisa.
Curiosamente, AllowFiltering:=True funciona perfeitamente.

Alguém tem uma solução para isso?
Obrigado.

Teste.xlsm

Postado : 21/02/2014 5:32 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Leia as REGRAS
Utilize arquivos COMPACTADOS

Veja também:

Compactar arquivos usando o próprio Windows
Compactar arquivos usando o Winrar
Compactadores de arquivos para baixar

Sobre o erro, não tive esse problema. Pra mim funcionou normalmente.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 21/02/2014 6:44 am

jalexm

(@jalexm)

Posts: 77

Trusted Member

Topic starter

Leia as REGRAS
Utilize arquivos COMPACTADOS

Prometo me lembrar da próxima vez.

Sobre o erro, não tive esse problema. Pra mim funcionou normalmente.

Talvez você tentado apenas "filtrar". Esse funciona.
O que não funciona é "classificar".

Postado : 21/02/2014 7:09 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Na verdade, eu tentei classificar.

Tentei com a ferramenta de classificar, e com os atalhos da ribbon (aquele com símbolo A-Z).

Vc tem uma tela do erro? Ou a mensagem que deu?

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 21/02/2014 8:21 am

jalexm

(@jalexm)

Posts: 77

Trusted Member

Topic starter

Pesquisando um pouco mais, encontrei esta solução (Excel 2010):
- Selecionar as células a serem filtradas/classificadas.
- "Revisão" > "Permitir que os Usuários Editem Intervalos".
- Botão "Novo".
- Botão "OK".
- Botão "Proteger Planilha".
- Marcar somente as opções:
"Selecionar células desbloqueadas"
"Inserir linhas"
"Excluir linhas"
"Classificar"
"Usar AutoFiltro"
- Botão "OK"
Isso resolveu o problema para o meu caso.