Pergunte aqui
0

Macro para proteger Células especificas

perguntadas 2019-02-22 15:01:05 +0100

imagem do gravatar de Marco Salles

Boa tarde

Alguém poderia me ajudar a escrever um Macro para proteger células específicas de uma Planilha

ou desbloquear ??

Obrigado

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Pra que uma macro? Isso é feito no menu.

imagem do gravatar de OlivierOlivier ( 2019-02-22 19:38:09 +0100 )editar

Obg pela rspostas . Pq essas Planilhas são criadas em rumtime . E para algumas Planilhas a Célula deve ser Bloqueada para não sofre edição. Por exemplo uma Planilha salva com o CODIGO de um Produto. Ja existe esta Planilha com este CÒDIGO e portanto so pode editar o resto de informação o CÓDIGO não mais , a não ser que seja um Documento NOVO Espero ter sido claro Obg

imagem do gravatar de Marco SallesMarco Salles ( 2019-02-23 01:32:51 +0100 )editar

1 Resposta

1

respondidas 2019-02-22 19:18:45 +0100

imagem do gravatar de Conrado

@Marso Salles.

Primeiramente você precisa definir qual célula deverá ser bloqueada.

1- Selecione as células que não devem ser bloqueadas 2 - Vá em Formatar / Células (Ctrl + 1) 3 - Na aba Proteção de Célula, desmarque a opção "Protegido"

Abaixo as macros

Sub Proteger

    Dim Senha as String

        oDoc = ThisComponent
        oPlan = oDoc.Sheets.getByName( "Planilha1" )

        Senha = "sua senha"

        REM Proteger a planilha
        oPlan.Protect(Senha)

End Sub

REM=============NOVO_PROCEDIMENTO===================================

Sub Desproteger

    Dim Senha as String

        oDoc = ThisComponent
        oPlan = oDoc.Sheets.getByName( "Planilha1" )

        Senha = "sua senha"

        REM Proteger a planilha
        oPlan.Unprotect(Senha)

End Sub
editar assinalar como ofensivo Excluir Link mais

Comentários

Obrigado pela respostas . Essa rotina é muito legal e eu ja a uso . Porém ela Bloqueia/Desbloqueia todas as células e não uma específica

imagem do gravatar de Marco SallesMarco Salles ( 2019-02-23 01:34:03 +0100 )editar

Isso que você está precisando não tem recurso no LO e nem no Excel. Para dar certo, teria que trabalhar com formulários (controle de formulário).

imagem do gravatar de ConradoConrado ( 2019-02-25 13:07:03 +0100 )editar

Obg pelas respostas mas acredito que tenha sim ....

imagem do gravatar de Marco SallesMarco Salles ( 2019-02-26 00:56:35 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-02-22 15:01:05 +0100

Lidas: 142 vezes

Última atualização: Feb 22