ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Run a macro if file is a template (https://www.excelbanter.com/excel-programming/413507-run-macro-if-file-template.html)

SLW612

Run a macro if file is a template
 
Hi,
I have created an order form template for my colleagues that automatically
opens a userform for order details when it the template is opened. However,
I want to disable the macro if the file has previously been opened and saved
by a colleague - basically, if the file is a template (.xlt), the macro
should run, but if it is a regular workbook (.xls) it shouldn't. I don't
want it to pop up every time we open a saved order form. I have tried the
following code but it's not working and I don't know why:

Sub Auto_Open()

If ThisWorkbook.Name = "*.xlt" Then
MsgBox "Template - macro will run"
Else
MsgBox "Not template - macro will not run"
End If

End Sub



I always get the "Not template" message - I have even added a line to put
ThisWorkbook.Name in a cell and the cell will record the ".xlt" extension so
I'm really confused.

Thanks in advance!

Bernie Deitrick

Run a macro if file is a template
 

If ThisWorkbook.Name Like "*.xlt" Then

HTH,
Bernie
MS Excel MVP


"SLW612" wrote in message
...
Hi,
I have created an order form template for my colleagues that automatically
opens a userform for order details when it the template is opened. However,
I want to disable the macro if the file has previously been opened and saved
by a colleague - basically, if the file is a template (.xlt), the macro
should run, but if it is a regular workbook (.xls) it shouldn't. I don't
want it to pop up every time we open a saved order form. I have tried the
following code but it's not working and I don't know why:

Sub Auto_Open()

If ThisWorkbook.Name = "*.xlt" Then
MsgBox "Template - macro will run"
Else
MsgBox "Not template - macro will not run"
End If

End Sub



I always get the "Not template" message - I have even added a line to put
ThisWorkbook.Name in a cell and the cell will record the ".xlt" extension so
I'm really confused.

Thanks in advance!




SLW612

Run a macro if file is a template
 
Fantastic! Many thanks

"Bernie Deitrick" wrote:


If ThisWorkbook.Name Like "*.xlt" Then

HTH,
Bernie
MS Excel MVP


"SLW612" wrote in message
...
Hi,
I have created an order form template for my colleagues that automatically
opens a userform for order details when it the template is opened. However,
I want to disable the macro if the file has previously been opened and saved
by a colleague - basically, if the file is a template (.xlt), the macro
should run, but if it is a regular workbook (.xls) it shouldn't. I don't
want it to pop up every time we open a saved order form. I have tried the
following code but it's not working and I don't know why:

Sub Auto_Open()

If ThisWorkbook.Name = "*.xlt" Then
MsgBox "Template - macro will run"
Else
MsgBox "Not template - macro will not run"
End If

End Sub



I always get the "Not template" message - I have even added a line to put
ThisWorkbook.Name in a cell and the cell will record the ".xlt" extension so
I'm really confused.

Thanks in advance!





Tom Ogilvy

Run a macro if file is a template
 
Just to add a thought.
I think most people test whether the workbook has a path. When a workbook
is created from a template, it won't have a path. when it has been saved, it
will.

--
Regards,
Tom Ogilvy



"SLW612" wrote:

Fantastic! Many thanks

"Bernie Deitrick" wrote:


If ThisWorkbook.Name Like "*.xlt" Then

HTH,
Bernie
MS Excel MVP


"SLW612" wrote in message
...
Hi,
I have created an order form template for my colleagues that automatically
opens a userform for order details when it the template is opened. However,
I want to disable the macro if the file has previously been opened and saved
by a colleague - basically, if the file is a template (.xlt), the macro
should run, but if it is a regular workbook (.xls) it shouldn't. I don't
want it to pop up every time we open a saved order form. I have tried the
following code but it's not working and I don't know why:

Sub Auto_Open()

If ThisWorkbook.Name = "*.xlt" Then
MsgBox "Template - macro will run"
Else
MsgBox "Not template - macro will not run"
End If

End Sub



I always get the "Not template" message - I have even added a line to put
ThisWorkbook.Name in a cell and the cell will record the ".xlt" extension so
I'm really confused.

Thanks in advance!





Bernie Deitrick

Run a macro if file is a template
 
Hey, Tom! Nice to see you in the groups again. Hope all is well.

Bernie


Just to add a thought.
I think most people test whether the workbook has a path. When a workbook
is created from a template, it won't have a path. when it has been saved, it
will.

--
Regards,
Tom Ogilvy




Tom Ogilvy

Run a macro if file is a template
 
Bernie,

thanks for the comment.

All is and has been well. Just cut down a bit due to other demands and have
done most of my "assisting" in Allexperts.

--
Regards,
Tom Ogilvy


"Bernie Deitrick" wrote:

Hey, Tom! Nice to see you in the groups again. Hope all is well.

Bernie


Just to add a thought.
I think most people test whether the workbook has a path. When a workbook
is created from a template, it won't have a path. when it has been saved, it
will.

--
Regards,
Tom Ogilvy





Bernie Deitrick

Run a macro if file is a template
 
Tom,

Is there an advantage to working within the AllExperts framework? It seems like the questions are
asked specifically of you, rather than the entire community...

Bernie


"Tom Ogilvy" wrote in message
...
Bernie,

thanks for the comment.

All is and has been well. Just cut down a bit due to other demands and have
done most of my "assisting" in Allexperts.

--
Regards,
Tom Ogilvy


"Bernie Deitrick" wrote:

Hey, Tom! Nice to see you in the groups again. Hope all is well.

Bernie


Just to add a thought.
I think most people test whether the workbook has a path. When a workbook
is created from a template, it won't have a path. when it has been saved, it
will.

--
Regards,
Tom Ogilvy







Tom Ogilvy

Run a macro if file is a template
 
Bernie,
That is the disadvantage. That and people will ask multiple people the same
question resulting in wasted effort since the people answering really can't
see that until days later if at all and not directly.

the creator approached me to be a contributor many many years ago when he
was starting it up, so I just stuck with it.

--
Regards,
Tom Ogilvy




"Bernie Deitrick" wrote:

Tom,

Is there an advantage to working within the AllExperts framework? It seems like the questions are
asked specifically of you, rather than the entire community...

Bernie


"Tom Ogilvy" wrote in message
...
Bernie,

thanks for the comment.

All is and has been well. Just cut down a bit due to other demands and have
done most of my "assisting" in Allexperts.

--
Regards,
Tom Ogilvy


"Bernie Deitrick" wrote:

Hey, Tom! Nice to see you in the groups again. Hope all is well.

Bernie


Just to add a thought.
I think most people test whether the workbook has a path. When a workbook
is created from a template, it won't have a path. when it has been saved, it
will.

--
Regards,
Tom Ogilvy








All times are GMT +1. The time now is 04:32 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com