PC Review


Reply
Thread Tools Rate Thread

Date Validety on a file

 
 
Vikky
Guest
Posts: n/a
 
      31st Jul 2006
Hi experts;

I m using excel 2002.
Is it possible to give date vaildety to a excel file after that date
when anybody open that file excel would give Msg like " can not open
file. validety expired".

Thank you.

Regards;

Vikky

 
Reply With Quote
 
 
 
 
Bob Phillips
Guest
Posts: n/a
 
      31st Jul 2006
You could do something like

Private Sub Workbook_Open()
If Date > DateValue("12-Mar-2006") Then
MsgBox "Cannot open - expired"
ThisWorkbook.Close savechanges:=False
End If
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

but a user can circumvent it by just disabling macros.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Vikky" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi experts;
>
> I m using excel 2002.
> Is it possible to give date vaildety to a excel file after that date
> when anybody open that file excel would give Msg like " can not open
> file. validety expired".
>
> Thank you.
>
> Regards;
>
> Vikky
>



 
Reply With Quote
 
Vikky
Guest
Posts: n/a
 
      31st Jul 2006
Thank you Bob for Replying.

I opened File,and pasted the code in view code, in all three sheets
code. But this is not giving desired result.

can you help me out, where i'm doing wrong.

Regards;

Vikky


Bob Phillips wrote:
> You could do something like
>
> Private Sub Workbook_Open()
> If Date > DateValue("12-Mar-2006") Then
> MsgBox "Cannot open - expired"
> ThisWorkbook.Close savechanges:=False
> End If
> End Sub
>
> 'This is workbook event code.
> 'To input this code, right click on the Excel icon on the worksheet
> '(or next to the File menu if you maximise your workbooks),
> 'select View Code from the menu, and paste the code
>
> but a user can circumvent it by just disabling macros.
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with gmail if mailing direct)
>
> "Vikky" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Hi experts;
> >
> > I m using excel 2002.
> > Is it possible to give date vaildety to a excel file after that date
> > when anybody open that file excel would give Msg like " can not open
> > file. validety expired".
> >
> > Thank you.
> >
> > Regards;
> >
> > Vikky
> >


 
Reply With Quote
 
Harald Staff
Guest
Posts: n/a
 
      31st Jul 2006
Hi Vikky

Workbook_open, and other workbook related events, goes in the ThisWorkbook
module, no in sheets' modules.

HTH. Best wishes Harald

"Vikky" <(E-Mail Removed)> skrev i melding
news:(E-Mail Removed)...
> Thank you Bob for Replying.
>
> I opened File,and pasted the code in view code, in all three sheets
> code. But this is not giving desired result.
>
> can you help me out, where i'm doing wrong.
>
> Regards;
>
> Vikky
>
>
> Bob Phillips wrote:
> > You could do something like
> >
> > Private Sub Workbook_Open()
> > If Date > DateValue("12-Mar-2006") Then
> > MsgBox "Cannot open - expired"
> > ThisWorkbook.Close savechanges:=False
> > End If
> > End Sub
> >
> > 'This is workbook event code.
> > 'To input this code, right click on the Excel icon on the worksheet
> > '(or next to the File menu if you maximise your workbooks),
> > 'select View Code from the menu, and paste the code
> >
> > but a user can circumvent it by just disabling macros.
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (replace somewhere in email address with gmail if mailing direct)
> >
> > "Vikky" <(E-Mail Removed)> wrote in message
> > news:(E-Mail Removed)...
> > > Hi experts;
> > >
> > > I m using excel 2002.
> > > Is it possible to give date vaildety to a excel file after that date
> > > when anybody open that file excel would give Msg like " can not open
> > > file. validety expired".
> > >
> > > Thank you.
> > >
> > > Regards;
> > >
> > > Vikky
> > >

>



 
Reply With Quote
 
Bob Phillips
Guest
Posts: n/a
 
      31st Jul 2006
Vikky,

