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

[Brunoaricci]

Set an auto_open() macro to quit application once they start it up. That will keep them out... (Just don't tell them they can HOLD the SHIFT DOWN to bypass the auto_open() macro.) or Set a password inbox to get in everytime the come in via the auto_open() - if wrong then QUIT APPLICATION. Set the password to "Screw_off". So when they ask you for the password you can simply say to them "Screw_off". Sometimes, I set the password to "I_Cant_tell_you_the_Password". Likewise when they ask I simply tell them "I_Cant_tell_you_the_Password". What can I say - I am giving them what they ask and I am not a liar.

 

[Angelicus]

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

**** this is too much of a classic!

 

[capitalleaf]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Interior.ColorIndex = Int((56 * Rnd) + 1)
End Sub

 

[spcalan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Interior.ColorIndex = Int((56 * Rnd) + 1)
End Sub

I couldnt get this to do anything.

Can you explain?

 

[Domski]

Hi,

Right click on one of your sheet tabs and select View Code and paste the code there. When you select a cell/range on that sheet it will be shaded a random colour.

Dom

 

[spcalan]

Hi,

Right click on one of your sheet tabs and select View Code and paste the code there. When you select a cell/range on that sheet it will be shaded a random colour.

Dom

WOOHOO. now that is a cool trick!

 

[Patience]

Really cool, but really annoying!

And utterly pointless!

 

[spcalan]

Really cool, but really annoying!

And utterly pointless!

i think only coloring the border would be cooler though.

What would that code look like?

 

[Domski]

This one was posted earlier on in the thread but I was reminded of it the other day:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
Application.WindowState = xlNormal<o:p></o:p>
Application.Width = Int(Rnd() * 1000) - 100<o:p></o:p>
End Sub

The reason I was reminded was because my colleague was having unrelated problems with her time sheet and asked me to have a look. I did so and was surprised when I clicked on a cell and the Excel window changed shape and moved.

Thing is I'd added the above code to it many months ago and she'd put up with it ever since without saying anything. She just thought there was something odd about the workbook.

I did feel quite bad, not too bad mind but quite bad

Dom

 

[spcalan]

This one was posted earlier on in the thread but I was reminded of it the other day:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
Application.WindowState = xlNormal<o:p></o:p>
Application.Width = Int(Rnd() * 1000) - 100<o:p></o:p>
End Sub

The reason I was reminded was because my colleague was having unrelated problems with her time sheet and asked me to have a look. I did so and was surprised when I clicked on a cell and the Excel window changed shape and moved.

Thing is I'd added the above code to it many months ago and she'd put up with it ever since without saying anything. She just thought there was something odd about the workbook.

I did feel quite bad, not too bad mind but quite bad

Dom

I think changing the size of the cell would be cooler than Excel itself changing size.

Lets see who can figure that one out.