LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
No Name
 
Posts: n/a
Default Game security code needed

I probably just have no idea what I am doing. But I can't
for the life of me figure out how to run this. can anyone
help?
-----Original Message-----
We had this really imporant meeting with the Chief Exec

this morning and
the two most senior sales reps were invited as

a "consultation exercise"

Knowing the reps would be bored, I spent 15 long minutes

developing an
app to keep them occupied in the meeting (code below)

However, no more than 5 minutes into the meeting, not

only were they
projecting the worksheet over my masterly whiteboard

presentation but
they were also /cheating/ at noughts and crosses.

Can anyone provide any code to stop them cheating in

future meetings
please? Something to stop there being 5 crosses and one

nought on the
board would be a start :-)

Private Sub Worksheet_BeforeRightClick(ByVal Target As

Range, _
Cancel As Boolean)
'noughts and crosses (tic-tac-toe) in A1:C3
Dim x%
Static s$
With Target
If .Cells.Count 1 Then Exit Sub
If .Row 3 Or .Column 3 Then Exit Sub
If .Value < "" Then Exit Sub
If s$ = "X" Then s$ = "O" Else s$ = "X"
.Formula = s$
Cancel = True
x% = .Column
Application.StatusBar = False
If Cells(1, x%).Value = Cells(2, x%).Value Then
If Cells(1, x%).Value = Cells(3, x%).Value Then
Application.StatusBar = .Value & " Wins (column)"
Exit Sub
End If
End If
x% = .Row
If Cells(x%, 1).Value = Cells(x%, 2).Value Then
If Cells(x%, 1).Value = Cells(x%, 3).Value Then
Application.StatusBar = .Value & " Wins (row)"
Exit Sub
End If
End If
'don't check diagonals if center square blank
If Cells(2, 2).Value = "" Then Exit Sub
If Cells(1, 1).Value = Cells(2, 2).Value Then
If Cells(1, 1).Value = Cells(3, 3).Value Then
Application.StatusBar = .Value & " Wins (diag)"
End If
End If
If Cells(1, 3).Value = Cells(2, 2).Value Then
If Cells(1, 3).Value = Cells(3, 1).Value Then
Application.StatusBar = .Value & " Wins (diag2)"
End If
End If
End With
End Sub

.

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Alphabet Code Game James E Middleton Excel Discussion (Misc queries) 15 April 10th 07 01:58 PM
Game score without game being played Sheila Excel Worksheet Functions 14 May 17th 05 11:33 PM
VBA Code Security TJ Walls Excel Programming 16 May 17th 04 10:27 PM
Code security Carlos[_3_] Excel Programming 1 October 30th 03 09:39 AM


All times are GMT +1. The time now is 06:25 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"