I gave precise instruction to get to the correct code module.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Vikky" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Thank you Bob for Replying.
>
> I opened File,and pasted the code in view code, in all three sheets
> code. But this is not giving desired result.
>
> can you help me out, where i'm doing wrong.
>
> Regards;
>
> Vikky
>
>
> Bob Phillips wrote:
> > You could do something like
> >
> > Private Sub Workbook_Open()
> > If Date > DateValue("12-Mar-2006") Then
> > MsgBox "Cannot open - expired"
> > ThisWorkbook.Close savechanges:=False
> > End If
> > End Sub
> >
> > 'This is workbook event code.
> > 'To input this code, right click on the Excel icon on the worksheet
> > '(or next to the File menu if you maximise your workbooks),
> > 'select View Code from the menu, and paste the code
> >
> > but a user can circumvent it by just disabling macros.
> >
> > --
> > HTH
> >
> > Bob Phillips
> >
> > (replace somewhere in email address with gmail if mailing direct)
> >
> > "Vikky" <(E-Mail Removed)> wrote in message
> > news:(E-Mail Removed)...
> > > Hi experts;
> > >
> > > I m using excel 2002.
> > > Is it possible to give date vaildety to a excel file after that date
> > > when anybody open that file excel would give Msg like " can not open
> > > file. validety expired".
> > >
> > > Thank you.
> > >
> > > Regards;
> > >
> > > Vikky
> > >

>



 
Reply With Quote
 
Vikky
Guest
Posts: n/a
 
      31st Jul 2006
Hi experts;

Thank you for help.

Regards;

Vikky


Harald Staff wrote:
> Hi Vikky
>
> Workbook_open, and other workbook related events, goes in the ThisWorkbook
> module, no in sheets' modules.
>
> HTH. Best wishes Harald
>
> "Vikky" <(E-Mail Removed)> skrev i melding
> news:(E-Mail Removed)...
> > Thank you Bob for Replying.
> >
> > I opened File,and pasted the code in view code, in all three sheets
> > code. But this is not giving desired result.
> >
> > can you help me out, where i'm doing wrong.
> >
> > Regards;
> >
> > Vikky
> >
> >
> > Bob Phillips wrote:
> > > You could do something like
> > >
> > > Private Sub Workbook_Open()
> > > If Date > DateValue("12-Mar-2006") Then
> > > MsgBox "Cannot open - expired"
> > > ThisWorkbook.Close savechanges:=False
> > > End If
> > > End Sub
> > >
> > > 'This is workbook event code.
> > > 'To input this code, right click on the Excel icon on the worksheet
> > > '(or next to the File menu if you maximise your workbooks),
> > > 'select View Code from the menu, and paste the code
> > >
> > > but a user can circumvent it by just disabling macros.
> > >
> > > --
> > > HTH
> > >
> > > Bob Phillips
> > >
> > > (replace somewhere in email address with gmail if mailing direct)
> > >
> > > "Vikky" <(E-Mail Removed)> wrote in message
> > > news:(E-Mail Removed)...
> > > > Hi experts;
> > > >
> > > > I m using excel 2002.
> > > > Is it possible to give date vaildety to a excel file after that date
> > > > when anybody open that file excel would give Msg like " can not open
> > > > file. validety expired".
> > > >
> > > > Thank you.
> > > >
> > > > Regards;
> > > >
> > > > Vikky
> > > >

> >


 
Reply With Quote
 
Vikky
Guest
Posts: n/a
 
      31st Jul 2006
Hi;

One more Question;

I've made a file with n No. of formulas.
Can we disable the formula function after a particuler date.

Thanks.

Regards;

Vikky

