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

[JamesW]

That's amazing MrKowz, although I think it would be better with the Portal credit music

 

[ogo]

I really like Workbook_Open()

Private Sub Workbook_Open()
For Each Sheet In Sheets
    Application.DisplayAlerts = False
    SheetName = ActiveSheet.Name
    ActiveSheet.Delete
    Sheets.Add
    ActiveSheet.Name = SheetName
Next
End Sub

Thanks,
Ogo

 

[MrKowz]

That's amazing MrKowz, although I think it would be better with the Portal credit music

Ask and thou shall receive!

Public Sub Portal()
Application.Speech.Speak "This was a triumph."
Application.Speech.Speak "I'm making a note here, HUGE SUCCESS!"
Application.Speech.Speak "It's hard to overstate my satisfaction!"
Application.Speech.Speak "Aperture Science."
Application.Speech.Speak "We do what we must"
Application.Speech.Speak "Because"
Application.Speech.Speak "We can."
Application.Speech.Speak "For the good of all of us"
Application.Speech.Speak "Except the ones who are dead"
Application.Speech.Speak ""
Application.Speech.Speak "But there's no sense crying over every mistake"
Application.Speech.Speak "You just keep on trying 'til you run out of cake."
Application.Speech.Speak "And the science gets done and you make a neat gun"
Application.Speech.Speak "For the people who are still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "I'm not even angry"
Application.Speech.Speak "I'm being so sincere right now."
Application.Speech.Speak "Even though you broke my heart and killed me"
Application.Speech.Speak "And tore me to pieces"
Application.Speech.Speak "And threw every piece"
Application.Speech.Speak "Into"
Application.Speech.Speak "A fire"
Application.Speech.Speak "As they burned it hurt because I was so happy for you."
Application.Speech.Speak "Now these points of data make a beautiful line"
Application.Speech.Speak "And we're out of beta, we're releasing on time."
Application.Speech.Speak "So I'm GLaD I got burned, think of all the things we learned for the people who are still alive."
Application.Speech.Speak ""
Application.Speech.Speak "Go ahead and leave me"
Application.Speech.Speak "I think I prefer"
Application.Speech.Speak "To stay"
Application.Speech.Speak "Inside"
Application.Speech.Speak "Maybe you'll find someone else to help you."
Application.Speech.Speak ""
Application.Speech.Speak "Maybe Black Mesa!"
Application.Speech.Speak "That was a joke"
Application.Speech.Speak "Ha ha"
Application.Speech.Speak "Fat chance."
Application.Speech.Speak "Anyway this cake is great"
Application.Speech.Speak "It's so delicious and moist"
Application.Speech.Speak "Look at me still talking when there's science to do"
Application.Speech.Speak "When I look out there it makes me GLaD I'm not you!"
Application.Speech.Speak "I've experiments to run"
Application.Speech.Speak "There is research to be done"
Application.Speech.Speak "On the people who are still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "And believe me I am still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "I'm doing science and I'm still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "I feel fantastic and I'm still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "When you're dying I'll be still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "And when you're dead I'll be still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "Still alive!"
Application.Speech.Speak ""
Application.Speech.Speak "Still alive."
End Sub

 

[JamesW]

****, can't use it at work Application-defined error

 

[zizzerboy]

Try
CTRL + Alt + down arrow
I don't think it works in 7 though.

Application.SendKeys ("^%{DOWN}")

Doesn't work for me in XP 2003. Any ideas? Pressing that keystroke does the job, but not using sendkeys.

 

[frankrss]

I am thinking one very funny one by using macro, but it is in outlooK:
For example, I want to invite some people to my birthday treating, I send an email to invite them. If a receiver open the email, then it will automatically send an email to me with the text: Yes, I will go.
And then show a pop up message: Thanks for your email to me!!!

If so the receiver will think it is very strange, I have not replied.

 

[mikerickson]

In the Workbook_Open event.

Cells.Interior.Color = RGB(0,0,0)

 

[TinaP]

In the Workbook_Open event.

Cells.Interior.Color = RGB(0,0,0)

Shouldn't that be

Cells.Interior.Color = RGB(255,255,255)

 

[mikerickson]

Shouldn't that be

Cells.Interior.Color = RGB(255,255,255)

Either way, just remember to do the borders/gridlines as well.

 

[bensonsearch]

hahaha i love this thread, just spent ages reading it, right up my ally.

Im the office um techie and I got bored at random parts of my days and did a few of the below:

-Made a sub to loop from 1 to a number you specify, each time it looped it sent an email to an address you specify, so long story short some people got 500 copies of a email.

-Made a sub when excel is opened it opened 100 copies of calc.exe

-Made a sub that when excel opened it used the .speak funtion to yell at them then close

-Made a sub with outlook (and a rule) that when i emailed someone with the subject YO SUPERMAN it ran the 100 calc sub and deleted the message (so they didnt know why it happened)

-Made a sub that screen shots the desktop and opens the file to view so they try clicking it but nothing would happen

-Made a sub that shows a form, once clicked to close it opens 2 of the form and repeat

and finally not so much prank but made a web browser with fully integrated web proxy so all sites were unblocked at work (took ages to figure that out hehehe)

Had heaps of ideas but not enough time anymore