PC Review


Reply
Thread Tools Rate Thread

Activating problem

 
 
Jasoni
Guest
Posts: n/a
 
      3rd Oct 2008
I might have too complicated idea to secure my workbooks but.......

I used to have security macro in each of my workbooks which tested
harddrives serialnumber.
Chancing and adding a computer makes it too hard work to edit all of those
workbooks to add new serials.
So I made an external sec.xls file which do the trick.

1. When a calculation workbook (auto-open macro) is opened it opens sec.xls
in the very same folder where it was started and adds a workbooks name
inside sec.xls to A6 as string, which calls it. So it can come back to
original workbook.
2. According to sec.xls (auto-open macro) calculation it should compare it
calculation workbook is allowed to go on opening.
3. If allowed sec.xls should place "OK" in calculation workbooks H1,
otherwise "NO"

Everything went just fine but I can't activate my workbook which calls
sec.xls.
So OK is placed in sec.xls instead of the original workbook.

Is it ok using that calling workbook as a string in A6?

Any ideas how to solve this or even make it any simplier.
I am not familiar with the public variables if it's any solution.

frombook = Sheets("id").Range("A6").Value
Workbooks(frombook).Activate

This is the line it accepts but won't work as it should.



 
Reply With Quote
 
 
 
 
Dave Peterson
Guest
Posts: n/a
 
      3rd Oct 2008
What do you put in H6?

Do you use just the name of the file or do you include the entire path?
You only want the name--not the path.

Do you include the extension of the file in H6?
Make sure you include the extension.


Jasoni wrote:
>
> I might have too complicated idea to secure my workbooks but.......
>
> I used to have security macro in each of my workbooks which tested
> harddrives serialnumber.
> Chancing and adding a computer makes it too hard work to edit all of those
> workbooks to add new serials.
> So I made an external sec.xls file which do the trick.
>
> 1. When a calculation workbook (auto-open macro) is opened it opens sec.xls
> in the very same folder where it was started and adds a workbooks name
> inside sec.xls to A6 as string, which calls it. So it can come back to
> original workbook.
> 2. According to sec.xls (auto-open macro) calculation it should compare it
> calculation workbook is allowed to go on opening.
> 3. If allowed sec.xls should place "OK" in calculation workbooks H1,
> otherwise "NO"
>
> Everything went just fine but I can't activate my workbook which calls
> sec.xls.
> So OK is placed in sec.xls instead of the original workbook.
>
> Is it ok using that calling workbook as a string in A6?
>
> Any ideas how to solve this or even make it any simplier.
> I am not familiar with the public variables if it's any solution.
>
> frombook = Sheets("id").Range("A6").Value
> Workbooks(frombook).Activate
>
> This is the line it accepts but won't work as it should.


--

Dave Peterson
 
Reply With Quote
 
Jasoni
Guest
Posts: n/a
 
      6th Oct 2008
Yes, to both of the questions.
For example there is in a A6: text string "test.xls"


"Dave Peterson" <(E-Mail Removed)> kirjoitti
viestissä:(E-Mail Removed)...
> What do you put in H6?
>
> Do you use just the name of the file or do you include the entire path?
> You only want the name--not the path.
>
> Do you include the extension of the file in H6?
> Make sure you include the extension.
>
>
> Jasoni wrote:
>>
>> I might have too complicated idea to secure my workbooks but.......
>>
>> I used to have security macro in each of my workbooks which tested
>> harddrives serialnumber.
>> Chancing and adding a computer makes it too hard work to edit all of
>> those
>> workbooks to add new serials.
>> So I made an external sec.xls file which do the trick.
>>
>> 1. When a calculation workbook (auto-open macro) is opened it opens
>> sec.xls
>> in the very same folder where it was started and adds a workbooks name
>> inside sec.xls to A6 as string, which calls it. So it can come back to
>> original workbook.
>> 2. According to sec.xls (auto-open macro) calculation it should compare
>> it
>> calculation workbook is allowed to go on opening.
>> 3. If allowed sec.xls should place "OK" in calculation workbooks H1,
>> otherwise "NO"
>>
>> Everything went just fine but I can't activate my workbook which calls
>> sec.xls.
>> So OK is placed in sec.xls instead of the original workbook.
>>
>> Is it ok using that calling workbook as a string in A6?
>>
>> Any ideas how to solve this or even make it any simplier.
>> I am not familiar with the public variables if it's any solution.
>>
>> frombook = Sheets("id").Range("A6").Value
>> Workbooks(frombook).Activate
>>
>> This is the line it accepts but won't work as it should.

>
> --
>
> Dave Peterson



 
Reply With Quote
 
Dave Peterson
Guest
Posts: n/a
 
      6th Oct 2008
If test.xls isn't open, it'll cause a problem.

And you're positive that it's spelled correctly???


Jasoni wrote:
>
> Yes, to both of the questions.
> For example there is in a A6: text string "test.xls"
>
> "Dave Peterson" <(E-Mail Removed)> kirjoitti
> viestissä:(E-Mail Removed)...
> > What do you put in H6?
> >
> > Do you use just the name of the file or do you include the entire path?
> > You only want the name--not the path.
> >
> > Do you include the extension of the file in H6?
> > Make sure you include the extension.
> >
> >
> > Jasoni wrote:
> >>
> >> I might have too complicated idea to secure my workbooks but.......
> >>
> >> I used to have security macro in each of my workbooks which tested
> >> harddrives serialnumber.
> >> Chancing and adding a computer makes it too hard work to edit all of
> >> those
> >> workbooks to add new serials.
> >> So I made an external sec.xls file which do the trick.
> >>
> >> 1. When a calculation workbook (auto-open macro) is opened it opens
> >> sec.xls
> >> in the very same folder where it was started and adds a workbooks name
> >> inside sec.xls to A6 as string, which calls it. So it can come back to
> >> original workbook.
> >> 2. According to sec.xls (auto-open macro) calculation it should compare
> >> it
> >> calculation workbook is allowed to go on opening.
> >> 3. If allowed sec.xls should place "OK" in calculation workbooks H1,
> >> otherwise "NO"
> >>
> >> Everything went just fine but I can't activate my workbook which calls
> >> sec.xls.
> >> So OK is placed in sec.xls instead of the original workbook.
> >>
> >> Is it ok using that calling workbook as a string in A6?
> >>
> >> Any ideas how to solve this or even make it any simplier.
> >> I am not familiar with the public variables if it's any solution.
> >>
> >> frombook = Sheets("id").Range("A6").Value
> >> Workbooks(frombook).Activate
> >>
> >> This is the line it accepts but won't work as it should.

> >
> > --
> >
> > Dave Peterson


--

Dave Peterson
 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Problem activating Outlook w/ BCM Prop HQ Microsoft Outlook BCM 0 2nd Oct 2008 05:43 AM
XP Activating and Update problem CC Windows XP General 1 29th Jul 2008 09:33 PM
Activating problem, =?Utf-8?B?Sm9jaGVt?= Windows Vista Installation 6 27th Sep 2006 07:33 AM
Re: Problem Activating =?Utf-8?B?R2Vvcmdl?= Windows XP Setup 1 1st Nov 2005 10:56 PM
Activating Windows, PROBLEM =?Utf-8?B?SmF5IEhpZ2dpbnM=?= Windows XP Help 4 20th Apr 2005 08:29 AM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 09:45 PM.