Jokes and pranks

[PA HS Teacher]

What about delaying the closing of a workbook?

A number of thoughts here:

1. Require the user to say please before closing. (perhaps using an input box)

2. A message box that says something along the lines of, "You've been bad, I'm giving you a time out for ( x time). You can close me then."

Keep track of how long its been since this message. If the user tries to close the workbook before (x time) has been elapsed you can:
a) restart the time, and don't allow close until x time.
b) a message box along the lines of, "I'm not messing around, you now have a time out for 2x.
(repeat as you deem necessary)

3. A more innocent message might be just, "Good Bye " & UserName

4. A message box that says, "Read to me!", then open up a news website/ children's story site, whatever strikes your fancy.

5. Similarly, you could have a message box pop up at certain times of the day instruction the user that, "I'm bored.", "I'm scared", "I'm tired", "I'm hungry" etc.)

6. Perhaps a message box right before lunch time that says, "Can I come to lunch?" or "Want to go for a byte?"

7. A random message box that says, "Do you like me?" If the user clicks Yes: "You're just saying that."
No: "Fine, I don't like you either." --> Then close the file

8. Keep a list of jokes on a hidden or very hidden sheet. Ask the user if they want to hear a joke, then procede to tell a joke.

9. Similar to 8, interupt the user with a joke, fact, anything really every x minutes.

10. Perhaps a worksheet change event that includes,
If Target.Value = "Your Name" then msgbox("Your Name deserves a raise")

Many more could be added.

 

[Joe4]

PA HS Teacher,

So it that what you high school teachers do in your spare time...

 

[PA HS Teacher]

We come here in our "spare time" instead of working on papers due to our professors tomorrow in our summer courses.

I can see others come here during their "spare time" at work.

In any case, threads like this make me wish my coworkers used Excel more...

 

[Joe4]

I can see others come here during their "spare time" at work.

I can't believe that anyone would do that.

All good natured ribbing! Some of those ideas were pretty good. Give 'em a taste of their own medicine!

Now I guess I should get back to work!

 

[Oorang]

PA Those were hilarious

 

[al_b_cnu]

Background:
There's a guy in our office who uses Excel to keep a log of his timekeeping, he also regularly has no dinner and enters 'No Dinner' and goes home an hour early.

He also keeps his workbook open during the day (but doesnt log his fag breaks!)

I inserted a worksheet change event:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
Dim bShow As Boolean

For Each R In Target
    If InStr(LCase$(Application.WorksheetFunction.Trim(R.Text)), "no dinner") > 0 Then
        bShow = True
        Exit For
    End If
Next R
If bShow = True Then UserForm1.Show
End Sub

I also inserted Userform1 with
3 labels: Label1, Label2, Label3
2 command buttons: cmdYes, cmdNo

and inserted this code behind Userform1:

Option Explicit

Private Sub cmdNo_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If cmdNo.Left < cmdYes.Left Then
    cmdNo.Left = cmdYes.Left + (cmdYes.Width * 1.2)
Else
    cmdNo.Left = cmdYes.Left - (cmdYes.Width * 1.2)
End If

End Sub

Private Sub cmdYes_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
With Me
    .StartUpPosition = 2
    .Width = 229
    .Height = 115
    .Caption = "Excel Overdependency Error"
End With
With Label1
    .Caption = "A Serious system error has occurred"
    .Top = 6
    .Width = 204
    .Height = 18
    .Left = 12
    With .Font
        .Bold = True
        .Size = 8
        .Name = "Tahoma"
    End With
End With
With Label2
    .Caption = "A possible cause is overreliance on Excel Spreadsheets."
    .Top = 24
    .Width = 204
    .Height = 18
    .Left = 12
    With .Font
        .Bold = False
        .Size = 8
        .Name = "Tahoma"
    End With
End With
With Label3
    .Caption = "Do you rely on Excel too much?"
    .Top = 48
    .Width = 204
    .Height = 18
    .Left = 12
    With .Font
        .Bold = False
        .Size = 8
        .Name = "Tahoma"
    End With
End With
With cmdNo
    .Top = 72
    .Left = 132
    .Height = 18
    .Width = 48
End With
With cmdYes
    .Top = 72
    .Left = 66
    .Height = 18
    .Width = 48
End With
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode = 0
End Sub

and sat back & waited

 

[Glaswegian]

Nice one Alan!!

I was expecting a bit more after clicking the 'yes' button. Might be worth developing that a bit further.......

 

[al_b_cnu]

I thought I'd made my point by that time, but any further development suggestions welcome

 

[smokenack]

He also keeps his workbook open during the day (but doesnt log his fag breaks!)

I think that someone should explain to our American friends that a fag in England is slang for a cigarette. Just in case you were wondering.

 

[Glaswegian]

I thought I'd made my point by that time, but any further development suggestions welcome

Oh I'm sure there are untold possibilities to make things interesting (see some of the previous posts in this thread) - ones that pop up a form with a progress bar and a message saying something like all files are being deleted, appeal to my sense of humour!

Good point smokenack - wouldn't like the Americans to get the wrong idea about the ENGLISH.