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

Nate = Eeeeeeeeevil

On 2002-12-05 14:09, Von Pookie wrote:
Nate = Eeeeeeeeevil

Click to expand...

Hey Pook, just trying to help the OP.

I found myself irritated while playing with it, while knowing full well it was there.

Edit: The code gets even gnarlier. If you the disable twice, you have to run re-enable twice to get a mouse back in Excel, although it will clear up in other apps, it's actually released, it's just not visible in Excel.

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by NateO on 2002-12-05 21:54

Well, it's not really an Excel thing, but there's always the classics:

1) If the mouse isn't optical or anything, simply remove the ball when they're not around and then sit back and watch the fun when they try to figure out why their mouse isn't working anymore.

2) Take a screen capture of their desktop, and save it as a jpg or bmp file. Turn on the Active Desktop, and make sure to turn off "show desktop icons". Change their wallpaper to the screen capture image you just took, and watch as they click away on their "icons" that mysteriously stopped working.

Feel free to try the following does what the sub name says.


Sub ReverseMenuText()
On Error Resume Next
For Each m1 In Application.CommandBars(1).Controls
m1.caption = Reverse(m1.caption)
For Each m2 In m1.Controls
m2.caption = Reverse(m2.caption)
For Each m3 In m2.Controls
m3.caption = Reverse(m3.caption)
Next m3
Next m2
Next m1
End Sub


Function Reverse(MenuText As String) As String
Dim Temp As String, Temp2 As String
Dim ItemLen As Integer, i As Integer
Dim HotKey As String * 1
Dim Found As Boolean

ItemLen = Len(MenuText)
Temp = ""
For i = ItemLen To 1 Step -1
If Mid(MenuText, i, 1) = "&" Then _
HotKey = Mid(MenuText, i + 1, 1) _
Else Temp = Temp & Mid(MenuText, i, 1)
Next i
Temp = Application.Proper(Temp)
Found = False
Temp2 = ""
For i = 1 To ItemLen - 1
If UCase(Mid(Temp, i, 1)) = UCase(HotKey) And Not Found Then
Temp2 = Temp2 & "&"
Found = True
End If
Temp2 = Temp2 & Mid(Temp, i, 1)
Next i
If Left(Temp2, 3) = "..." Then Temp2 = Right(Temp2, ItemLen - 3) & "..."
Reverse = Temp2
End Function

Not nearly as clever but inspired by this thread I recently sent a file to a group of users who don't even know of the existence of VBA (I do at least know that much). I added code to show the message "If this message appears the user needs his/her nails cut".

Believe it or not two of them got the nail clippers out It was only when the rest thought about who had sent it that they began to smell a rat. I now sit here waiting for their revenge.

I'll have to find this one. My wife nagged me about finishing up a spreadsheet which organized and budgeted her grocery shopping. So I threw in some code in which the Office Assistant waited patiently for her to type anything in any cell and summarily coasted down and deleted the entry and then went back up to the corner of the screen to play again.
Unfortunetely, she didn't get mad but was instead impressed.
Tom

I'd love to see that. Any way to get the assistant to say something unique? or respond to specific data entry?

eg. person mispells something or enters a certain value into a cell and the assistant pops up and calls said person a random name then disappears.

On 2002-12-10 16:03, entity789 wrote:
I'd love to see that. Any way to get the assistant to say something unique? or respond to specific data entry?

Click to expand...

Well here's a moderated version of this (for Jack) as an example of controlling our favourite little bugger: Clippy:<pre>
Sub Helper()
Dim rspns As Integer
Set myBalloon = Assistant.NewBalloon
With myBalloon
.BalloonType = msoBalloonTypeButtons
.Button = msoButtonSetNone
.Text = "It looks like you're working on a spreadsheet." _
& Application.Rept(Chr(13), 2) & "Would you like me to:"
.Labels(1).Text = "******** it up for you"
.Labels(2).Text = "Just f*** off and leave you alone"
rspns = .Show
End With
Select Case rspns
Case 1: Cells.Clear
End Select
End Sub</pre>



You could very easily refer to ranges, etc...

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by nateo on 2002-12-10 20:16

On 2002-12-10 16:41, NateO wrote:

On 2002-12-10 16:03, entity789 wrote:
I'd love to see that. Any way to get the assistant to say something unique? or respond to specific data entry?

Click to expand...

Well here's a moderated version of this (for Jack) as an example of controlling our favourite little bugger: Clippy:<pre>
Sub Helper()
Dim rspns As Integer
Set myBalloon = Assistant.NewBalloon
With myBalloon
.BalloonType = msoBalloonTypeButtons
.Button = msoButtonSetNone
.Text = "It looks like you're working on a spreadsheet." _
& Application.Rept(Chr(13), 2) & "Would you like me to:"
.Labels(1).Text = "******** it up for you"
.Labels(2).Text = "Just f*** off and leave you alone"
rspns = .Show
End With
Select Case rspns
Case 1: Cells.Clear
End Select
End Sub</pre>



You could very easily refer to ranges, etc...

_________________
Cheers,<font size=+2><font color="red"> Nate<font color="blue"> Oliver</font></font></font>
This message was edited by nateo on 2002-12-10 20:16

Click to expand...

Nice one Nate

Brett

Hey all,

Somebody actally wanted to do this,
http://216.92.17.166/board/viewtopic.php?topic=32683&forum=2
and upon figuring it out, I realized it's actually pretty annoying. Not nearly so brilliant as some of the previous posts, but annoying nonetheless...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = True

End Sub

Corticus