Pergunte aqui
0

É possível usar filtro avançado com a planilha protegida? calc

perguntadas 2019-03-03 20:12:22 +0200

imagem do gravatar de mrkalvin

updated 2019-03-03 23:09:30 +0200

Tenho uma planilha onde desprotegi os campos que o usuário poderia editar. E protegi a planilha com a opção "Selecionar células protegidas" não selecionada.

Se eu vou incluindo um { print "teste" } pelo código da macro, vou recebendo a mensagem, ou seja a macro está sendo executada.

Mas ele não efetua o filtro avançado, pra exibir os resultados.

O comportamento esperado é assim: Na planilha "Dipensação" na celula A2 devo escolher um número IDS válido. Então ele faz o filtro avançado e retorna o resultado na celula b7.

Teria como usar o filtro avançado com a planilha protegida?

Arquivo Exemplo sem proteger a planilha

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

1

respondidas 2019-03-03 21:53:58 +0200

@mrkalvin, não, mas pode contornar, desprotegendo, executa e protegendo novamente.

Inclua estas macro no arquivo:

Sub Desproteger ( xPlanilha As String )
    Dim Senha as String
        oDoc = ThisComponent
        oPlan = oDoc.Sheets.getByName ( xPlanilha )
        Senha = " "            '<= AQUI É A SENHA..................
        REM Proteger a planilha
        oPlan.Unprotect(Senha)
End Sub


Sub Proteger ( xPlanilha As String )
    Dim Senha as String
        oDoc = ThisComponent
        oPlan = oDoc.Sheets.getByName( xPlanilha )
        Senha = " "            '<= AQUI É A SENHA..................
        REM Proteger a planilha
        oPlan.Protect(Senha)
End Sub

E nas macros, ConteudoAlterado e sbClearCells no inicio delas coloque Call Desproteger "Dispensação" e no final Call Proteger "Dispensação"

E as linhas 11 e 12 também Proteger.

Veja planilha com alterações.

.

Caso queira proteger as Macros, veja aqui: https://ask.libreoffice.org/pt-br/que...


Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-03-03 20:12:22 +0200

Lidas: 21 vezes

Última atualização: Mar 03