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

[just_jon]

pretty sophomoric, compared to the code you all have written, but you can get a cheap thrill by taking someone's open - and unattended - workbook and off-clicking the show formula bas and changing all font colors to white.
just_jon

 

[Bruno_x]

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...

 

[Iridium]

Anyone know how to change the language settings in Excel with a (auto_open) macro? I think for most of the English speaking nations any foreign language would leave most users stumped but how about changing it to say Chinese or Arabic?

 

[Jack in the UK]

Chris

I would post this on the main board, its relavant and you wnt to know how to do an Excel things

Ive no intrest in being silly in such a fashion, very childish, unprofessional and not to encourage the children.

Please stop this kinda of yopish youth attitude to this site OK or better still can we have 100 times more and monkey about is such more fun!!!! cause agro and be silly much more ?? YES i vote!


Chris i like this one!! he he!!! yup im planning!!!!

 

[TommyGun]

Very nice stuff in here!!! I love the auto open codes, those are great! Keep up the evil genius!

 

[TommyGun]

Okay, so I have an idea, but no earthly idea if it's possible, or how to do it, but here goes:

It goes off the same idea about the random number to kill XL, but instead of just killing XL, could you send the user back to the Login screen? Basically log the user off when they start XL. Would this be possible in VBA?

 

[NateO]

Howdy y'all, I have (2) too many posts to this thread. But what do y'all think of this Christmas treat:

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

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

Sub Wowee_Zowie()
Call SendMessage(FindWindow("xlMain", vbNullString), &HB, 0, 0)
End Sub</pre>

?

Happy Holidays,
Nate

 

[NateO]

Would this be possible in VBA?

Howdy Tom, try the following on for size:<pre>
Private Declare Function ExitWindowsEx Lib "user32.dll" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

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

Public Sub LogOff()
Dim wb As Workbook
LockWindowUpdate FindWindow("xlMain", vbNullString)
For Each wb In Application.Workbooks
If wb.Name<> ThisWorkbook.Name Then wb.Close False
Next wb
ExitWindowsEx 0, 0
End Sub</pre>

Works well in my environment.

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

 

[Iridium]

On 2002-12-18 14:28, Jack in the UK wrote:
Chris

I would post this on the main board, its relavant and you wnt to know how to do an Excel things

Ive no intrest in being silly in such a fashion, very childish, unprofessional and not to encourage the children.

Please stop this kinda of yopish youth attitude to this site OK or better still can we have 100 times more and monkey about is such more fun!!!! cause agro and be silly much more ?? YES i vote!


Chris i like this one!! he he!!! yup im planning!!!!

Jack

 

[TommyGun]

Nice stuff NateO, I'll try this later.