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

[Lewiy]

Looks like you could travel in time with that thing. Cool!! Not sure you'd make it back though

 

[EdaddyJ]

OMG I'm in tears thinking how fun this would be........I realize this topic is old but if anyone is still reading thanks for the suggestions.

 

[Lewiy]

Inspired by a forum question from yesterday:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.WindowState = xlNormal
Application.Width = Int(Rnd() * 1000) - 100
End Sub

Very basic, but funny watching people try to work with it!!

 

[Smitty]

Inspired by a forum question from yesterday:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.WindowState = xlNormal
Application.Width = Int(Rnd() * 1000) - 100
End Sub

Very basic, but funny watching people try to work with it!!

Oh, I could have so much fun with that! (Must will myself not to be juvenile...)

Smitty

 

[Richard Schollar]

Inspired by a forum question from yesterday:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.WindowState = xlNormal
Application.Width = Int(Rnd() * 1000) - 100
End Sub

Very basic, but funny watching people try to work with it!!

Now that I like

 

[erik.van.geit]

a variation
screen shrinks each "x" selections & stays in the middle
only when screen is in normal state
I expect some people to drag screen from time to time

works nicely for me, perhaps you'll need to experiment with the values
test holding arrowkey

Option Explicit

Dim i As Long
Dim j As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Erik Van Geit
'070503

'screen will shrink each 'Req' times
Const Freq = 3
Const r = 0.75

i = i + 1
    
    If i < Freq Then Exit Sub
    i = 0
    j = j + 1
    With Application
        If .WindowState = xlNormal Then
        .Width = .Width - r
        .Height = .Height - .Height / .Width * r
            If j Mod 2 = 0 Then
            .Top = .Top + r * 3
            .Left = .Left + r * 1.75
            End If
        End If
    End With

End Sub

evil regards,
Erik

 

[Lewiy]

Ok, just messing around now:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Application.WindowState = xlNormal
Application.Width = Int(Rnd() * 1000) - 100
i = Int(Rnd() * 4 + 1)
Select Case i
    Case 1: Windows.Arrange xlCascade
    Case 2: Windows.Arrange xlArrangeStyleTiled
    Case 3: Windows.Arrange xlArrangeStyleHorizontal
    Case 4: Windows.Arrange xlArrangeStyleVertical
End Select
End Sub

 

[Oorang]

Rofl I had a user do this be accident I couldn't figure it out. He accidently clicked "New window", then saved. Then came to me and was like "every time I open this workbook it opens twice". I couldn't figure it out. Von Pookie finally clued me in. Sooo try a little:

ActiveWindow.NewWindow

One more for the road:

Public Declare Function WeirdSound Lib "Kernel32.dll" Alias "Beep" (ByVal lFrequency As Long, ByVal lDuration As Long) As Boolean
Sub TheHardDriveisDying()
WeirdSound 40, 10000
End Sub

 

[Dsuperc]

IT MAY OR MAY NOT WORK

It worked on some computers in the office but it did not work on all. Try this, hit Ctrl+Alt+the Down Arrow. It will turn the screen upsided down, to reverse it hit Ctrl+Alt+the up arrow

 

[thorpyuk]

How about save your spreadsheet with the following code into the windows startup folder....

VBA.Shell "Shutdown -f", vbHide

Causing windows to shutdown as soon as a spreadsheet is opened, which of course is opened every time windows is loaded :>

Should cause the layperson to scream with frustration, but would be easy enough for an admin to sort out