VBA Code to clear the Windows 10 64 bit clipboard

[JeffGrant]

Hi All,

does anybody have vba code to clear the windows 10 64 bit clip board?

I stupidly continue to paste code from the clipboard that isn't correct and it mess up my formulas.

So I figure if I clear the clipboard at the end of the sub, then I cant mess it up

I would like to make my sheets a little bit more fool proof, or in this case Jeff-proof.

There are few references around, but the examples out there are not designed for windows 10 64 bit and so they code fails.

I am not talking about the vba clipboard because that can be cleared with application.cutcopymode = false. I am specifically wanting to clear the windows 10 clipboard.

Thanks in advance

Jeff.

 

[johnnyL]

Clear Excel Clipboard ...

Application.CutCopyMode = False

 

[JeffGrant]

Hi Jonny,

To my understanding, and as you have said, Application.CutCopyMode = False, clears the Excel clipboard.

It does not clear the Windows clipboard.

Because Harvey is using Outlook and Teams, he will need to clear the Windows Clipboard to see if that prevents his issue.

Cheers

 

[johnnyL]

Hi Jonny,

To my understanding, and as you have said, Application.CutCopyMode = False, clears the Excel clipboard.

It does not clear the Windows clipboard.

Because Harvey is using Outlook and Teams, he will need to clear the Windows Clipboard to see if that prevents his issue.

Cheers

That being said, I agree with @RoryA

 

[RoryA]

This is a bug with the DataObject on Windows 8 and later that occurs when file explorer is open. You should use API calls to put the text on the clipboard instead

 

[harveya915]

Hi Harvey.

This is what I use in VBA to clear the clipboard

Sub ClearClipboard()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
End Sub

cheers

One last question if you don't mind. Where do I put this code? In the UserForm of the CommandButton? A Module? A Class Module? Or "This Outlook Session"?

I have the following code to clear the text boxes:

Private Sub CommandButton3_Click()
UserForm2.TextBox1.Value = ""
End Sub

I would like to apply your code to this button so that it clears my Textboxes and it clears the clipboard as well.