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

[DreamAlchemist]

THis Works in any program that lets you customize the icons on a toolbar.

First I hate Icons I prever to use keyboard commands so to force others to use them as well they end up with a closed workbook if they use the mouse to click an icon.

How its done.

Tools/Customize

select the icon you want the close icon to look like and modify/copy selected.

Then put the close icon up on the toolbar modify/paste image (it will now look like the other icon, which you now remove from the toolbar.)

I did this with the new open save cut copy and paste icons.

To correct just drag the icon off and put the original command back up.

 

[Corticus]

As a counterpart to the:
Challenge of the Month,

how about:
Annoyance of the Month

I think this thread demonstrates we'll have no paucity of entries.

There's some really great stuff in here!

 

[Chris The Rock]

Wow,
Amazing how much evil genius resides in such a group of nice people.

It was my plan to make this the longest-running thread on the board. Some of the ideas on here are great!

 

[golf4]

Hi, everyone -

Really like the pranks and jokes. I saw the one posted by Bruno re the code:

Private Sub Workbook_Open()
Do
Beep
Loop Until forever
End Sub .

I was wondering how I would amend the code to have it beep for about 5 seconds, pop up an annoying text box with my message, and resume beeping after acknowledging the box?

Thanks

 

[Bruno_x]

Hi Golf4, try this :
<pre>
Private Sub Workbook_Open()
PauseTime = 5
Start = Timer
Do While Timer < Start + PauseTime
Beep
Loop

MsgBox "Your message here..."

Do
Beep
Loop Until forever

End Sub </pre>

 

[TommyGun]

Hey guys, been working on this one, and it's pretty good.

It uses the Application level event handlers to change the status bar, but doesn't reset the status bar control to Excel. I have a list of messages in the first sheet of the "Personal" workbook, and it randomly picks a message each time it captures an event.

Here's an example:

<pre>Private Sub App_NewWorkbook(ByVal Wb As Excel.Workbook)

Randomize

Dim rnNum As Integer
Dim upLim As Integer

upLim = Application.CountA(Workbooks("Personal.xls").Sheets(1).Columns(1))

rnNum = Int((upLim - 1 + 1) * Rnd + 1)

Application.StatusBar = Workbooks("Personal.xls").Sheets(1).Cells(rnNum, 1).Value

End Sub</pre>

It doesn't hurt anything, it can just be pretty funny.

I also set up a procedure to play a WAV file at a randomly generated time interval. Haven't tested it yet, but I think it'll work.

<pre>Private Sub Workbook_Open()

Set AppClass.App = Application

Dim rnNum As Integer
rnNum = Int((1200 - 1 + 1) * Rnd + 1)

Application.OnTime DateAdd("s", rnNum, Now()), "GetWAV", DateAdd("s", rnNum + 10, Now())

End Sub

'========================================

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Private Sub GetWAV()

On Error Resume Next

Call sndPlaySound32("c:usrquackers.WAV", 0)

Dim rnNum As Integer
rnNum = Int((1200 - 1 + 1) * Rnd + 1)

Application.OnTime DateAdd("s", rnNum, Now()), "GetWAV", DateAdd("s", rnNum + 10, Now())

End Sub</pre>

 

[golf4]

Hi, Bruno -

Works like a charm....... Thanks for the help!!!

 

[Colo]

How abt this?

<pre>
'// Thisworkbook Module
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime Now, "ReOpen"
End Sub

'// Std Module
Sub ReOpen()
Workbooks.Open ThisWorkbook.FullName
End Sub
</pre>

 

[Bruno_x]

Nice Colo, very nice
Now i have to work all day looooong....

 

[Ivan F Moala]

You can Always start the default screen save
through some event eg Sheet Activate or change......

<pre>
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function BlockInput Lib "user32" ( _
ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" ( _
ByVal dwMilliseconds As Long)

Private Const WM_SYSCOMMAND As Long = &H112&
Private Const SC_SCREENSAVE As Long = &HF140&

Sub StartScreenSaver()
'// Starts Default ScrnSaver
'// By Ivan F Moala
Dim lRet As Long

lRet = SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)

DoEvents
'// Disable any inputs via mouse or keyboard
BlockInput True
'// pause 10 seconds before unblocking it
Sleep 10000
'// Enable inputs via mouse or keyboard
BlockInput False

End Sub
</pre>