Excel Desabilitar Recortar/Mover VBA Excel

[Fortd2]

Boa tarde!

 

Preciso bloquear a ação de recortar/ mover da minha palinha, preciso modifica-la por isso não pode ser só protegida.

Consegui na internet bloquear copiar/colar/ recortar mas bloquear somente recortar não consegui achar.

[Basole]

Veja se este exemplo lhe atende

 

Cole o código em EstaPasta_de_trabalho 

 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
    ByVal Target As Excel.Range)
    
    Select Case Application.CutCopyMode
        
        Case Is = False
        
        Case Is = xlCopy
        
        Case Is = xlCut
        MsgBox "Por favor, NÃO corte e cole. Use Copiar e Colar, depois aperte o ESC"
        Application.CutCopyMode = False
        
    End Select
    
End Sub

 

[Fortd2]

Em 3/27/2018 às 22:39, Basole disse:

Veja se este exemplo lhe atende

 

Cole o código em EstaPasta_de_trabalho 

 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
    ByVal Target As Excel.Range)
    
    Select Case Application.CutCopyMode
        
        Case Is = False
        
        Case Is = xlCopy
        
        Case Is = xlCut
        MsgBox "Por favor, NÃO corte e cole. Use Copiar e Colar, depois aperte o ESC"
        Application.CutCopyMode = False
        
    End Select
    
End Sub

 

Obrigado, Ficou  como eu queria.