YES.... BIG YES.... it works now..... THANKS

"Jacob Skaria" wrote:

Oops...I totally missed that..

Insert this in 'This Workbook'

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

and Insert the below in a module and assign this to a button

Public blnClose As Boolean
Sub CloseBook()
blnClose = True
ActiveWorkbook.Close True
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"Alberto Ast" wrote:

It only works if I remove the commands pasted on "This Worksheet"
Looks like those lines are blocking it to close completele.

"Jacob Skaria" wrote:

OK..I have tried with 2003 and 2007 versions..Since the button is on the
active workbook you cab try the below

Sub Macrotest()
Activeworkbook.Close True
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Alberto Ast" wrote:

I have made a lot of macros... I know what you mean to insert codes on This
Workbook and inserting a module and pasting the macro commands and assigning
it to a buttom... but it does not close... would you review the commands
inserted on "This Workbook".

Thanks.

"Jacob Skaria" wrote:

I am sure there is something wrong in the way you are trying.

--From a saved workbook launch VBE using short-key Alt+F11.
--From menu 'Insert' a module and paste the below code.
--Get back to Workbook. Save workbook
--Run macro from Tools|Macro|Run <selected macro()

Sub Macrotest()
ThisWorkbook.Close True
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"Alberto Ast" wrote:

This is great... I thought it was not going to be posible... but still I
asked and I glad....

First part worked great... but could not get the file to close with the macro.

Do I need a special module or can be in one of the currently used modules...?
Any other idea why the close book is not working?

"Jacob Skaria" wrote:

From workbook press Alt+F11 to launch VBE (Visual Basic Editor). From the
left treeview search for the workbook name and click on + to expand it.
Within that you should see the following

VBAProject(Your_Filename)
Microsoft Excel Objects
Sheet1(Sheet1)
Sheet2(Sheet2)
Sheet3(Sheet3)
This Workbook

Double click 'This WorkBook' and paste the below code to the right code pane.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub


Insert a module and copy the below macro..which is to be assigned to a button

Sub CloseBook()
ThisWorkbook.Close True
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"Alberto Ast" wrote:

Is there a way to force user to close file with a buttom macro and disable
the regualr closing opcions like close, exit and X at top right corner?