Vikky wrote:
> Hi experts;
>
> Thank you for help.
>
> Regards;
>
> Vikky
>
>
> Harald Staff wrote:
> > Hi Vikky
> >
> > Workbook_open, and other workbook related events, goes in the ThisWorkbook
> > module, no in sheets' modules.
> >
> > HTH. Best wishes Harald
> >
> > "Vikky" <(E-Mail Removed)> skrev i melding
> > news:(E-Mail Removed)...
> > > Thank you Bob for Replying.
> > >
> > > I opened File,and pasted the code in view code, in all three sheets
> > > code. But this is not giving desired result.
> > >
> > > can you help me out, where i'm doing wrong.
> > >
> > > Regards;
> > >
> > > Vikky
> > >
> > >
> > > Bob Phillips wrote:
> > > > You could do something like
> > > >
> > > > Private Sub Workbook_Open()
> > > > If Date > DateValue("12-Mar-2006") Then
> > > > MsgBox "Cannot open - expired"
> > > > ThisWorkbook.Close savechanges:=False
> > > > End If
> > > > End Sub
> > > >
> > > > 'This is workbook event code.
> > > > 'To input this code, right click on the Excel icon on the worksheet
> > > > '(or next to the File menu if you maximise your workbooks),
> > > > 'select View Code from the menu, and paste the code
> > > >
> > > > but a user can circumvent it by just disabling macros.
> > > >
> > > > --
> > > > HTH
> > > >
> > > > Bob Phillips
> > > >
> > > > (replace somewhere in email address with gmail if mailing direct)
> > > >
> > > > "Vikky" <(E-Mail Removed)> wrote in message
> > > > news:(E-Mail Removed)...
> > > > > Hi experts;
> > > > >
> > > > > I m using excel 2002.
> > > > > Is it possible to give date vaildety to a excel file after that date
> > > > > when anybody open that file excel would give Msg like " can not open
> > > > > file. validety expired".
> > > > >
> > > > > Thank you.
> > > > >
> > > > > Regards;
> > > > >
> > > > > Vikky
> > > > >
> > >


 
Reply With Quote
 
Harald Staff
Guest
Posts: n/a
 
      31st Jul 2006
You can make your formulas check the date
=IF(TODAY()<DATE(2006,8,8),SUM(A1:A100),"too late")
or you can create a macro that destroys stuff if the date is later than some
day.

But what you really ask is "can Excel protect my work" and the answer is no
way. You can keep unskilled users away from your secrets, but that's about
it. Excel protection is to protect against accidents, not to protect
content.

HTH. Best wishes Harald

"Vikky" <(E-Mail Removed)> skrev i melding
news:(E-Mail Removed)...
> Hi;
>
> One more Question;
>
> I've made a file with n No. of formulas.
> Can we disable the formula function after a particuler date.
>
> Thanks.
>
> Regards;
>
> Vikky
>
> Vikky wrote:
> > Hi experts;
> >
> > Thank you for help.
> >
> > Regards;
> >
> > Vikky
> >
> >
> > Harald Staff wrote:
> > > Hi Vikky
> > >
> > > Workbook_open, and other workbook related events, goes in the

ThisWorkbook
> > > module, no in sheets' modules.
> > >
> > > HTH. Best wishes Harald
> > >
> > > "Vikky" <(E-Mail Removed)> skrev i melding
> > > news:(E-Mail Removed)...
> > > > Thank you Bob for Replying.
> > > >
> > > > I opened File,and pasted the code in view code, in all three sheets
> > > > code. But this is not giving desired result.
> > > >
> > > > can you help me out, where i'm doing wrong.
> > > >
> > > > Regards;
> > > >
> > > > Vikky
> > > >
> > > >
> > > > Bob Phillips wrote:
> > > > > You could do something like
> > > > >
> > > > > Private Sub Workbook_Open()
> > > > > If Date > DateValue("12-Mar-2006") Then
> > > > > MsgBox "Cannot open - expired"
> > > > > ThisWorkbook.Close savechanges:=False
> > > > > End If
> > > > > End Sub
> > > > >
> > > > > 'This is workbook event code.
> > > > > 'To input this code, right click on the Excel icon on the

worksheet
> > > > > '(or next to the File menu if you maximise your workbooks),
> > > > > 'select View Code from the menu, and paste the code
> > > > >
> > > > > but a user can circumvent it by just disabling macros.
> > > > >
> > > > > --
> > > > > HTH
> > > > >
> > > > > Bob Phillips
> > > > >
> > > > > (replace somewhere in email address with gmail if mailing direct)
> > > > >
> > > > > "Vikky" <(E-Mail Removed)> wrote in message
> > > > > news:(E-Mail Removed)...
> > > > > > Hi experts;
> > > > > >
> > > > > > I m using excel 2002.
> > > > > > Is it possible to give date vaildety to a excel file after that

date
> > > > > > when anybody open that file excel would give Msg like " can not

open
> > > > > > file. validety expired".
> > > > > >
> > > > > > Thank you.
> > > > > >
> > > > > > Regards;
> > > > > >
> > > > > > Vikky
> > > > > >
> > > >

