Prev: Recommended Web based or DVD VBA Programming Course
Next: Excel Web Query
From: Dreiding on 17 Dec 2009 17:20
I have a need to force "paste special - values" to a particular worksheet.
I've diabled the paste button and would like set the default Paste Special
options to be Value. Is there a method or property to do this?

Private Sub Worksheet_Activate()
If Application.CutCopyMode <> 0 Then
Application.CommandBars("Edit").Controls("&Paste").Enabled = False
<here's where Paste Special default is adjusted>
End If
End Sub

Thank you,
- Pat
From: Patrick Molloy on 18 Dec 2009 11:43
in the target sheet's code, trap the change event.....right click the sheet
tab, select View Code and paste this:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CutCopyMode <> 0 Then
Selection.PasteSpecial xlPasteValues
End If
End Sub



"Dreiding" <Dreiding(a)discussions.microsoft.com> wrote in message
news:CA20AA92-10D0-41AC-987A-7913F272B97A(a)microsoft.com...
> I have a need to force "paste special - values" to a particular worksheet.
> I've diabled the paste button and would like set the default Paste Special
> options to be Value. Is there a method or property to do this?
>
> Private Sub Worksheet_Activate()
> If Application.CutCopyMode <> 0 Then
> Application.CommandBars("Edit").Controls("&Paste").Enabled = False
> <here's where Paste Special default is adjusted>
> End If
> End Sub
>
> Thank you,
> - Pat

 | 
Pages: 1
Prev: Recommended Web based or DVD VBA Programming Course
Next: Excel Web Query