how can use VB to design one program that only allow other people onl
open the workbook 10 times, 11th time when he open the workbook the ms
shows "over the use limit, contact owner".

than

--
jinvicto
-----------------------------------------------------------------------
jinvictor's Profile: http://www.excelforum.com/member.php...fo&userid=3409
View this thread: http://www.excelforum.com/showthread.php?threadid=55304

Obviously you would need to maintain a count of how many times the workbook
had been opened by utilizing the Workbook_Open event and storing the value
in a defined name or hidden worksheet.

The challenge becomes trying to enforce the limitation or preventing the
user from trying to circumvent it. There isn't a good answer to that.

--
Regards,
Tom Ogilvy

"jinvictor" wrote
in message ...

how can use VB to design one program that only allow other people only
open the workbook 10 times, 11th time when he open the workbook the msg
shows "over the use limit, contact owner".

thanx


--
jinvictor
------------------------------------------------------------------------
jinvictor's Profile:
http://www.excelforum.com/member.php...o&userid=34099
View this thread: http://www.excelforum.com/showthread...hreadid=553047

The easiest thing to do would be to place an increment count on a very
hidden worksheet. E.g. Name the increment cell "Increment" on a sheet
named "Hidden", and initialize the cell value to 0. Then add this code
to your Workbook Open sub

Private Sub Workbook_Open()
Dim incRange As Range
Set incRange = Range("Increment")

Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange 10 Then
Application.DisplayAlerts = False
MsgBox "over the use limit, contact owner"
Me.Close
End If

End Sub


jinvictor wrote:
how can use VB to design one program that only allow other people only
open the workbook 10 times, 11th time when he open the workbook the msg
shows .

thanx


--
jinvictor
------------------------------------------------------------------------
jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099
View this thread: http://www.excelforum.com/showthread...hreadid=553047

One other thing. xlVeryHidden keeps the user away from the increment
value because he can't unhide the sheet using the Format - Sheets
menu. But Tom is right. An industrious user could get into your VB
code even if you password protect it. Although most end users are not
that knowledgeable.

If even novice users figure out your strategy though, they could just
make copies of the workbook and prior to the exhaustion of the use
number. You could perhaps get around that by using a date-time stamp
check instead of a count increment (i.e., let them use it for 2 weeks
after they open it the first time.) Full lockdown would require
something more sophisticated.

SteveM


SteveM wrote:
The easiest thing to do would be to place an increment count on a very
hidden worksheet. E.g. Name the increment cell "Increment" on a sheet
named "Hidden", and initialize the cell value to 0. Then add this code
to your Workbook Open sub

Private Sub Workbook_Open()
Dim incRange As Range
Set incRange = Range("Increment")

Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange 10 Then
Application.DisplayAlerts = False
MsgBox "over the use limit, contact owner"
Me.Close
End If

End Sub


jinvictor wrote:
how can use VB to design one program that only allow other people only
open the workbook 10 times, 11th time when he open the workbook the msg
shows .

thanx


--
jinvictor
------------------------------------------------------------------------
jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099
View this thread: http://www.excelforum.com/showthread...hreadid=553047

From another workbook, they could do

for each sh in Activeworkbook
sh.Visible = sh.xlSheetVisible
Next

so xlVeryHidden is barely better than just hiding the sheet for someone who
is willing to put in even a minimal amount of effort.

or

set rng = Activeworkbook.Names("Increment").RefersToRange
rng.Value = -1000000


Your misleading the OP in suggesting that he can limit use of his workbook.
If he is satisfied with using weak protection, then it probably isn't worth
the extra effort of using protection at all - obviously only my opinion

--
Regards,
Tom Ogilvy


"SteveM" wrote in message
ups.com...
One other thing. xlVeryHidden keeps the user away from the increment
value because he can't unhide the sheet using the Format - Sheets
menu. But Tom is right. An industrious user could get into your VB
code even if you password protect it. Although most end users are not
that knowledgeable.

If even novice users figure out your strategy though, they could just
make copies of the workbook and prior to the exhaustion of the use
number. You could perhaps get around that by using a date-time stamp
check instead of a count increment (i.e., let them use it for 2 weeks
after they open it the first time.) Full lockdown would require
something more sophisticated.

SteveM


SteveM wrote:
The easiest thing to do would be to place an increment count on a very
hidden worksheet. E.g. Name the increment cell "Increment" on a sheet
named "Hidden", and initialize the cell value to 0. Then add this code
to your Workbook Open sub

Private Sub Workbook_Open()
Dim incRange As Range
Set incRange = Range("Increment")

Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange 10 Then
Application.DisplayAlerts = False
MsgBox "over the use limit, contact owner"
Me.Close
End If

End Sub


jinvictor wrote:
how can use VB to design one program that only allow other people only
open the workbook 10 times, 11th time when he open the workbook the
msg
shows .

thanx


--
jinvictor

------------------------------------------------------------------------
jinvictor's Profile:
http://www.excelforum.com/member.php...o&userid=34099
View this thread:
http://www.excelforum.com/showthread...hreadid=553047

Tom,

My advice was contingent on who and how large his target market is. If
it is a handful of customers and he knows that they are not
sophisticated with Excel, well then yes, the weak protection may be
enough. If he plans on developing a universal add like @Risk, then
sure, he'd want to use a fail-safe protection strategy consistent
with the size of that community.

I'm guessing that if his target market is indeed that expansive, he
(and his team of developers) would be aware of the security
requirements and the implications of a less-than-lockdown approach.

SteveM


Tom Ogilvy wrote:
From another workbook, they could do

for each sh in Activeworkbook
sh.Visible = sh.xlSheetVisible
Next

so xlVeryHidden is barely better than just hiding the sheet for someone who
is willing to put in even a minimal amount of effort.

or

set rng = Activeworkbook.Names("Increment").RefersToRange
rng.Value = -1000000


Your misleading the OP in suggesting that he can limit use of his workbook.
If he is satisfied with using weak protection, then it probably isn't worth
the extra effort of using protection at all - obviously only my opinion

--
Regards,
Tom Ogilvy


"SteveM" wrote in message
ups.com...
One other thing. xlVeryHidden keeps the user away from the increment
value because he can't unhide the sheet using the Format - Sheets
menu. But Tom is right. An industrious user could get into your VB
code even if you password protect it. Although most end users are not
that knowledgeable.

If even novice users figure out your strategy though, they could just
make copies of the workbook and prior to the exhaustion of the use
number. You could perhaps get around that by using a date-time stamp
check instead of a count increment (i.e., let them use it for 2 weeks
after they open it the first time.) Full lockdown would require
something more sophisticated.

SteveM


SteveM wrote:
The easiest thing to do would be to place an increment count on a very
hidden worksheet. E.g. Name the increment cell "Increment" on a sheet
named "Hidden", and initialize the cell value to 0. Then add this code
to your Workbook Open sub

Private Sub Workbook_Open()
Dim incRange As Range
Set incRange = Range("Increment")

Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange 10 Then
Application.DisplayAlerts = False
MsgBox "over the use limit, contact owner"
Me.Close
End If

End Sub


jinvictor wrote:
how can use VB to design one program that only allow other people only
open the workbook 10 times, 11th time when he open the workbook the
msg
shows .

thanx


--
jinvictor

------------------------------------------------------------------------
jinvictor's Profile:
http://www.excelforum.com/member.php...o&userid=34099
View this thread:
http://www.excelforum.com/showthread...hreadid=553047

thanx a lot for all your time, its realy helpful. i only need the basic
one to stop some people in the workplace.
thanx again.


--
jinvictor
------------------------------------------------------------------------
jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099
View this thread: http://www.excelforum.com/showthread...hreadid=553047

if they use save as, even i set up they only can use the workbook 10
times, they still can use save as file for another 10 times, so on that
will never stop them to use it, what can i do with that?


SteveM Wrote:
Tom,

My advice was contingent on who and how large his target market is.
If
it is a handful of customers and he knows that they are not
sophisticated with Excel, well then yes, the weak protection may be
enough. If he plans on developing a universal add like @Risk, then
sure, he'd want to use a fail-safe protection strategy consistent
with the size of that community.

I'm guessing that if his target market is indeed that expansive, he
(and his team of developers) would be aware of the security
requirements and the implications of a less-than-lockdown approach.

SteveM


Tom Ogilvy wrote:
From another workbook, they could do

for each sh in Activeworkbook
sh.Visible = sh.xlSheetVisible
Next

so xlVeryHidden is barely better than just hiding the sheet for
someone who
is willing to put in even a minimal amount of effort.

or

set rng = Activeworkbook.Names("Increment").RefersToRange
rng.Value = -1000000


Your misleading the OP in suggesting that he can limit use of his
workbook.
If he is satisfied with using weak protection, then it probably isn't
worth
the extra effort of using protection at all - obviously only my
opinion

--
Regards,
Tom Ogilvy


