Fun Times with Colleagues

Buff

Have you ever wanted to annoy someone who you sit with, maybe just as a prank or a long term thing (which is very easy to do and to reverse)?

If they use Excel and leave a workbook open, right click on the sheetname on the tab at the bottom of the screen and click "View Code" (or alternatively you can hit Alt+F11

Copy the following code and paste it in the screen that comes up and then press the cross to close that screen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Interior.ColorIndex = Int((56 * Rnd) + 1)
End Sub

Whenever a cell is selected anywhere on the sheet, it is filled with a random colour :-)

To remove it, view the code and delete it and press the cross to close the screen again.

It'll have them scratching their heads for ages!

AdamR

Buff wrote: »

Have you ever wanted to annoy someone who you sit with, maybe just as a prank or a long term thing (which is very easy to do and to reverse)?

If they use Excel and leave a workbook open, right click on the sheetname on the tab at the bottom of the screen and click "View Code" (or alternatively you can hit Alt+F11

Copy the following code and paste it in the screen that comes up and then press the cross to close that screen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Interior.ColorIndex = Int((56 * Rnd) + 1)
End Sub

Whenever a cell is selected anywhere on the sheet, it is filled with a random colour :-)

To remove it, view the code and delete it and press the cross to close the screen again.

It'll have them scratching their heads for ages!

I like that!

Gem7321

Nice one! :001_smile:

AdamR

Are you snowed in, Gem? Looks pretty bad in Exeter according to BBC News! Or did it all somehow miss you?

Gem7321

All melted now, but it wasn't that bad to begin with. It's so unfair the last time we had snow it was crap as well, we had it bad for one day then it melted

AdamR

I was fed up of it by the 3rd day last time. Took two weeks for the last bit of ice to melt in my carpark. If it hadn't have rained, I think it would still be there!:laugh:

It's laughable how we grind to a halt though - we could cope 40 years ago, we've had incredible advances in technology since then and yet we're going backwards!

AdamR

And before I get shouted at, I apologise for hijacking this thread!:blushing:

Buff

Euro-gazillions

blank

Gem7321

I love snow, we didn't even have time to build a snowman last time!

Yeah sorry J... *does the angelic look*

Paul24

AdamR wrote: »

we could cope 40 years ago, we've had incredible advances in technology since then and yet we're going backwards!

Thats part of the problem, werent so many cars about back then!

Gem7321

8!

Gem7321

Jamie I look like a knob now :ohmy:

Buff

only NOW?....

** heheh ** xx

AdamR

Paul24 wrote: »

Thats part of the problem, werent so many cars about back then!

Not just cars though. Go on You Tube and search "Snow (1963)", you'll see what I mean.

mark130273

Buff , that is evil..................but will it work on lotus ?

Buff

Mark,

I don't think it will - VBA is a Microsoft built in editing language, which I am not sure if Lotus can use - if it can I'm not sure how to get to the code input screen (I guess you could try the same hot key Alt+F11 and see if that brings it up)

I only really work with excel VBA so I couldn't comment on if it would work / delete data etc on other platforms.

mark130273

ok thanks anyway.have to go to my old works and put it on there comp....now that would be so funny !!