Se a planilha estiver protegida com senha, use um código para desprotegê-la, mostre tudo, e então coloque a proteção novamente.
Veja abaixo:
Sub ShowAllProtectedPwd()Dim strPwd As StringstrPwd = "andrebernardes"With ActiveSheet.Unprotect Password:=strPwd.ShowAllData.Protect _Contents:=True, _AllowFiltering:=True, _UserInterfaceOnly:=True, _Password:=strPwdEnd WithEnd Sub
Tags: VBA, Excel, Autofilter, filtro, AutoFiltro, worksheet, filtered, desligar, turn on,