>



 
Reply With Quote
 
Vikky
Guest
Posts: n/a
 
      31st Jul 2006
Thank you Harald for your support.

Regrds;

Vikky

Harald Staff wrote:
> You can make your formulas check the date
> =IF(TODAY()<DATE(2006,8,8),SUM(A1:A100),"too late")
> or you can create a macro that destroys stuff if the date is later than some
> day.
>
> But what you really ask is "can Excel protect my work" and the answer is no
> way. You can keep unskilled users away from your secrets, but that's about
> it. Excel protection is to protect against accidents, not to protect
> content.
>
> HTH. Best wishes Harald
>
> "Vikky" <(E-Mail Removed)> skrev i melding
> news:(E-Mail Removed)...
> > Hi;
> >
> > One more Question;
> >
> > I've made a file with n No. of formulas.
> > Can we disable the formula function after a particuler date.
> >
> > Thanks.
> >
> > Regards;
> >
> > Vikky
> >
> > Vikky wrote:
> > > Hi experts;
> > >
> > > Thank you for help.
> > >
> > > Regards;
> > >
> > > Vikky
> > >
> > >
> > > Harald Staff wrote:
> > > > Hi Vikky
> > > >
> > > > Workbook_open, and other workbook related events, goes in the

> ThisWorkbook
> > > > module, no in sheets' modules.
> > > >
> > > > HTH. Best wishes Harald
> > > >
> > > > "Vikky" <(E-Mail Removed)> skrev i melding
> > > > news:(E-Mail Removed)...
> > > > > Thank you Bob for Replying.
> > > > >
> > > > > I opened File,and pasted the code in view code, in all three sheets
> > > > > code. But this is not giving desired result.
> > > > >
> > > > > can you help me out, where i'm doing wrong.
> > > > >
> > > > > Regards;
> > > > >
> > > > > Vikky
> > > > >
> > > > >
> > > > > Bob Phillips wrote:
> > > > > > You could do something like
> > > > > >
> > > > > > Private Sub Workbook_Open()
> > > > > > If Date > DateValue("12-Mar-2006") Then
> > > > > > MsgBox "Cannot open - expired"
> > > > > > ThisWorkbook.Close savechanges:=False
> > > > > > End If
> > > > > > End Sub
> > > > > >
> > > > > > 'This is workbook event code.
> > > > > > 'To input this code, right click on the Excel icon on the

> worksheet
> > > > > > '(or next to the File menu if you maximise your workbooks),
> > > > > > 'select View Code from the menu, and paste the code
> > > > > >
> > > > > > but a user can circumvent it by just disabling macros.
> > > > > >
> > > > > > --
> > > > > > HTH
> > > > > >
> > > > > > Bob Phillips
> > > > > >
> > > > > > (replace somewhere in email address with gmail if mailing direct)
> > > > > >
> > > > > > "Vikky" <(E-Mail Removed)> wrote in message
> > > > > > news:(E-Mail Removed)...
> > > > > > > Hi experts;
> > > > > > >
> > > > > > > I m using excel 2002.
> > > > > > > Is it possible to give date vaildety to a excel file after that

> date
> > > > > > > when anybody open that file excel would give Msg like " can not

> open
> > > > > > > file. validety expired".
> > > > > > >
> > > > > > > Thank you.
> > > > > > >
> > > > > > > Regards;
> > > > > > >
> > > > > > > Vikky
> > > > > > >
> > > > >

> >


 
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
Output Date Created and Date Modified to a txt file using a batch file mhel_0414 Windows XP 0 12th Sep 2009 07:00 AM
Recovering File Info Specifically Save Date or Print Date Gadgetgw Microsoft Excel Misc 4 6th Oct 2008 08:43 PM
Copying file; original date not retained; changed to date of copy =?Utf-8?B?aWNlYnV0Y2htYW4zOTQ0?= Microsoft Outlook Discussion 1 8th Mar 2006 10:01 PM
File folder creation date is replaced with the date copied. =?Utf-8?B?enp6?= Windows XP General 2 9th Feb 2005 02:02 PM
Excel Date - Auto enter file creation date (free chocolate for help) arielax Microsoft Excel Misc 6 29th Apr 2004 02:13 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 12:48 AM.