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

Von Pookie

MrExcel MVP
Joined
Feb 17, 2002
Messages
13,686
Sounds like you're suggesting the copy protection of some of my old games :)

Edit: typooooooooooo
_________________<font color="#3399FF" size="3">Kristy</font>
This message was edited by Von Pookie on 2002-11-07 09:23
 

Some videos you may like

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.

Iridium

Well-known Member
Joined
Jul 15, 2002
Messages
2,831
On 2002-11-06 05:39, Sourdust wrote:
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.
Found this on my internet travels - should get you started

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A1:C10")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Display a message when one of the designated cells has been
' changed.
' Place your code here.
MsgBox "Cell " & Target.Address & " has changed."

End If
End Sub
 

Sourdust

Well-known Member
Joined
Sep 15, 2002
Messages
769
Thanks very much Chris. I'm getting a basic understanding of VBA now and I can justify a project like this as part of the learning process. I have had a few people shaking their heads and calling me sad when they see my Walkenbach book at the side of the computer but I don't care I'm enjoying VBA.
Ian
 

Corticus

Well-known Member
Joined
Apr 30, 2002
Messages
1,579
On 2002-11-06 10:06, Von Pookie wrote:
How in the world did you manage to do that to yourself? :LOL:

See for yourself:
http://www.mrexcel.com/board/viewtopic.php?topic=21666&forum=2

VBA is just a way to automate mistakes so they screw up over and over and over really fast, with just the click of a button :)

And for some more fun, check this out:
http://www.mrexcel.com/board/viewtopic.php?topic=14424&forum=12

_________________<EMBED width="118" height="52" src="http://dacypha0.tripod.com/Images/Corticus.swf"></EMBED>
This message was edited by Corticus on 2002-11-07 11:54
 

Von Pookie

MrExcel MVP
Joined
Feb 17, 2002
Messages
13,686
<font size="5" color="red">V</font>indictive
<font size="5" color="red">B</font>uggy
<font size="5" color="red">A</font>ggravator
 

s-o-s

Active Member
Joined
Apr 14, 2002
Messages
384
On 2002-11-06 09:29, Bruno wrote:
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
Bruno,

I like your one...Add a little more and you have loads of fun...

How about a message box that Pops Up..."After full analysis of the history files, this computer has decided you are to stupid to operate it...Press OK to continue."

then application quits.

I can think of a number of similar tricks along this line.


_________________
Hope This Helps.
Sean.

Win98, XL2000
This message was edited by s-o-s on 2002-11-08 07:27
 

Bruno

Active Member
Joined
Feb 17, 2002
Messages
491
s-o-s
add a little routine like this :
calculate a random number between 0 and 100,
if this number< 30 then quit XL
So in 30% of the times XL is started, it will close automatic. The user will find this very annoying :wink: :wink:<pre>
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Randomize
annoying_level = 30
annoying_number = 100 * Rnd
If annoying_number< annoying_level Then
Application.Quit
End If
End Sub</pre>
_________________<TABLE BORDER><TR><TH> Bruno</TH></TR></TABLE>
This message was edited by Bruno on 2002-11-08 08:29
 

Corticus

Well-known Member
Joined
Apr 30, 2002
Messages
1,579
That's brilliant Bruno,

sadisticly brilliant but brilliant nonetheless!
 

Mark O'Brien

MrExcel MVP
Joined
Feb 15, 2002
Messages
3,530
The only thing I had was an add-in I created for my last job after I'd quit. I live in Ohio and people in Central Ohio in particular take college American Football far too seriously. (mainly because they don't have a pro American football team here I suppose, unlike Cleveland and Cinci) Anyway the main perceived rivalry for Ohio State Uni is Michigan. So my add-in was placed on all of the OSU "fans'" computers. It was set to run 1 week after I'd quit. Whenever Excel was opened, it would replace the Excel splash screen with a Michigan flag and it would play the Michigan fight song. Sad, I know, but what was even worse was the fact that this really annoyed them for some reason. It's just a game. :biggrin:
 

Watch MrExcel Video

Forum statistics

Threads
1,095,372
Messages
5,444,070
Members
405,265
Latest member
Iram

This Week's Hot Topics

Top