Tomás Vásquez - Blog

Excel 2000 - Habilitando o AutoFiltro em uma planilha protegida

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:

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