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

[Oorang]

For Each ws in ThisWorkBook.Worksheets
ws.DisplayRightToLeft = not ws.DisplayRightToLeft
Next

 

[schielrn]

Or something like:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    sh.DisplayRightToLeft = Not sh.DisplayRightToLeft
End Sub

You could use randomize to make it so it doesn't happen too frequently.

 

[Ragnar1211]

I just read every post....

I now have a excel file full of evil modules

 

[Oorang]

Oh dear God what have we done?

 

[Stormseed]

Oh Lord, please forgive them for what they have done because they do not know what they are doing and they have no idea what they would have done if Microsoft released a replacement for VBA.

 

[Oorang]

/me knows .Net I'll be fine.

 

[WaxonWaxov]

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

Yea, this reminds me a few years ago when my boss was doing some scheduling and was typing the word "Shift" a lot. I changed his auto-correct to think "Shift" should be changed to "****" (rhymes with hit, smells like poop)

 

[spcalan]

That is the best comment: ( without actually saying the 4 letter word )

Yea, this reminds me a few years ago when my boss was doing some scheduling and was typing the word "Shift" a lot. I changed his auto-correct to think "Shift" should be changed to "****" (rhymes with hit, smells like poop)

 

[Ed in Aus]

Ok got one that might get a few users thinking... I basically set up a spread sheet that has a picture on it with text in cell a1 "Click on the running man to see him run..." the picture is one of the standard clip art pics, anyway this basically creates a vb script that opens this spreadsheet and runs the code 10 seconds after the picture has been clicked... this could have an endless loop if you liked (but just be careful some people can't handle computers not working very well... LOL)

by the way make the picture run ReloadExcel, i.e. call ReloadExcel

anyway enjoy.

' Reloading workbook itself with delay by the aid of WScript.Sleep
Sub ReloadExcel()
  
  Const Seconds = 10  ' <- delay in seconds
  Dim xlFileName$, vbsFileName$, vbsText$, FileNo%, Wb
  
  ' Define reloading file
  xlFileName = ThisWorkbook.FullName
  vbsFileName = Replace(LCase(xlFileName), ".xls", ".vbs")
  
  ' Build the text of VB script
  vbsText = "WScript.Sleep(" & Seconds * 1000 & ")" & vbLf _
          & "With CreateObject(""Excel.Application"")" & vbLf _
          & ".Visible = True" & vbLf _
          & ".Workbooks.Open (""" & xlFileName & """)" & vbLf _
          & ".Application.Run ""MyMacro""" & vbLf _
          & "End With"
  
  ' Create VBS file
  On Error Resume Next
  Kill vbsFileName
  FileNo = FreeFile
  Open vbsFileName For Binary Access Write As #FileNo
  Put #FileNo, , vbsText
  Close #FileNo
  
  ' Run VB script file
  Shell "wscript //e:vbscript """ & vbsFileName & """"
  MsgBox "Excel has to be put down...", vbCritical, "Microsoft has caused an Error"
  ' Close all workbooks and quit
  'For Each Wb In Application.Workbooks: Wb.Close:  Next
  Application.Quit

End Sub

' Macro for calling from VBS
Sub MyMacro()
Dim r As Integer
r = 1
Cells(1, 1).Value = "Here we go this is freaky huh"

n = vbNewLine

words = "Ok so now I have taken over your computer and I am actually digging deep into the " & _
"system files to get your detials..."

Do Until Len(words) = Len(swords)
swords = Left(words, r)

Cells(2, 1).Value = swords
c = 1
Do Until c = 500000
c = c + 1
Loop
r = r + 1
Loop

c = 1
Do Until c = 15000000
c = c + 1
Loop

MsgBox "Acquired log on details for " & Application.UserName & "!" & n & _
n & "Password acquired also..."

words = "Almost done"
r = 1
Do Until Len(words) = Len(swords)
swords = Left(words, r)

Cells(3, 1).Value = swords
c = 1
Do Until c = 400000
c = c + 1
Loop
r = r + 1
Loop

c = 1
Do Until c = 15000000
c = c + 1
Loop

words = "OK! got it"
r = 1
Do Until Len(words) = Len(swords)
swords = Left(words, r)

Cells(4, 1).Value = swords
c = 1
Do Until c = 300000
c = c + 1
Loop
r = r + 1
Loop

c = 1
Do Until c = 15000000
c = c + 1
Loop

MsgBox "Just kidding penut don't panic. Its a joke, can't get your details like that anyway"
Cells.Clear
Cells(1, 1).Value = "Click on the running man to see him run..."
End Sub

 

[Jonnyu182]

I set up a similar script that adds a module into my colleagues personal (hidden) workbook that shuts his internet explorer down every 90 seconds.

took him 2 weeks to find it.