"SteveM" wrote in message
ups.com...
One other thing. xlVeryHidden keeps the user away from the
increment
value because he can't unhide the sheet using the Format - Sheets
menu. But Tom is right. An industrious user could get into your
VB
code even if you password protect it. Although most end users are
not
that knowledgeable.

If even novice users figure out your strategy though, they could
just
make copies of the workbook and prior to the exhaustion of the use
number. You could perhaps get around that by using a date-time
stamp
check instead of a count increment (i.e., let them use it for 2
weeks
after they open it the first time.) Full lockdown would require
something more sophisticated.

SteveM


SteveM wrote:
The easiest thing to do would be to place an increment count on a
very
hidden worksheet. E.g. Name the increment cell "Increment" on a
sheet
named "Hidden", and initialize the cell value to 0. Then add
this code
to your Workbook Open sub

Private Sub Workbook_Open()
Dim incRange As Range
Set incRange = Range("Increment")

Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange 10 Then
Application.DisplayAlerts = False
MsgBox "over the use limit, contact owner"
Me.Close
End If

End Sub


jinvictor wrote:
how can use VB to design one program that only allow other
people only
open the workbook 10 times, 11th time when he open the workbook
the
msg
shows .

thanx


--
jinvictor


------------------------------------------------------------------------
jinvictor's Profile:
http://www.excelforum.com/member.php...o&userid=34099
View this thread:
http://www.excelforum.com/showthread...hreadid=553047



--
jinvictor
------------------------------------------------------------------------
jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099
View this thread: http://www.excelforum.com/showthread...hreadid=553047

if they use save as, even i set up they only can use the workbook 10
times, they still can use save as file for another 10 times, so on that
will never stop them to use it, what can i do with that?


SteveM Wrote:
Tom,

My advice was contingent on who and how large his target market is.
If
it is a handful of customers and he knows that they are not
sophisticated with Excel, well then yes, the weak protection may be
enough. If he plans on developing a universal add like @Risk, then
sure, he'd want to use a fail-safe protection strategy consistent
with the size of that community.

I'm guessing that if his target market is indeed that expansive, he
(and his team of developers) would be aware of the security
requirements and the implications of a less-than-lockdown approach.

SteveM


Tom Ogilvy wrote:
From another workbook, they could do

for each sh in Activeworkbook
sh.Visible = sh.xlSheetVisible
Next

so xlVeryHidden is barely better than just hiding the sheet for
someone who
is willing to put in even a minimal amount of effort.

or

set rng = Activeworkbook.Names("Increment").RefersToRange
rng.Value = -1000000


Your misleading the OP in suggesting that he can limit use of his
workbook.
If he is satisfied with using weak protection, then it probably isn't
worth
the extra effort of using protection at all - obviously only my
opinion

--
Regards,
Tom Ogilvy


"SteveM" wrote in message
ups.com...
One other thing. xlVeryHidden keeps the user away from the
increment
value because he can't unhide the sheet using the Format - Sheets
menu. But Tom is right. An industrious user could get into your
VB
code even if you password protect it. Although most end users are
not
that knowledgeable.

If even novice users figure out your strategy though, they could
just
make copies of the workbook and prior to the exhaustion of the use
number. You could perhaps get around that by using a date-time
stamp
check instead of a count increment (i.e., let them use it for 2
weeks
after they open it the first time.) Full lockdown would require
something more sophisticated.

SteveM


SteveM wrote:
The easiest thing to do would be to place an increment count on a
very
hidden worksheet. E.g. Name the increment cell "Increment" on a
sheet
named "Hidden", and initialize the cell value to 0. Then add
this code
to your Workbook Open sub

Private Sub Workbook_Open()
Dim incRange As Range
Set incRange = Range("Increment")

Sheets("hidden").Visible = xlVeryHidden
incRange = incRange + 1
Me.Save
If incRange 10 Then
Application.DisplayAlerts = False
MsgBox "over the use limit, contact owner"
Me.Close
End If

End Sub


jinvictor wrote:
how can use VB to design one program that only allow other
people only
open the workbook 10 times, 11th time when he open the workbook
the
msg
shows .

thanx


--
jinvictor


------------------------------------------------------------------------
jinvictor's Profile:
http://www.excelforum.com/member.php...o&userid=34099
View this thread:
http://www.excelforum.com/showthread...hreadid=553047



--
jinvictor
------------------------------------------------------------------------
jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099
View this thread: http://www.excelforum.com/showthread...hreadid=553047