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

Von Pookie · Apr 1, 2003

Just bumping this back up in honor of April Fool's Day (though I hate it with a passion).

NateO · Apr 22, 2003

Here's a doosey, and you can call this from a worksheet!

<pre>Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetWindowRgn Lib "User32" _
(ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long

Function AlterEn()
Dim hRgn As Long
hRgn = CreateEllipticRgn(0, 0, 150, 150)
SetWindowRgn FindWindow("XLMAIN", Application.Caption), hRgn, True
End Function</pre>

Go into a cell and enter

=AlterEn()

So much not manipulating the object via udf...

Juan Pablo González · Apr 22, 2003

Just wanted to post an easier version to copy to the VBE:

Option Explicit

Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetWindowRgn Lib "User32" _
(ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long

Function AlterEn()
Dim hRgn As Long
hRgn = CreateEllipticRgn(0, 0, 150, 150)
SetWindowRgn FindWindow("XLMAIN", Application.Caption), hRgn, True
End Function

Mark O'Brien · Apr 23, 2003

I just thought of a prank by accident. I just copied some worksheets to sort them and suchlike. I removed the colour formatting from all of the cells on the sheet by setting the cell fill pattern to "No Fill". However, cell H2 was formatted with a yellow colour. It only took a minute to realise that I'd been messing with Conditional Formatting and forgot to remove the formatting for that cell. So, my prank is this:

Choose a cell or range of cells e.g. Cell A1
Goto Format|Conditional Formatting...
Select the condition Cell Value is Equal to A1
Insert whatever formatting conditions you want. e.g. make the background pattern yellow for that inexplicable miscellaneous cell whose formatting you can't change. Change the font colour to match the background for the classic "inivisble" cell contents.

The beauty of this one is that there is no VBA involved.

Von Pookie · Apr 23, 2003

I don't feel like cross-posting this at the moment, so just follow the link to my post with Microsoft-supplied meanness.

http://www.mrexcel.com/board2/viewtopic.php?p=219571#219571

Corticus · Apr 23, 2003

end all

This one's fun, use wisely...

Put this code in a standard module to declare function fTerminateWin(lngExitVal As Long).

http://www.mvps.org/access/api/api0016.htm

you can make a sub

Code:

sub endall()

fTerminateWin(0)

end sub

and..well,,,
their computer,
depending on what value you put in
fTerminateWin(HERE).
will:
0 - Terminates processes, then logs off.
1 - Powers the system off, if possible.
2 - Reboots the system.
3 - Forcibly terminates processes
when endall() is called.

Fun eh?

TommyGun · Jun 5, 2003

Dim NextTime As Date

Sub Auto_Close()

StopClock

End Sub

Sub Aut

pen()

StartClock

End Sub

Private Sub StartClock()

NextTime = Now + TimeValue("00:00:01")

Application.Caption = Format(Now, "mmmm d, yyyy hh:mm:ss AM/PM")
Application.OnTime NextTime, "StartClock"

End Sub

Private Sub StopClock()

Application.Caption = ""
Application.OnTime NextTime, "StartClock", Schedule:=False

End Sub

LTunnicliffe · Jun 6, 2003

This isn't an Excel prank or anything but if you're on NT you can always "net send" people from the Run prompt type:

net send PersonsUserName "Your message"

This displays a message on the recipients screen that says its from your computer name to their computer name. This is pretty funny to watch someones reaction to a message box they have never seen before (more than likely).

NateO · Jun 6, 2003

LTunnicliffe said:
This isn't an Excel prank or anything but if you're on NT you can always "net send" people from the Run prompt type:

This is a good one, I definitely have had some fun with this in the past. I do this via visual basic from excel with one of the following:

Sub NetSend1()
Shell ("cmd.exe /c net send ComputerName Hello.")
End Sub

Sub NetSend2()
Dim WSpt As Object
Set WSpt = CreateObject("WScript.Shell")
WSpt.Run "cmd.exe /c Net Send IPADDRESS Whassup?", 0
Set WSpt = Nothing
End Sub

The Windows scripting method is nice as you don't create an instance of the Command Prompt. You can also use computer names or IP addresses.

TommyGun · Jun 9, 2003

Funny story about "net send"...we had a guy here that was using this, and missed the spelling on the user name

, and his message went out to everyone on our network. Needless to say, he isn't here anymore, especially since the message came across with his computer name, and was composed of only two words.....

BITE ME!

That's right, if you're gonna send out the message via "net send", make sure you get that username/computer name/ip address correct.

Oh, and it just so happens that the President of our company was in that day, and received this nice little message on his computer.

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

Von Pookie

MrExcel MVP

Excel Facts

NateO

Legend

Juan Pablo González

MrExcel MVP

Mark O'Brien

MrExcel MVP

Von Pookie

MrExcel MVP

Corticus

Well-known Member

TommyGun

MrExcel MVP

LTunnicliffe

Well-known Member

NateO

Legend

TommyGun

MrExcel MVP

Forum statistics

Share this page

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

MrExcel MVP

Excel Facts

Legend

MrExcel MVP

MrExcel MVP

MrExcel MVP

Well-known Member

MrExcel MVP

Well-known Member

Legend

MrExcel MVP

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock