Limpar células desprotegidas

MariPacheco · 9 de março de 2016

Pessoal!
Preciso criar algo que me ajude a limpar as células desprotegidas de uma planilha.
Achei o código abaixo para uma macro no Excel mas não sei como transcrever para o Basic.

Sub Limpar()
Dim c As Range
For Each c In Sheets(1).Range("C44:D45")
If c.Locked = False Then
c.Value = ""
End If
Next

End Sub

Agradeço desde já pela ajuda!

Patropi · 9 de março de 2016

Boa tarde Mari

A programação do Libre não é em VBA, por isso não tenho conhecimento para te ajudar.

Veja se o material desses links podem te ajudar:

http://sejalivre.org/aprenda-a-apagar-as-linhas-vazias-no-libreoffice-calc/

https://www.vivaolinux.com.br/topico/BrOffice.org-GuBros-1/Limpar-celulas-usando-Macro

http://www.ubuntudicas.com.br/2013/12/como-remover-linhas-em-branco-calc/

https://infoetrecos.wordpress.com/2015/02/01/eliminar-linhas-em-branco-em-planilhas-libreoffice-calc/

http://www.matsuura.com.br/2013/05/aprenda-apagar-as-linhas-vazias-no.html

Um abraço

MariPacheco · 10 de março de 2016

valeu Patropi! De qualquer forma muito obrigada pela atenção! Abs

TianK · 12 de março de 2016

Mari, boa tarde

Se eu entendi corretamente, você deseja apagar o conteúdo das células desprotegidas.

Então, uma macro construída usando a API Basic do LibreOffice ficaria assim:

Sub Limpar
' Primeira planilha no momento (mais a esquerda)
oPlan = ThisComponent.Sheets.getByIndex( 0 )
' Intervalo
oI = oPlan.getCellRangeByName( "C44:D45" )
' Endereço/limites do intervalo
oE = oI.getRangeAddress

' Loop nas células do Intervalo
For nL = oE.StartRow to oE.EndRow
   For nC = oE.StartColumn To oE.EndColumn
      oC = oPlan.getCellByPosition( nC,nL )

      ' Verifica se a célula está desprotegida
      If NOT oC.CellProtection.IsLocked Then
         ' 5 apaga conteúdo valor e texto da célula
         oC.ClearContents( 5 )
      End If
   Next	
Next
End Sub

Abrs.

Tiank

MariPacheco · 14 de março de 2016

@TianK É exatamente isso!! Muito obrigada pela atenção e pela ajuda!
;)

Saulo Ganéo · 7 de novembro de 2017

Prezados, por gentileza, poderiam me ajudar nas questões abaixo?

1 - Como inserir uma pergunta de confirmação, por exemplo: DESEJA REALMENTE EXCLUIR TODOS OS DADOS DA PLANILHA?

2 - Como faço para apagar 30 planilhas iguais utilizando apenas um macro?

3 - Como deletar uma seção de uma vez só, por exemplo: A1: G40

Muito obrigado a todos pela ajuda!

Abraços!

Paulo Francisco T. Campos · 8 de fevereiro de 2018

@Tiank,

O seu código funcionou muito bem, obrigado!

Mas peço por favor sua ajuda, preciso que o código apague o conteúdo da célula desprotegida, inclusive se houver formula nela, já substitui o número 5 da linha oC.ClearContents( 5 ), por outros números e não consigo limpar quando o conteúdo tem o sinal de =, ou seja, formula.

No aguardo, agradeço!