Jokes and pranks

[Glaswegian]

"Use your powers for good."

So I should not be seduced by the dark side? Workbook_Open() and users with low security settings -- these are the path to the dark side?

Yes, that and probably the Kill Statement.

 

[litrelord]

Thank you to PEN and starl for this post

Private Sub Workbook_Open()
Application.IgnoreRemoteRequests = True
End Sub

Nick

 

[starl]

oh - that's evil!

 

[erik.van.geit]

Option Explicit

Public PrevSh  As Worksheet
Public ThisSh  As Worksheet
Public ThisShN As String
Public CopySh  As Worksheet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Erik Van Geit
'050812 1802
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With

Set ThisSh = ActiveSheet
On Error Resume Next
PrevSh.Delete
  With CopySh
  .Name = ThisShN
  .Visible = xlSheetVisible
  End With
On Error GoTo 0

With ThisSh
ThisShN = .Name
.Copy before:=Sheets(.Index)
Set CopySh = ActiveSheet
End With

With CopySh
.Visible = xlSheetVeryHidden
End With

With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With

Set PrevSh = ThisSh

End Sub

 

[whiteghost]

has anyone ever thought of replacing the Windows error beep with a wav file that announces "Hey Folks..This idiot's got it wrong again!!"

just a thought

 

[starl]

cute cat, ghost.
Now THIS sounds like a prank:
http://www.mrexcel.com/board2/viewtopic.php?t=163385

and, while you're reading it... can anyone figure it out?