Desabilitar cortar no libreoffice calc com macro - Disable cut in libreoffice calc with macro

[Clerisson]

Tenho uma planilha que queria desabilitar o cortar tanto para o teclado como para o mouse, pesquisei horas porém não achei nada para o libreoffice calc. Sei que pelo excel é fácil mas no meu serviço só tem o calc.

I have a spreadsheet that I wanted to disable the cut for both the keyboard and the mouse, I searched for hours but I didn’t find anything for libreoffice calc. I know that using excel is easy but in my service there is only calc.

[schiavinatto]

Olá, @Clerisson

Disse “Sei que pelo Excel é fácil …” , se for por Macro, talvez funcione no Calc, já tentou ?

[Clerisson]

Já tentei por teste fazer no Excel e abrir no Calc, não funciona.

[schiavinatto]

Salvou o arquivo em ods ?

Poste a macro…

[Clerisson]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Sair

Application.ScreenUpdating = False
Application.EnableEvents = False

If Application.CutCopyMode = xlCopy Then
    Application.Undo
    
    Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                        SkipBlanks:=False, Transpose:=False
End If

Sair:
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.CutCopyMode = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Sair

If Application.CutCopyMode = xlCut Then
    Application.EnableEvents = False
    MsgBox "Por favor não recorte dados nesta planilha"
    Application.CutCopyMode = False
End If

Sair:
Application.EnableEvents = True
End Sub