COUNT= number of times opened?

[npacker]

Hi all,
Bear with me here. I have a template that when a user opens it, I have code that automatically does a save as to a different file name in a different folder. But the problem is, I don't want that code to run if the user then goes and opens that file later on. I only want it to run the first time they open the template. I thought maybe I could have it count the number of times it has been opened, and if it is equal to or greater than 1, then not run the code, but then I realized it might restart the count every time they opened that newly saved file every time.

Could I have it save the count to a cell in an invisible sheet, and the pull it from there every time?

I think that would work, but I don't know how to implement the count code on open. Please help!
Nate

 

[yee388]

what about a line like:

If ActiveWorkbook.Name <> "Template.xls" Then Exit Sub

So it'll skip the Open macro if it's not the template...

 

[Zack Barresse]

Could you use the user name? Write it to a value (cell, registry, etc) then check it upon open? If the current name is not equal to the saved name, run code, else don't run. ??

Here is a good example of getting different user name variables ...

http://www.vbaexpress.com/kb/getarticle.php?kb_id=234

Edit: The only problem with a name check with the original name is dependent on how susceptible the workbook is to name changes. If it will be Saved As at any point, or is an actual template file, I'd suggest another route. Possibly the user name route.

 

[Smitty]

How about test for the workbook name instead:

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
    <SPAN style="color:#00007F">If</SPAN> ActiveWorkbook.Name = "Template.xls" <SPAN style="color:#00007F">Then</SPAN>
        <SPAN style="color:#007F00">'   Run SaveAs code</SPAN>
    Else: <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

Smitty

 

[npacker]

That is a great idea, I didn't even think of that, that's perfect. I'll do that.
Thanks,
Nate