Hi

I have code that runs on the workbook BeforeSave event.
How do I "cancel" the actual save process here? Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy

Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message ...
Hi

I have code that runs on the workbook BeforeSave event.
How do I "cancel" the actual save process here? Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy

Thanks Ron

It works. Let me ask you another question - is there a
way to have the BeforeSave and BeforeClose code NOT run?
What my code does it check that all required data is
filled-in. Now, in the design phase, I need to save
design changes and code but the BeforeSave and BeforeClose
code runs and won't allow me to save without filling in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi

I have code that runs on the workbook BeforeSave event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy


.

Hi Cindy

Right click on the excel icon next to file on the menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("A1:A6")
If Application.WorksheetFunction.CountA(myrange) < _
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message ...
Thanks Ron

It works. Let me ask you another question - is there a
way to have the BeforeSave and BeforeClose code NOT run?
What my code does it check that all required data is
filled-in. Now, in the design phase, I need to save
design changes and code but the BeforeSave and BeforeClose
code runs and won't allow me to save without filling in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi

I have code that runs on the workbook BeforeSave event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy


.

Hi Ron

I'm a little confused. My code is in the BeforeSave
event. What my problem is I can't save my design changes
because the "BeforeSave" codes runs and want's data filled-
in and I need to start with a "blank" form - no data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("A1:A6")
If Application.WorksheetFunction.CountA(myrange) < _
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Thanks Ron

It works. Let me ask you another question - is there a
way to have the BeforeSave and BeforeClose code NOT run?
What my code does it check that all required data is
filled-in. Now, in the design phase, I need to save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without filling in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi

I have code that runs on the workbook BeforeSave
event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy


.



.

Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message ...
Hi Ron

I'm a little confused. My code is in the BeforeSave
event. What my problem is I can't save my design changes
because the "BeforeSave" codes runs and want's data filled-
in and I need to start with a "blank" form - no data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("A1:A6")
If Application.WorksheetFunction.CountA(myrange) < _
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Thanks Ron

It works. Let me ask you another question - is there a
way to have the BeforeSave and BeforeClose code NOT run?
What my code does it check that all required data is
filled-in. Now, in the design phase, I need to save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without filling in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi

I have code that runs on the workbook BeforeSave
event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy


.



.

Where would I put this code?

Since it's a "template", I can't get the "on open" code to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when I only
want to disable the events to save my changes?

Sorry this is getting too complicated. I appreciate all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi Ron

