Open/Close CD Drive using VBA

[revilo]

Can you use VBA to open and close the CD Drive?

[Simon Lloyd]

Take a look here http://www.thecodecage.com/forumz/ge...post1054990646

[revilo]

Thanks very much Simon, but, can i bother you to PDF the page and attach it here for me please? The internet policies here are pretty strict, and i cannot access that website.

Your help is appreciated.

[Simon Lloyd]

There aren't any restrictions accessing that site, i work at a large corporate with a very strict firewall and can access it and all content, its a forum run on exactly the same software as this.

[revilo]

Well, I obviously don't work at the same place as you then! All URLs are on the blacklist unless they are whitelisted, if you can see what i mean (and it takes quite a while to get a site whitelisted). But anyway, maybe i can get it some other way.

[Ken Puls]

I wonder who got my site whitelisted? (Tell them they should be adding Simon's too.)

Here's another version of the CD code too...

Private Declare Sub SendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long)

Sub OpenCDTray()
    SendStringA "Set CDAudio Door Open", 0&, 0, 0
End Sub

Sub CloseCDTray()
   SendStringA "Set CDAudio Door Closed", 0&, 0, 0
End Sub

Simon's version is nicer though.

[revilo]

Simon's version is nicer though.

I managed to get hold of it

Any tips on making it work with 64 bit? i get "The code in this project must be updated for use on 64-bit systems. Please review and update Declare Statements and then mark them with the PtrSafe attribute"

[Ken Puls]

What version of Excel and of Windows are you running?

[revilo]

Win 7 Pro 6.1.7601 64-Bit
Office 2010

[Ken Puls]

Right, but is your Office 32 or 64 bit. I'm guessing 32bit, but just want to be sure.

I have to run out, but I'll look at this one later tonight my time.