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.
Postado : 21/02/2014 5:32 am