Restrict copy/paste to "as values" on certain sheets?

[SURFER349]

So I found this bit of code but it seems to be global and then it 'activates' on a single click rather than the Cntrl+V command.
Any tips on how to simply restrict copy/paste when the user issues the Control+V command?

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

 

[Yongle]

Place in ThisWorkbook code window (not a module or sheet)
List sheets names separated by commas

    Dim last As String
    last = Application.CommandBars("Standard").Controls("&Undo").List(1)
    If Left(last, 5) = "Paste" Then
        Select Case Sh.Name
            Case "Pears and Apples", "Oranges and Lemons"
                Application.EnableEvents = False
                Target.PasteSpecial xlPasteValues
                Application.EnableEvents = True
        End Select
    End If
End Sub

 

[SURFER349]

I

Place in ThisWorkbook code window (not a module or sheet)
List sheets names separated by commas

    Dim last As String
    last = Application.CommandBars("Standard").Controls("&Undo").List(1)
    If Left(last, 5) = "Paste" Then
        Select Case Sh.Name
            Case "Pears and Apples", "Oranges and Lemons"
                Application.EnableEvents = False
                Target.PasteSpecial xlPasteValues
                Application.EnableEvents = True
        End Select
    End If
End Sub

placed into "ThisWorkbook" but it does not block formatting. I changed the fruit sheets to my specific sheet names but no dice.