disable the x key

[johny]

Hello
I have a sheet called "informaion" which is set up already not display any toolbars or menubar etc. I can't figure out how to get rid of the title bar or should I say caption
name. If there is a way please help. The other way would be to disable the [x] in the
top right of excel which is located on the
caption bar/titlebar of what the user has Open at the time.Also if they click the excel symbol they can close all open files
I need a way to stop this. I have button set up for proper closing. Please help Thanks Johny

 

[Dragracer]

You can disable all closing function unless a certian cell contains a value.

Use your save button to add a value to this cell. Delete the contains of this cell in your Auto_open macro.

Try this macro, it should get you started.<pre>
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("Sheet1").Range("A1") = "" Then
Cancel = True
Application.EnableCancelKey = xlInterrupt
End If
End Sub</pre>
This message was edited by Dragracer on 2002-09-26 19:17

 

[elgringo56]

open the macro editor (alt + F11)
Create a module and put the following in it

Public yourvariable As Boolean 'Set yourvariable for shut down

Then put something like this in the workbook section.

Public Sub Workbook_BeforeClose(Cancel As Boolean)
If yourvariable = True Then GoTo endit: ' checks if your variable is true
MsgBox "Please Use the Exit Program Button to close this program"
Cancel = True
endit:
ActiveWorkbook.Saved = True
End Sub

Then, in the code for your close button, put

yourvariable = true

before closeing. With this, they can only close with your button.