Boa tarde
Alguém poderia me ajudar a escrever um Macro para proteger células específicas de uma Planilha
ou desbloquear ??
Obrigado
Pra que uma macro? Isso é feito no menu.
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
@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 SubObrigado 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
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).
Obg pelas respostas mas acredito que tenha sim …