Epirus

Bem-Vindo, Visitante
Username: Password: Lembrar-me

TÓPICO: Filtros no Excel

Filtros no Excel 2 mêses 2 semanas ago #737

  • MARCELO PAVIANI
  • MARCELO PAVIANI's Avatar
  • OFFLINE
  • Junior Boarder
  • Postagens: 27
  • Thank you received: 1
  • Karma: 0
Robert bom dia;
Veja se vc pode me ajudar!!

Quando a planilha está PROTEGIDA, não se consegue utilizar os FILTROS. Vc sabe de alguma forma para utilizar os FILTROS, mesmo com a planilha protegida?

Outra situação, quando a planilha está protegida, também não consigo abrir o AGRUPAMENTO. Para este caso, vc sabe como resolver?
O administrador desabilitou o acesso público de escrita.

Filtros no Excel 1 mês 4 semanas ago #738

  • Robert Martim
  • Robert Martim's Avatar
  • OFFLINE
  • Administrator
  • Postagens: 279
  • Thank you received: 23
  • Karma: 4
Você não tem como fazer isso, pois o que você deseja fazer é uma modificação da planilha. A interface apenas lhe dá opções limitadas. Porém, por VBA você como proteger sem after as funcionalidades. Isso é feito como segue:
Sub ProtegerApenasInterface()
    With ThisWorkbook.ActiveSheet
        .Protect Userinterfaceonly:=True
        .EnableOutlining = True
    End With
End Sub
O administrador desabilitou o acesso público de escrita.

Filtros no Excel 1 mês 4 semanas ago #739

  • MARCELO PAVIANI
  • MARCELO PAVIANI's Avatar
  • OFFLINE
  • Junior Boarder
  • Postagens: 27
  • Thank you received: 1
  • Karma: 0
Robert; muito obrigado pela ajuda. Mas vc poderia verificar a situação:
- VBA abaixo, deu certo somente nos agrupamentos. Para os filtros, não deu certo. Anexo exemplo.
- Neste VBA é possivel incluir uma senha na proteção?


Arquivo Anexo:

Nome do Arquivo: Cpiadeteste002.zip
Tamanho do Arquivo: 17 KB
O administrador desabilitou o acesso público de escrita.

Filtros no Excel 1 mês 4 semanas ago #740

  • Robert Martim
  • Robert Martim's Avatar
  • OFFLINE
  • Administrator
  • Postagens: 279
  • Thank you received: 23
  • Karma: 4
Sub ProtegerApenasInterface()
    With ThisWorkbook.ActiveSheet
        .Protect Password:="MinhaSenha", Userinterfaceonly:=True
        .EnableOutlining = True
    End With
End Sub
O administrador desabilitou o acesso público de escrita.

Filtros no Excel 1 mês 4 semanas ago #742

  • Robert Martim
  • Robert Martim's Avatar
  • OFFLINE
  • Administrator
  • Postagens: 279
  • Thank you received: 23
  • Karma: 4
Sub ProtegerApenasInterface()
    With ThisWorkbook.ActiveSheet
        .Protect Password:="MinhaSenha", Userinterfaceonly:=True
        .EnableOutlining = True
    End With
End Sub
O administrador desabilitou o acesso público de escrita.

Filtros no Excel 1 mês 4 semanas ago #744

  • Robert Martim
  • Robert Martim's Avatar
  • OFFLINE
  • Administrator
  • Postagens: 279
  • Thank you received: 23
  • Karma: 4
Sub ProtegerApenasInterface()
    With ThisWorkbook.ActiveSheet
        .Protect Password:="MinhaSenha", Userinterfaceonly:=True
        .EnableOutlining = True
    End With
End Sub
O administrador desabilitou o acesso público de escrita.

Filtros no Excel 1 mês 4 semanas ago #745

  • Robert Martim
  • Robert Martim's Avatar
  • OFFLINE
  • Administrator
  • Postagens: 279
  • Thank you received: 23
  • Karma: 4
No objetoo "EstaPastaDeTrabalho", você deve usar:
Private Sub Workbook_Open()
    With ThisWorkbook.ActiveSheet
        .Protect Password:="MinhaSenha", Userinterfaceonly:=True
        .EnableOutlining = True
    End With
End Sub
O administrador desabilitou o acesso público de escrita.
Time to create page: 0.221 seconds