Good Excel Practical Jokes, Pranks, Mean Tricks, etc.

[kikutamaster]

it would be even more funny to make that happen in word or something. or just randomly come on and go off at sporadic intervals. or again the quiz idea erlier on in this thread: the user gets a quiz at start up and then if theyget the questions wrong it does it for a while, then they are again presented with the oppourtunity to retake the quiz and it goes on and on like that

 

[caricc]

How could someone make changes to the auto correct feature using a macro or some vba script?

 

[Jug]

I think the best prank would be...

To generate a random number from 1 - 20 with each number corresponding to a prank already mentioned...

All of which is included in a workbook located in the XLSTART folder...

Almost something new everytime they open up excel...

 

[erik.van.geit]

Hi, Jug!

What an evil first post!

Welcome to the Board !!!!!
Erik

 

[Darren Bartrup]

If anyone's used ASAP Utilities ( http://www.asap-utilities.com/ ), I love the Silly Error Messages option:

Enter any 11-digit prime number to continue.

Mouse Movement Detected: Please reboot your computer for changes to take effect.

Windows Loaded: System in Danger.

and my favourite: Mouse has out-of-cheese-error.

Not too hard to put them in a few prime places when distributing your spreadsheets

 

[Eddie Wildon]

what about expanding on this a little.

Is there a code to get the cdrom drive to open?

then add another message 'Insert processed cheddar to proceed'.


Flip side is someone might actually do it.....


wrapped up by one more message "You idiot....'

 

[Bruno_x]

Eddie , to get you started :

Option Explicit
'source : http://www.freevbcode.com/ShowCode.asp?ID=68

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
pstrReturnString As String, ByVal uReturnLength As Long, ByVal _
wndCallback As Long) As Long

Sub OpenOrShutCDDrive(DoorOpen As Boolean)
Dim lRet As Long
If DoorOpen Then
    lRet = mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
    lRet = mciSendString("Set CDAudio door closed", 0&, 0&, 0)
End If

'lRet will = 0 upon success, so if you want to make this
'a function, return true if lret = 0, false otherwise
End Sub

Sub OpenCD()
OpenOrShutCDDrive (1)
End Sub

Sub CloseCD()
OpenOrShutCDDrive (0)
End Sub

 

[MarkAndrews]

Eddie , to get you started :

Option Explicit
'source : http://www.freevbcode.com/ShowCode.asp?ID=68

Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
pstrReturnString As String, ByVal uReturnLength As Long, ByVal _
wndCallback As Long) As Long

Sub OpenOrShutCDDrive(DoorOpen As Boolean)
Dim lRet As Long
If DoorOpen Then
    lRet = mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
    lRet = mciSendString("Set CDAudio door closed", 0&, 0&, 0)
End If

'lRet will = 0 upon success, so if you want to make this
'a function, return true if lret = 0, false otherwise
End Sub

Sub OpenCD()
OpenOrShutCDDrive (1)
End Sub

Sub CloseCD()
OpenOrShutCDDrive (0)
End Sub

Loving this! lol

 

[Jon Peltier]

Hal! Open the pod bay door, Hal!

 

[Barry Katcher]

About five years ago, one of my co-workers took a week off to have an eye operation. When he was gone, I went into a workbook that he uses at each month-end and inserted some code. When the workbook is opened, a message appears for 6 seconds and moves back and forth over the width of the screen. The message reads:

"Earle, if this text appears to be moving, your operation was a failure."

Good thing Earle and I share the same sense of humor. Incidentally, the message is still there.