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

[Michael M]

Geez, you obviously work for the Govt, if you have that much time.
I'm glad I don't work with you.....we would create havoc in the building together !!!

 

[bensonsearch]

Geez, you obviously work for the Govt, if you have that much time.
I'm glad I don't work with you.....we would create havoc in the building together !!!

hahaha actually no not in Gov, just fast at my work

hmm joint havoc....... whats this giant red button labelled fire do?

 

[Smitty]

hmm joint havoc....... whats this giant red button labelled fire do?

I dunno, maybe a really good way to get a few hundred girls out of their dorm(s) at 3 AM?

Hey, aren't you and I in Calc-wowowowow-culus together?

Aherm...I have no idea where that might have happened, but I'm sure it did somewhere...

 

[bensonsearch]

id definately love a big red button that made girls run out of their dorms, esp hundreds

 

[Macrobiotic Brown]

I don't think I've seen anyone mention Application.Speech yet?

I am going to have SO MUCH FUN with this.

 

[bensonsearch]

I am going to have SO MUCH FUN with this.

I have never done a prank with it but did make a macro that would speak all in A1 when changed. **thinks evily about the fun applications of .speak**

 

[hiker95]

See:

A Compendium of Office Pranks and Practical Jokes
http://onemansblog.com/2007/02/23/a-compendium-of-office-pranks-and-practical-jokes/

 

[bulevardi]

As a prank for your boss, you can do the opposite aswel.
Let a simple script convert all the text in a worksheet to st00pid buttons which aren't workable. Delete your script and save his file afterwards
The buttons make it happen that the text is locked in it, you cannot just select it or copy/paste it
Find it out right below:


</PRE>Sub text_to_button()
Dim Obj As OLEObject
Dim mycell As Range

For Each mycell In ActiveSheet.UsedRange.Cells
If mycell.Value <> "" Then

'create the buttons:

<CODE> Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Left:=ActiveSheet.Range(mycell.Address).Left, _ Top:=ActiveSheet.Range(mycell.Address).Top, _ Width:=100, Height:=30) Obj.Object.Caption = mycell.Value mycell.Value = "" End IfNext mycell</CODE></PRE>' additional layout of cells:

<CODE>With Cells.RowHeight = 40.ColumnWidth = 15End WithEnd Sub</CODE></PRE>

 

[bulevardi]

this one is awesome:

I've played a few little office pranks where I had things like that resize ever-so-slightly so that over an hour it isn't noticable much, but after a day of running the macro, the button would be considerably larger.

 

[bamblack]

This thread has inspired me! Using Environ("USERNAME") is great for a shared workbook's Workbook_Open event.