after a certain date(date will provided by the user) a password protected MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a certain
date(date will provided by the user) a password protected MS excel file will
be destroyed in any form ??? (even if the 2nd line user copies (n number of
copies) the file to their own PCs also from our PC).I require this option for
some copyright / licence issue... Can u please help me?

Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a certain
date(date will provided by the user) a password protected MS excel file will
be destroyed in any form ??? (even if the 2nd line user copies (n number of
copies) the file to their own PCs also from our PC).I require this option for
some copyright / licence issue... Can u please help me?

All they have to do is set their system date back.

See this:

http://www.cpearson.com/Excel/workbooktimebomb.aspx

--
Biff
Microsoft Excel MVP


"Jacob Skaria" wrote in message
...
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password
protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected
MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a
certain
date(date will provided by the user) a password protected MS excel file
will
be destroyed in any form ??? (even if the 2nd line user copies (n number
of
copies) the file to their own PCs also from our PC).I require this option
for
some copyright / licence issue... Can u please help me?

What will be result if the user choses to disable macros?

"T. Valko" wrote:

All they have to do is set their system date back.

See this:

http://www.cpearson.com/Excel/workbooktimebomb.aspx

--
Biff
Microsoft Excel MVP


"Jacob Skaria" wrote in message
...
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password
protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected
MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a
certain
date(date will provided by the user) a password protected MS excel file
will
be destroyed in any form ??? (even if the 2nd line user copies (n number
of
copies) the file to their own PCs also from our PC).I require this option
for
some copyright / licence issue... Can u please help me?

No expiry date!

--
Biff
Microsoft Excel MVP


"Sheeloo" <Click above to get my email id wrote in message
...
What will be result if the user choses to disable macros?

"T. Valko" wrote:

All they have to do is set their system date back.

See this:

http://www.cpearson.com/Excel/workbooktimebomb.aspx

--
Biff
Microsoft Excel MVP


"Jacob Skaria" wrote in message
...
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password
protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password
protected
MS
excel file will not open with valid password OR the data of the said
file
will be erased OR file will be corrupted .In one sentence , after a
certain
date(date will provided by the user) a password protected MS excel
file
will
be destroyed in any form ??? (even if the 2nd line user copies (n
number
of
copies) the file to their own PCs also from our PC).I require this
option
for
some copyright / licence issue... Can u please help me?

Just a clarification.

On disable macro: Cant the user have some functionalities controlled by
scripts. This needs to be enabled only from Workbook_Open(); to make sure
that the user always enables the macros.

On changing dates: In Excel the user can record the last open Date and Time
to VBE.CodePanes of the workbook itself and check aganist that during every
Workbook_Open();

Appreciate your thoughts.........


"Sheeloo" wrote:

What will be result if the user choses to disable macros?

"T. Valko" wrote:

All they have to do is set their system date back.

See this:

http://www.cpearson.com/Excel/workbooktimebomb.aspx

--
Biff
Microsoft Excel MVP


"Jacob Skaria" wrote in message
...
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password
protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected
MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a
certain
date(date will provided by the user) a password protected MS excel file
will
be destroyed in any form ??? (even if the 2nd line user copies (n number
of
copies) the file to their own PCs also from our PC).I require this option
for
some copyright / licence issue... Can u please help me?

No ,

it is not working...!!!!!!

I've given 11 march 2009

but it is openning......!!!!!!

one thing , I want to inform that here in my office by default MS Excel
Macro Security is 'VERY HIGH'.....

is this creating the problem?

*** how to give different password in MS Excel VB editor?



"T. Valko" wrote:

All they have to do is set their system date back.

See this:

http://www.cpearson.com/Excel/workbooktimebomb.aspx

--
Biff
Microsoft Excel MVP


"Jacob Skaria" wrote in message
...
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password
protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected
MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a
certain
date(date will provided by the user) a password protected MS excel file
will
be destroyed in any form ??? (even if the 2nd line user copies (n number
of
copies) the file to their own PCs also from our PC).I require this option
for
some copyright / licence issue... Can u please help me?

Since 11 March is not greater than today, it is supposed to open. Change
the expire date to yesterday.

Som wrote:

No ,

it is not working...!!!!!!

I've given 11 march 2009

but it is openning......!!!!!!

one thing , I want to inform that here in my office by default MS Excel
Macro Security is 'VERY HIGH'.....

is this creating the problem?

*** how to give different password in MS Excel VB editor?



"T. Valko" wrote:


All they have to do is set their system date back.

See this:

http://www.cpearson.com/Excel/workbooktimebomb.aspx

--
Biff
Microsoft Excel MVP


"Jacob Skaria" wrote in message
...

Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password
protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:


