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

[Brianmc227]

Corticus, I've not here for a while but euh,
very nice idea

add this :
Private Sub Workbook_Open()
Do
Beep
Loop Until forever
End Sub

Put this in a file called Secret.xls, somewhere in the network where all the users have access... and enjoy...

We use Video over IP ofr our workstations here where I work. I hae one load station at my desk and 7 other PCs in the server room using software so I can control all of them at once. I put this on all the remote PCs in the department. Made my friend, who works in IT go nuts for a few days.

 

[MrByte]

Hi Guys and Gals,

If you haven't the time to hoik some VBA, just do as I do and slip into their auto correct. An endless source of fun - especially if your colleagues are not apt to proof read their work. (Good on Excel but works even better on Word).

Try these -
Replace "the" with "the ****" - Works well on sentences like -
"The manager of the company has approved the loan."
Or this gem -
Replace "you" with "you idiots" - Good for -
"I'd like to thank you for the kind gift you sent me yesterday"
Or even -
Replace "Brian" (use the person's name) with "Brian (your love puppet)" - Imagine this -
"Thank you for your trust in me, Sir. I won't let you down. Regards, Brian"

And these are just the mild ones. How far are you willing to push it?

Let us know.

DBA

I had a very good laugh over this one!! Too bad I have a small office to work with otherwise I'd try it.

 

[Lewiy]

Just a simple worksheet re-naming but you could put some amusing remarks on the tab names!

Private Sub Workbook_Open()
Worksheets("Sheet1").Name = "Place"
Worksheets("Sheet2").Name = "Remark"
Worksheets("Sheet3").Name = "Here"
End Sub

 

[Lewiy]

I used this one this morning to great effect. Had IT scratching their heads for a few hours before I came clean, luckily they saw the funny side of it!

Setup:

Create UserForm1, set caption as “Microsoft Excel”

On the UserForm:
Place “Label1”, remove caption and set BackColor to red
Place “Label2”, set caption to “0%”
Place “Label3”, set caption to “Deleting Microsoft Excel Backup Files…”
Place “CommandButton1”(kill switch), remove caption and make as small as you can and place in very bottom right of UserForm so barely visible

Then put in the following code:

In “ThisWorkbook” Module:

Private Sub Workbook_Open()
    	‘Display UserForm1 on opening workbook
UserForm1.Show
End Sub

In “UserForm1” Module:

‘Stop code (if you can find the button!)
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Activate()
‘Run a loop and progress bar
Dim Count, Count2, r As Integer
Dim Response As String
Label1.Width = 0
Label2.Caption = "0%"
For Count = 1 To 300
    If UserForm1.Visible = False Then
        Exit Sub
    End If
    For Count2 = 1 To 5000000
    Next Count2
    r = r + 1
    Label2.Caption = Format((r / 300), "0%")
    Label1.Width = Label1.Width + 1
    DoEvents
Next Count
Response = MsgBox("Process Complete", vbOKOnly)
UserForm1.Hide
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Prevent user from closing with the Close box in the title bar.
    If CloseMode <> 1 Then Cancel = 1

End Sub

 

[erik.van.geit]

so simple but very annoying

Application.CommandBars.FindControl(ID:=182).Execute

run again to get rid of the problem

what is it doing ?
it's like you pressed the "selection"arrow-icon from the DRAW-toolbar
this means you can only select objects
press icon again to quit the "select-object" mode

combined with some event + randomize + ontime (to run the line a bit later than the event and to undo the problem after 5 to 20 seconds)

cannot believe I posted this

 

[Oorang]

Not bad, except I actually keep that toolbar visible, so that button mask activated with the code... Now replace the button with a "dummy button" that looks unselected and now it's just plain wrong

 

[sneel3]

I worked with a guy who wrote code to reverse the spelling of all of the words on the menu bar. When he sent it to my Senior VP (also an Excel geek) it was a big hit.

Does anyone know the code for this?

 

[sneel3]

This worked once, but now it doesn't recognize "Reverse

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

 

[Oorang]

I think those you want to replace reverse with strreverse

 

[erik.van.geit]

here is the correct code
I added two lines

why ?
WARNING
I ran the code
closed Excel (normal behaviour for a "victim" who thinks this will restore the menus)
opened Excel again
all custom menus made by add-ins were inserted again, since the add-in couldn't find the menu (which was currently reversed)
I ran the code again, closed the add-ins, then ran the code once more with two extra lines to choose which menus should be changed)

You see the trouble ?
I've quite a lot of experience with Excel and found it cumbersome!
So when using this one STAY IN THE NEIGHBOURHOOD

best regards,
Erik

Sub strreverseMenuText()
'enable quoted lines if you get in trouble !!
'restore only the reversed menus
On Error Resume Next

    For Each m1 In Application.CommandBars(1).Controls
        'If MsgBox(m1.Caption, vbYesNo,"RESTORE ?)) = vbYes Then
    m1.Caption = StrReverse(m1.Caption)
            For Each m2 In m1.Controls
            m2.Caption = StrReverse(m2.Caption)
                For Each m3 In m2.Controls
                m3.Caption = StrReverse(m3.Caption)
                Next m3
            Next m2
        'End If
    Next m1
    
End Sub