☰

impedir que um usuário cole, mas permitir colar valores

tag-icon • tag-icon microsoft-excel worksheet-function vba
impedir que um usuário cole, mas permitir colar valores

Eu tenho o código abaixo em minha pasta de trabalho, o que impede que um usuário cole qualquer coisa.

Minhas necessidades agora mudaram e quero permitir que o usuário cole apenas valores.

Existe uma maneira de conseguir isso ?

Private Sub Workbook_Activate()
    Application.CutCopyMode = False
    Application.OnKey "^c", ""
    Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
    Application.CellDragAndDrop = True
    Application.OnKey "^c"
    Application.CutCopyMode = False
End Sub
 Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    Application.CutCopyMode = False
    Application.OnKey "^c", ""
    Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.CellDragAndDrop = True
    Application.OnKey "^c"
    Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.OnKey "^c", ""
    Application.CellDragAndDrop = False
    Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Application.CutCopyMode = False
End Sub
Private Sub Workbook_Open()
    MsgBox "Copying and Pasting into the skills matrix has been disabled to prevent changes in the workbook functionality."
End Sub

Responder1

Este código VBA deve fazer isso:

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

Responder2

Com base na minha resposta anterior, isso funcionaria?

Então verificamos se algo está colado, salvamos o valor, desfazemos a colagem e reinserimos apenas o valor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim UndoList As String, StoreValue As String
UndoList = Application.CommandBars("Standard").Controls("&Undo").List(1)
If Left(UndoList, 5) = "Paste" Then
    StoreValue = Target.Value
    With Application
        .EnableEvents = False
        .Undo
    End With
    Target.Value = StoreValue
End If
Application.EnableEvents = True
End Sub

Se a sugestão nos comentários não for uma solução melhor.

Responder3

Outra abordagem que tentei com sucesso poderia ser esta:

Hijack CTRL+C e CTRL+V, faça com que cole apenas valores especiais.

Então, usando o código da sua pasta de trabalho original, mas substitua 

Application.OnKey "^c", ""

com

Application.OnKey "^{v}", "pasteValues"
Application.OnKey "^{c}", "copyValues"

Em seguida, faça um módulo com o seguinte:

Public copyVal As String
Private Sub pasteValues()
selection = copyVal
End Sub
Private Sub copyValues()
copyVal = selection
End Sub

E agora você pode copiar e colar, mas só irá mover o valor.

informação relacionada