after a certain date(date will provided by the user) a password protected
MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a
certain
date(date will provided by the user) a password protected MS excel file
will
be destroyed in any form ??? (even if the 2nd line user copies (n number
of
copies) the file to their own PCs also from our PC).I require this option
for
some copyright / licence issue... Can u please help me?

Jacob Skaria wrote:
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a certain
date(date will provided by the user) a password protected MS excel file will
be destroyed in any form ??? (even if the 2nd line user copies (n number of
copies) the file to their own PCs also from our PC).I require this option for
some copyright / licence issue... Can u please help me?

I have a suspicion that if a user were to open the file in
OpenOffice.Org's scalc program the macro would not work. I haven't tried
this particular approach, but I have been able to view protected VBA
code in Excel worksheets opened with scalc.

Excel's password protection is pretty weak.

Bill

no it failed again in another PC....

because by default in my company , the macro level set very high... so it is
not running in other PCs

msg comnig -- " Macros are disabled because the security level is set very
high. To run the macros , change the security level to a lower setting and
verify the macros are signed & trusted"

, now what to do ??

i cann't change all PC s macro security setting of client location....

so i have to do the job keeping in my mind that " macro security will be
high "

now pls advise



"Som" wrote:

my new code--------


===============================================+


Private Sub Workbook_Open()
MsgBox "Ok"
MsgBox DateDiff("d", "10/Mar/2009", Date)
If DateDiff("d", "10/Mar/2009", Date) 1 Then
MsgBox "Ok1"
Application.ActiveWorkbook.Close
End If
MsgBox "Ok2"
End Sub

==================================================

it is working ....... it should be greater than not less than !!!!!!!!!



my mail id is

can u pls send me atest mail , so that i can send u the file & screenshots of the error


"Bill Sharpe" wrote:

Jacob Skaria wrote:
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a certain
date(date will provided by the user) a password protected MS excel file will
be destroyed in any form ??? (even if the 2nd line user copies (n number of
copies) the file to their own PCs also from our PC).I require this option for
some copyright / licence issue... Can u please help me?

I have a suspicion that if a user were to open the file in
OpenOffice.Org's scalc program the macro would not work. I haven't tried
this particular approach, but I have been able to view protected VBA
code in Excel worksheets opened with scalc.

Excel's password protection is pretty weak.

Bill

can u give me a code which will delete the excel file permanently if somebody
tries to open the file after the specified date ?
how to protect the code in the MS VB editor for macro , so that nobody can
see the code before expiry date / deletion date.

"Som" wrote:

no it failed again in another PC....

because by default in my company , the macro level set very high... so it is
not running in other PCs

msg comnig -- " Macros are disabled because the security level is set very
high. To run the macros , change the security level to a lower setting and
verify the macros are signed & trusted"

, now what to do ??

i cann't change all PC s macro security setting of client location....

so i have to do the job keeping in my mind that " macro security will be
high "

now pls advise



"Som" wrote:

my new code--------


===============================================+


Private Sub Workbook_Open()
MsgBox "Ok"
MsgBox DateDiff("d", "10/Mar/2009", Date)
If DateDiff("d", "10/Mar/2009", Date) 1 Then
MsgBox "Ok1"
Application.ActiveWorkbook.Close
End If
MsgBox "Ok2"
End Sub

==================================================

it is working ....... it should be greater than not less than !!!!!!!!!



my mail id is

can u pls send me atest mail , so that i can send u the file & screenshots of the error


"Bill Sharpe" wrote:

Jacob Skaria wrote:
Hi Som

You need write a piece of code. From the menu go to
Tools--Macro--Visual Basic Editor--
Select Worksheet and copy the below code

Private Sub Workbook_Open()
If DateDiff("d","12/Mar/2009",Date) < -1 Then
Application.ActiveWorkbook.Close
End If
End Sub

This will only allow the workbook to be used upto Mar 12th. Password protect
the Visual Basic Editor before you distribute.

Jacob Skaria
(If this post is helpful please click Yes)

"Som" wrote:

after a certain date(date will provided by the user) a password protected MS
excel file will not open with valid password OR the data of the said file
will be erased OR file will be corrupted .In one sentence , after a certain
date(date will provided by the user) a password protected MS excel file will
be destroyed in any form ??? (even if the 2nd line user copies (n number of
copies) the file to their own PCs also from our PC).I require this option for
some copyright / licence issue... Can u please help me?

I have a suspicion that if a user were to open the file in
OpenOffice.Org's scalc program the macro would not work. I haven't tried
this particular approach, but I have been able to view protected VBA
code in Excel worksheets opened with scalc.

Excel's password protection is pretty weak.

Bill

Hi Som

On your query on how to protect macro
User Tools--VBA Properties--Protection to protect the macro

If macro security is by default set to high; then there is no point trying
out with macros.

If this post helps click Yes
-------------
Jacob Skaria