Salve, non sono un esperto, ho perso 1 mese per creare 2 codici in vba excel ma in ufficio si usa Libreoffice. Se qualcuno mi può aiutare a renderlo compatibile, ho poco tempo a disposizione 
Grazie. inserisco i 2 codici che in excel funzionano.
Option Explicit
Sub RICERCA_PER_1_PROTOCOLLO()
Dim sh As Worksheet
Dim rng As range
Dim v As Variant
v = Application.InputBox("Inserisci Il Numero Di Protocollo")
If v = "" Then Exit Sub
If v = False Then Exit Sub
Set sh = ThisWorkbook.Worksheets("ARCHIVIO")
Set rng = sh.range("C13:C9999").Find(What:=v, LookAt:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Select
Dim idomanda As Integer
idomanda = MsgBox("Cella Trovata" & vbNewLine & rng.Address & " . Vuoi Cercare Ancora?", vbYesNo)
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Else
MsgBox "Cella non Trovata. Vuoi Cercare Ancora?", vbYesNo
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Set rng = Nothing
Set sh = Nothing
End If
End Sub
------------
Option Explicit
Option Compare Text
Sub RICERCA_PER_2_INIZIALI_DITTA()
Dim sh As Worksheet
Dim rng As range
Dim Cerca As Variant
Cerca = Application.InputBox("Inserisci Iniziali della Ditta")
If Cerca = False Then Exit Sub
If Cerca = "" Then Exit Sub
Set rng = ThisWorkbook.Worksheets("ARCHIVIO").range("D12:D9999").Find(What:=Cerca, LookAt:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Select
Dim idomanda As Integer
idomanda = MsgBox("Cella Trovata" & vbNewLine & rng.Address & " . Vuoi Cercare Ancora?", vbYesNo)
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Else
MsgBox "Cella non Trovata. Vuoi Cercare Ancora?", vbYesNo
If idomanda = vbYes Then
range("A11").Select
End If
If idomanda = vbNo Then
Exit Sub
End If
Set rng = Nothing
Set sh = Nothing
End If
End Sub