I'm a little confused. My code is in the BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's data
filled-
in and I need to start with a "blank" form - no data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("A1:A6")
If Application.WorksheetFunction.CountA(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Thanks Ron

It works. Let me ask you another question - is
there a
way to have the BeforeSave and BeforeClose code NOT
run?
What my code does it check that all required data is
filled-in. Now, in the design phase, I need to save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook BeforeSave
event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy


.



.



.

If you use it in a template you can use this as first line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message ...
Where would I put this code?

Since it's a "template", I can't get the "on open" code to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when I only
want to disable the events to save my changes?

Sorry this is getting too complicated. I appreciate all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi Ron

I'm a little confused. My code is in the BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's data
filled-
in and I need to start with a "blank" form - no data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("A1:A6")
If Application.WorksheetFunction.CountA(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Thanks Ron

It works. Let me ask you another question - is
there a
way to have the BeforeSave and BeforeClose code NOT
run?
What my code does it check that all required data is
filled-in. Now, in the design phase, I need to save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook BeforeSave
event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save process
cancelled and the workbook left on the screen.

Thanks

Cindy


.



.



.

Ron,

I still don't know where to put the code to trigger it to
run when the user does "file-new-selects the template".

Thanks,

Cindy
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open" code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I appreciate all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi Ron

I'm a little confused. My code is in the BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's data
filled-
in and I need to start with a "blank" form - no data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question - is
there a
way to have the BeforeSave and BeforeClose code
NOT
run?
What my code does it check that all required data
is
filled-in. Now, in the design phase, I need to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the screen.

Thanks

Cindy


.



.



.



.

What event?
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open" code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I appreciate all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi Ron

I'm a little confused. My code is in the BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's data
filled-
in and I need to start with a "blank" form - no data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question - is
there a
way to have the BeforeSave and BeforeClose code
NOT
run?
What my code does it check that all required data
is
filled-in. Now, in the design phase, I need to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the screen.

Thanks

Cindy


.



.



.



.

Hi cindy

In all the events that you use this as first line

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Len(ThisWorkbook.Path) = 0 Then Exit Sub

' your code

End Sub


If you open the template the events will not work because the length
of the ThisWorkbook.Path = 0

As soon as you save the template as a excel file the events are working because
you have a path (C:\test.xls or so)


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message ...
Ron,

I still don't know where to put the code to trigger it to
run when the user does "file-new-selects the template".

Thanks,

Cindy
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open" code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I appreciate all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Hi Ron

I'm a little confused. My code is in the BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's data
filled-
in and I need to start with a "blank" form - no data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question - is
there a
way to have the BeforeSave and BeforeClose code
NOT
run?
What my code does it check that all required data
is
filled-in. Now, in the design phase, I need to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the screen.

Thanks

Cindy


.



.



.



.

Oh, sorry I didn't understand. I'll give this a try!
Thanks

Cindy
-----Original Message-----
Hi cindy

In all the events that you use this as first line

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
If Len(ThisWorkbook.Path) = 0 Then Exit Sub

' your code

End Sub


If you open the template the events will not work because
the length
of the ThisWorkbook.Path = 0

As soon as you save the template as a excel file the
events are working because
you have a path (C:\test.xls or so)


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Ron,

I still don't know where to put the code to trigger it
to
run when the user does "file-new-selects the template".

Thanks,

Cindy
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open"
code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I appreciate
all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi Ron

I'm a little confused. My code is in the
BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's
data
filled-
in and I need to start with a "blank" form - no
data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button
the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question - is
there a
way to have the BeforeSave and BeforeClose code
NOT
run?
What my code does it check that all required
data
is
filled-in. Now, in the design phase, I need to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process
here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the
screen.

Thanks

Cindy


.



.



.



.



.

This won't work for what I need to do because the path
length will be 0 because they won't save the file until
the data is verified and so the code on BeforeSave and
BeforeClose will never run.

What I really need & can't figure out is a way to run code
when the template is being used because then I could
disableevents while in design mode, save the template and
close. When the user "uses" the template, the first code
that will run is "enableevents". The problem is I can't
figure out how to run this code when the template is
being "used". The "open" event doesn't work.

I'm sorry to take up your time and appreciate your help,
but if you don't have the time, don't worry about it.
THanks

Cindy

-----Original Message-----
Hi cindy

In all the events that you use this as first line

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
If Len(ThisWorkbook.Path) = 0 Then Exit Sub

' your code

End Sub


If you open the template the events will not work because
the length
of the ThisWorkbook.Path = 0

As soon as you save the template as a excel file the
events are working because
you have a path (C:\test.xls or so)


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Ron,

I still don't know where to put the code to trigger it
to
run when the user does "file-new-selects the template".

Thanks,

Cindy
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open"
code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I appreciate
all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi Ron

I'm a little confused. My code is in the
BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's
data
filled-
in and I need to start with a "blank" form - no
data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button
the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question - is
there a
way to have the BeforeSave and BeforeClose code
NOT
run?
What my code does it check that all required
data
is
filled-in. Now, in the design phase, I need to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process
here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the
screen.

Thanks

Cindy


.



.



.



.



.

Ron,

I went back to "old" technology and created a sub
procedure named auto_open and enabled the events here.
This runs when the user "uses" the template file. Thanks
for all your help!

Cindy
-----Original Message-----
This won't work for what I need to do because the path
length will be 0 because they won't save the file until
the data is verified and so the code on BeforeSave and
BeforeClose will never run.

What I really need & can't figure out is a way to run
code
when the template is being used because then I could
disableevents while in design mode, save the template and
close. When the user "uses" the template, the first code
that will run is "enableevents". The problem is I can't
figure out how to run this code when the template is
being "used". The "open" event doesn't work.

I'm sorry to take up your time and appreciate your help,
but if you don't have the time, don't worry about it.
THanks

Cindy

-----Original Message-----
Hi cindy

In all the events that you use this as first line

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
If Len(ThisWorkbook.Path) = 0 Then Exit Sub

' your code

End Sub


If you open the template the events will not work
because
the length
of the ThisWorkbook.Path = 0

As soon as you save the template as a excel file the
events are working because
you have a path (C:\test.xls or so)


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Ron,

I still don't know where to put the code to trigger it
to
run when the user does "file-new-selects the template".

Thanks,

Cindy
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open"
code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when
I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I
appreciate
all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi Ron

I'm a little confused. My code is in the
BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's
data
filled-
in and I need to start with a "blank" form - no
data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on
the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button
the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI
As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question -
is
there a
way to have the BeforeSave and BeforeClose
code
NOT
run?
What my code does it check that all required
data
is
filled-in. Now, in the design phase, I need
to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process
here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the
screen.

Thanks

Cindy


.



.



.



.



.

.

Ron,

I went back to "old" technology and created a sub
procedure named auto_open and enabled the events here.
This runs when the user "uses" the template file. Thanks
for all your help!

Cindy
-----Original Message-----
This won't work for what I need to do because the path
length will be 0 because they won't save the file until
the data is verified and so the code on BeforeSave and
BeforeClose will never run.

What I really need & can't figure out is a way to run
code
when the template is being used because then I could
disableevents while in design mode, save the template and
close. When the user "uses" the template, the first code
that will run is "enableevents". The problem is I can't
figure out how to run this code when the template is
being "used". The "open" event doesn't work.

I'm sorry to take up your time and appreciate your help,
but if you don't have the time, don't worry about it.
THanks

Cindy

-----Original Message-----
Hi cindy

In all the events that you use this as first line

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
If Len(ThisWorkbook.Path) = 0 Then Exit Sub

' your code

End Sub


If you open the template the events will not work
because
the length
of the ThisWorkbook.Path = 0

As soon as you save the template as a excel file the
events are working because
you have a path (C:\test.xls or so)


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Ron,

I still don't know where to put the code to trigger it
to
run when the user does "file-new-selects the template".

Thanks,

Cindy
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open"
code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when
I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I
appreciate
all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi Ron

I'm a little confused. My code is in the
BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's
data
filled-
in and I need to start with a "blank" form - no
data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on
the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button
the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI
As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question -
is
there a
way to have the BeforeSave and BeforeClose
code
NOT
run?
What my code does it check that all required
data
is
filled-in. Now, in the design phase, I need
to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process
here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the
screen.

Thanks

Cindy


.



.



.



.



.

.

Glad you got it working

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message ...
Ron,

I went back to "old" technology and created a sub
procedure named auto_open and enabled the events here.
This runs when the user "uses" the template file. Thanks
for all your help!

Cindy
-----Original Message-----
This won't work for what I need to do because the path
length will be 0 because they won't save the file until
the data is verified and so the code on BeforeSave and
BeforeClose will never run.

What I really need & can't figure out is a way to run
code
when the template is being used because then I could
disableevents while in design mode, save the template and
close. When the user "uses" the template, the first code
that will run is "enableevents". The problem is I can't
figure out how to run this code when the template is
being "used". The "open" event doesn't work.

I'm sorry to take up your time and appreciate your help,
but if you don't have the time, don't worry about it.
THanks

Cindy

-----Original Message-----
Hi cindy

In all the events that you use this as first line

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As Boolean)
If Len(ThisWorkbook.Path) = 0 Then Exit Sub

' your code

End Sub


If you open the template the events will not work
because
the length
of the ThisWorkbook.Path = 0

As soon as you save the template as a excel file the
events are working because
you have a path (C:\test.xls or so)


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Ron,

I still don't know where to put the code to trigger it
to
run when the user does "file-new-selects the template".

Thanks,

Cindy
-----Original Message-----
If you use it in a template you can use this as first
line in the event

If Len(ThisWorkbook.Path) = 0 Then Exit Sub

If the template is not saved the path length = 0

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in message
...
Where would I put this code?

Since it's a "template", I can't get the "on open"
code
to
run because the user is not actually opening it, but
calling on the template to create a new file.

And where would I put the EnableEvents = False when
I
only
want to disable the events to save my changes?

Sorry this is getting too complicated. I
appreciate
all
your help.

Cindy
-----Original Message-----
Sorry I have not understand you
I am a Stupid Dutch guy<g

You can use this to disable all the events

Application.EnableEvents = False

restore it with

Application.EnableEvents = true


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi Ron

I'm a little confused. My code is in the
BeforeSave
event. What my problem is I can't save my design
changes
because the "BeforeSave" codes runs and want's
data
filled-
in and I need to start with a "blank" form - no
data.

Cindy
-----Original Message-----
Hi Cindy

Right click on the excel icon next to file on
the
menubar
choose view code

The ThisWorkbook is now active
paste the code there

Every time you press the save(or ctrl-s) button
the
Workbook_BeforeSave is
run and check the cells for you.
If not all the cells have a value you can't save


Private Sub Workbook_BeforeSave(ByVal SaveAsUI
As
Boolean, Cancel As Boolean)
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range
("A1:A6")
If Application.WorksheetFunction.CountA
(myrange) <
_
myrange.Cells.Count Then
Cancel = True
End If
End Sub



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Thanks Ron

It works. Let me ask you another question -
is
there a
way to have the BeforeSave and BeforeClose
code
NOT
run?
What my code does it check that all required
data
is
filled-in. Now, in the design phase, I need
to
save
design changes and code but the BeforeSave and
BeforeClose
code runs and won't allow me to save without
filling
in
required data. Any ideas?

Thanks

Cindy
-----Original Message-----
Hi Cindy

You can use

Cancel = true



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Cindy" wrote in
message
...
Hi

I have code that runs on the workbook
BeforeSave
event.
How do I "cancel" the actual save process
here?
Depending
on what the code returns, I want the save
process
cancelled and the workbook left on the
screen.

Thanks

Cindy


.



.



.



.



.

.