Ativar o AutoFiltro em uma planilha protegida desde o Excel XP/2002 é uma tarefa simples, já que ao protegê-la, a caixa de diálogo oferecida já oferece esta possibilidade.
O problema é que os usuários do Excel 2000, que ainda são muitos não gozam desta funcionalidade. Felizmente, a Microsoft publicou um código em VBA que implementa esta funcionalidade. O código abaixo efetua a proeza:
1 2 3 4 5 6 | Private Sub Workbook_Open() Sheet1.Protect password:="test", DrawingObjects:=True, _ contents:=True, Scenarios:=True, _ userinterfaceonly:=True Sheet1.EnableAutoFilter = True End Sub |
Resumidamente, o código efetua a proteção tradicionalmente e habilita o autofiltro logo em seguida.
A referência e código completo podem ser vistos neste link:
http://office.microsoft.com/en-us/excel/HA010982701033.aspx
Abraços
Tomás Vásquez
www.tomasvasquez.com.br