Is there anyway you can disable the exit button X in excel 2003 as I
only want the users to close and save the workbook thru a button macro
on the worksheet???

Thanks

You can use Workbook_BeforeClose event to force user to close workbook by
pressing a button.

Copy following code to ThisWorkBook code section

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not Ok2Close
End Sub

Copy following code to a module

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ThisWorkbook.Close
Ok2Close = False
End Sub

Haldun Alay


"pano" , haber iletisinde sunlari
roups.com...
Is there anyway you can disable the exit button X in excel 2003 as I
only want the users to close and save the workbook thru a button macro
on the worksheet???

Thanks

On Mar 27, 5:08 pm, "Haldun Alay" wrote:
You can use Workbook_BeforeClose event to force user to close workbook by
pressing a button.

Copy following code to ThisWorkBook code section

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not Ok2Close
End Sub

Copy following code to a module

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ThisWorkbook.Close
Ok2Close = False
End Sub

Haldun Alay

"pano" , haber iletisinde sunlari
roups.com...



Is there anyway you can disable the exit button X in excel 2003 as I
only want the users to close and save the workbook thru a button macro
on the worksheet???

Thanks- Hide quoted text -

- Show quoted text -

Hmm Haldun, this sure does stop the user pressing the X button but I
need it to close the workbook which it does but also close excel down

thanks for the help so far
stephen

To close the application insert this line:

Application.Quit

You can enter it before

Ok2Close = False

HTH
Kostis Vezerides

On Mar 27, 2:45 pm, "pano" wrote:
On Mar 27, 5:08 pm, "Haldun Alay" wrote:



You can use Workbook_BeforeClose event to force user to close workbook by
pressing a button.

Copy following code to ThisWorkBook code section

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not Ok2Close
End Sub

Copy following code to a module

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ThisWorkbook.Close
Ok2Close = False
End Sub

Haldun Alay

"pano" , haber iletisinde sunlari
roups.com...

Is there anyway you can disable the exit button X in excel 2003 as I
only want the users to close and save the workbook thru a button macro
on the worksheet???

Thanks- Hide quoted text -

- Show quoted text -

Hmm Haldun, this sure does stop the user pressing the X button but I
need it to close the workbook which it does but also close excel down

thanks for the help so far
stephen

On Mar 27, 9:54 pm, "vezerid" wrote:
Toclosethe application insert this line:

Application.Quit

You can enter it before

Ok2Close = False

HTH
Kostis Vezerides

On Mar 27, 2:45 pm, "pano" wrote:



On Mar 27, 5:08 pm, "Haldun Alay" wrote:

You can use Workbook_BeforeClose event to force user tocloseworkbook by
pressing a button.

Copy following code to ThisWorkBook code section

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not Ok2Close
End Sub

Copy following code to a module

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ThisWorkbook.Close
Ok2Close = False
End Sub

Haldun Alay

"pano" , haber iletisinde sunlari
roups.com...

Is there anyway you can disable the exit button X inexcel2003 as I
only want the users tocloseand save the workbook thru a button macro
on the worksheet???

Thanks- Hide quoted text -

- Show quoted text -

Hmm Haldun, this sure does stop the user pressing the X button but I
need it toclosethe workbook which it does but alsocloseexceldown

thanks for the help so far
stephen- Hide quoted text -

- Show quoted text -

Hmm I have been looking thru the past messages and I found that and
tried it but excel still wont close down am I doing something wrong
here is the code I am using

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ThisWorkbook.Close
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\DWS.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=True
Application.Quit
Ok2Close = False

End Sub

You are closing file so macro execution stops...

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\DWS.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=True
ThisWorkbook.Close
Application.Quit
Ok2Close = False

End Sub


"pano" , haber iletisinde sunlari
roups.com...
On Mar 27, 9:54 pm, "vezerid" wrote:
Toclosethe application insert this line:

Application.Quit

You can enter it before

Ok2Close = False

HTH
Kostis Vezerides

On Mar 27, 2:45 pm, "pano" wrote:



On Mar 27, 5:08 pm, "Haldun Alay" wrote:

You can use Workbook_BeforeClose event to force user tocloseworkbook
by
pressing a button.

Copy following code to ThisWorkBook code section

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not Ok2Close
End Sub

Copy following code to a module

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ThisWorkbook.Close
Ok2Close = False
End Sub

Haldun Alay

"pano" , haber iletisinde sunlari
roups.com...

Is there anyway you can disable the exit button X inexcel2003 as I
only want the users tocloseand save the workbook thru a button
macro
on the worksheet???

Thanks- Hide quoted text -

- Show quoted text -

Hmm Haldun, this sure does stop the user pressing the X button but I
need it toclosethe workbook which it does but alsocloseexceldown

thanks for the help so far
stephen- Hide quoted text -

- Show quoted text -

Hmm I have been looking thru the past messages and I found that and
tried it but excel still wont close down am I doing something wrong
here is the code I am using

Public Ok2Close As Boolean
Sub CloseMacro()
Ok2Close = True
ThisWorkbook.Close
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:="D:\DWS.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=True
Application.Quit
Ok2Close = False

End Sub

Put this in the ThisWorkbook Module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If CloseMode = vbFormControlMenu Then
MsgBox "Clicking the X button does not work."
Cancel = True
End If
End Sub

"pano" wrote:

Is there anyway you can disable the exit button X in excel 2003 as I
only want the users to close and save the workbook thru a button macro
on the worksheet???

Thanks