Outro Copiar e colar somente valores e bloquear as outras formas de colar no VBA

[Fortd2]

Bom dia!

 

Preciso Copiar e Colar somente o Valor e Bloquear as outras formas de colar.

[Basole]

Cole o código em EstaPasta_de_trabalho 

 

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
    On Error Resume Next
    Target.PasteSpecial xlPasteValues
    Application.CutCopyMode = True
    On Error GoTo 0
    
End Sub

 

[Fortd2]

tudo certo, você é fera mesmo!

 

 Mas to com mais uma duvida, Toda vez que eu abro a planilha surge uma mensagem para habilitar ou desabilitar a Macro, e quando eu fecho aparece outra mensagem de aviso. tem como tira essa mensagem?