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

Chris The Rock

Active Member
Joined
Feb 24, 2002
Messages
286
A coworker of mine and me (he's a Board Master here) were talking about some mean things we could do using VBA . . . like pranks, practical jokes and the like. April Fool's kind of stuff.

Any ideas? Has anyone done anything like this?
 

Some videos you may like

Excel Facts

Do you hate GETPIVOTDATA?
Prevent GETPIVOTDATA. Select inside a PivotTable. In the Analyze tab of the ribbon, open the dropown next to Options and turn it off

s-o-s

Active Member
Joined
Apr 14, 2002
Messages
384
A good one to play on someone who you regularly send an excel file to (with macros in so that they do not become suspicious by the prompt) is to add in an auto open macro that contains an On Time call macro that pops up a message box warning them that XYZ virus has infected their machine...Please contact the Network Administrator Immediately...Wait until just after they have called the NT admin before alerting them to the prank...Then get out fast...
 

elgringo56

Well-known Member
Joined
Apr 15, 2002
Messages
869
I have a customer whose computer I regularly maintain, he is somewhat of a computer dolt, but thinks he is a whiz. On fixing one of his self created problems once, I got into one of his exel files and set it up so that when he selected a certian cells, a msg box would pop up and say something like, "Bill, we at microsoft have spent billions to perfect this software and make it as user friendly as possible, have you ever considered takeing a course or two on how to use it", or, "Bill, it is time that some one told you that you maybe should take this computer back to where you purchased it and try and get your money back, because you just arn't smart enought to use a computer". I have several cell set up within his main spread sheet that should keep him guessing as to what is going on for a long long time.
 

Iridium

Well-known Member
Joined
Jul 15, 2002
Messages
2,831
How about having a macro that plays a paricularly loud and long wav file on entry of data into a particular cell - enough to cause panic in many colleagues when the boss is prowling about
 

Sourdust

Well-known Member
Joined
Sep 15, 2002
Messages
769
It's maybe my evil mind but I like this idea :biggrin:. I once set up a user on a Novell network to have to change their password daily and the password had to have at least 40 characters. I pleaded ignorance for about a week before owning up! I like the idea of various messages popping up when a certain cell is selected. Can anybody help me with the code for that , I'm just starting to learn VBA.

Thanks for the laughs.
 

applebyd

Active Member
Joined
May 27, 2002
Messages
348
Going back and not particularly Excel related.

I once wrote a routing (c1991) into the MS-DOS Autoexec.Bat file to emulate the Format command without actually doning anything.

Luckily my boss was the author of the appliction being run and saw the funny side.

DaveA

edit:typos
This message was edited by applebyd on 2002-11-06 07:39
 

Bruno

Active Member
Joined
Feb 17, 2002
Messages
491
What about this :
Put the following code in an excel file, copy the file to the XLSTART folder...
This could take days to find out...

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Application.Quit
End Sub
 

Corticus

Well-known Member
Joined
Apr 30, 2002
Messages
1,579
Cool topic :)

I accidently did this to myself once, it took me too long to figure out why nothing was working....

Private Sub Workbook_Open()

Application.EnableEvents = False

End Sub

-Corticus
 

Chris The Rock

Active Member
Joined
Feb 24, 2002
Messages
286
This is a great thread.

I was thinking of a mean trick...

On workbook open, pop up a userform with a little "quiz" on it. Unless the user gets the questions right, the workbook closes and tells them that they're not allowed to open it.
 

Watch MrExcel Video

Forum statistics

Threads
1,102,101
Messages
5,484,672
Members
407,460
Latest member
Fakxi

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top