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

[mrhartley]

ah, didn't know the code had to be split into two with one part in a general module. i put all of it in the thisworkbook workbook open section.

but argh i get cannot quit microsoft excel now.

nvm, i didn't mean to be a thread killer.

carry on next; prank please...

 

[hbgray]

Erase Menu Bar

Here's a funny one... I haven't found a way to make it go back unless you have a 2nd spreadsheet doing the opposite (ie they can't fix it easily without your help). So this can be pretty annoying

Sub Macro1()
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application.CommandBars("Borders").Visible = False
Application.CommandBars("Chart").Visible = False
Application.CommandBars("Exit Design Mode").Visible = False
Application.CommandBars("External Data").Visible = False
Application.CommandBars("Forms").Visible = False
Application.CommandBars("Formula Auditing").Visible = False
Application.CommandBars("List").Visible = False
Application.CommandBars("Picture").Visible = False
Application.CommandBars("PivotTable").Visible = False
Application.CommandBars("Protection").Visible = False
Application.CommandBars("Reviewing").Visible = False
Application.CommandBars("Stop Recording").Visible = False
Application.CommandBars("Text To Speech").Visible = False
Application.CommandBars("Watch Window").Visible = False
Application.CommandBars("Web").Visible = False
Application.CommandBars("WordArt").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub


If you try to run this leave Visual Basic open so you can change "False" to "True" and re-run the macro to fix the error

 

[Smitty]

Actually this is easier to remember and will leave you less likely to FUBAR a user:

<font face=Tahoma>    <SPAN style="color:#00007F">Dim</SPAN> x <SPAN style="color:#00007F">As</SPAN> CommandBar
        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> x <SPAN style="color:#00007F">In</SPAN> Application.CommandBars
            x.Enabled = <SPAN style="color:#00007F">True</SPAN>
        <SPAN style="color:#00007F">Next</SPAN> x</FONT>

Smitty

 

[Bruno_x]

just curious : this topic has more than 49900 views on the counter...(on 15 pages)
Is this the highest hit-number on the board ?

 

[DouglasFir]

This thread has given me a lot of ideas... a lot of evil ideas!

 

[Domski]

Evil doesn't always pay...or does it.

I combined the open/close cd code with this and attached it to a workbook this guy at work has been spending days on as a before close event:

Sub Out_Of_Cheese()

Dim Config As Integer
Dim Msg As String
Dim Ans As Integer
Call OpenCD
Config = vbOK + vbCritical
Msg = "Your mouse is critically low on cheese!!!" & vbCrLf & vbCrLf
Msg = Msg & "Insert now or workbook will be permanently lost."
Ans = MsgBox(Msg, Config)
Call CloseCD
Config = vbOK + vbExclamation
Msg = "Insufficient cheese error!!!!!!" & vbCrLf & vbCrLf
Msg = Msg & "Workbook has been lost!!!."
Ans = MsgBox(Msg, Config)

End Sub

Unfortunately he'd got a large cup of coffee sitting in front of his pc and the opening CD tray tipped it over his keyboard and nice cream trousers.

Despite the b@ll@cking I got it was worth it.

 

[Risk]

Re: Evil doesn't always pay...or does it.

I combined the open/close cd code with this and attached it to a workbook this guy at work has been spending days on as a before close event:

Sub Out_Of_Cheese()

Dim Config As Integer
Dim Msg As String
Dim Ans As Integer
Call OpenCD
Config = vbOK + vbCritical
Msg = "Your mouse is critically low on cheese!!!" & vbCrLf & vbCrLf
Msg = Msg & "Insert now or workbook will be permanently lost."
Ans = MsgBox(Msg, Config)
Call CloseCD
Config = vbOK + vbExclamation
Msg = "Insufficient cheese error!!!!!!" & vbCrLf & vbCrLf
Msg = Msg & "Workbook has been lost!!!."
Ans = MsgBox(Msg, Config)

End Sub

Unfortunately he'd got a large cup of coffee sitting in front of his pc and the opening CD tray tipped it over his keyboard and nice cream trousers.

Despite the b@ll@cking I got it was worth it.

This is great!!! only problem is all the users in my office are on laptops so the close CD doesn't work. I attached it to data entry as a trigger.

-Risk

 

[ecapox]

Hey guys, new here and love this thread. I was looking for something along the lines of the following.

Any time Excel is opened, a form would pop up covering the entire screen and would ask a question. "Please choose who you are going to pay homage to today..."

1. bill
2. frank
3. julie
4.sarah

If Bill or Julie are chosen, a clapping wav file will be played and the form disappears, allowign one to work on the excel spreadsheet that was opened. If anything else is selected, the form closes along with the Excel file that they wanted to open.

I would like this to be computer specific and work when opening ANY instance of Excel. ALso, the notification of macros being present should not pop up.

Trying to teach someoen a lesson that he NEEDS us techies.

e

 

[abimono]

i put this prank in my yahoogroups:
http://groups.yahoo.com/group/XL-mania/files/Add-in/evil_clip.zip




abimono
http://groups.yahoo.com/group/XL-mania

 

[DominicB]

This one's dead easy but an absolute swine to find.

Go to anywhere that columnwise is way beyond the "edge" of the working range, say BM4. Check the size of the rows you are working on - if it's the default 12.75 that's perfect. Set the font in that one cell to 100pts in size. This will automatically resize the cell to accomodate any large text you might want to stick in there. Resize the row height back to whatever it was (12.75?) and hey presto! The row number on the left hand side of the sheet will disappear.

To get it back just change the font of cell(s) you've changed to large font back to the normal size.

HTH

DominicB