Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-08-05 Thread Kannan Excel
Hi Umar Abeer,

Its very simple if ur company want to terminate u, then u can use this
macro in master data :-)

am just joking...

I thought this would be a great security feature for an annual subscription
feature I have on my site. Ideally the spreadsheet would lock or a password
would be required after a certain date



On Sat, Aug 3, 2013 at 7:43 PM, Umar Abeer umarab...@googlemail.com wrote:

 Hi Kannan

 Interesting query. Would you share why you want an expiry on the file.
 Just trying to understand the circumstances under which one might want to
 add the funcitonality

 Cheers
 Umar


 On Mon, Jul 29, 2013 at 12:37 PM, Kannan Excel kannan.ex...@gmail.comwrote:

 how to make this???

 can u send code???

 and if i type user and pswd means, permission granted or user has expired
 message only appear...

 excel sheet not open...




 On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.net wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also
 the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like
 Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
 Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it,
 send an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like
 Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
 Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and
 members are not 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-08-05 Thread Suyog Kulkarni
Hello All,

I've reviewed all replies. Can we do following things ? 

 After opening excel, Sheet1 only should get open !
 On sheet1, we can write that Without Enabling macro facility this 
excel will not work.
 Can we prepare macro which will keep all fonts  cells in white color ?
 I can't say, we'll keep those sheets hidden as anyone can unhide those 
sheets.

If we can achieve this, that will be great. 

Regards,
Suyog

On Monday, 5 August 2013 11:41:55 UTC+5:30, pappu wrote:

 Hi Umar Abeer,

 Its very simple if ur company want to terminate u, then u can use this 
 macro in master data :-)

 am just joking...

 I thought this would be a great security feature for an annual 
 subscription feature I have on my site. Ideally the spreadsheet would lock 
 or a password would be required after a certain date



 On Sat, Aug 3, 2013 at 7:43 PM, Umar Abeer 
 umar...@googlemail.comjavascript:
  wrote:

 Hi Kannan

 Interesting query. Would you share why you want an expiry on the file. 
 Just trying to understand the circumstances under which one might want to 
 add the funcitonality

 Cheers
 Umar


 On Mon, Jul 29, 2013 at 12:37 PM, Kannan Excel 
 kannan...@gmail.comjavascript:
  wrote:

 how to make this???

 can u send code???

 and if i type user and pswd means, permission granted or user has 
 expired message only appear...

 excel sheet not open...




 On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.netjavascript:
  wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan...@gmail.com javascript: wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor 
 d...@premor.netjavascript: 
 wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid 
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a 
 word
 EXPIRED, then everytime file open, it will check that cell and also 
 the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like 
 Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need 
 Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners 
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google 
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, 
 send an
 email to excel-macros...@**googlegroups.com javascript:.
 To post to this group, send email to 
 excel-...@googlegroups.comjavascript:
 .
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-08-03 Thread Suyog Kulkarni
Hello All,

I've some questions on this.

 What if we set expiry date  time but macros are disabled on any PC ? 
whether that person can open this file ?
 Kindly review attached excel, I added similar code but while opening 
that file, excel first open that particular file  then ask me to enable 
macro.
 After enabling macro also, I can work  I can make changes in this file.

Kindly refer attached file  guide me. This is very useful technique for me 
as we generally quote with the validity so now I can validate the whole 
excel only. I would like to set my date  time as expiry  I'll set 
password to that macro.

Thanks in advance.

With best regards,
Suyog

On Monday, 29 July 2013 14:17:14 UTC+5:30, De Premor wrote:

  This is the sample code, you can set it up in ExpDate variable

 Private Sub Workbook_Open()
 Dim ExpDate As Date
 ExpDate = #8/17/2013 10:00:00 AM#
 
 If Now  ExpDate Then ThisWorkbook.Close
 MsgBox This workbook will expired at   Format(ExpDate, dd  
  hh:mm:ss AM/PM)
 End Sub

 Rgds,
 [dp]

 On 29/07/2013 15:39, Kannan Excel wrote:
  
 can u do me a favor??? 

  i don't want user and pswd... 
 i want vb coding for expire date and time 

  pls send that code how to set date and time to expire

   

 On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.net 
 javascript:wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet 


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan...@gmail.com javascript: wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.netjavascript: 
 wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid 
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners 
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google 
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send 
 an
 email to excel-macros...@googlegroups.com javascript:.
 To post to this group, send email to 
 excel-...@googlegroups.comjavascript:
 .
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-08-03 Thread Umar Abeer
Hi Kannan

Interesting query. Would you share why you want an expiry on the file. Just
trying to understand the circumstances under which one might want to add
the funcitonality

Cheers
Umar


On Mon, Jul 29, 2013 at 12:37 PM, Kannan Excel kannan.ex...@gmail.comwrote:

 how to make this???

 can u send code???

 and if i type user and pswd means, permission granted or user has expired
 message only appear...

 excel sheet not open...




 On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.net wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-08-03 Thread P.VIJAYKUMAR
Respected Suyog,

Enabling macros functionality is provided to stop unwanted macros or virus
running and corrupting the data.You can open the excel file and work on the
contents.If you want the macro to run and the code be executed then one
should enable macros.Expiry macro is a type of macro
which starts an event when the date on which workbook is opened is more
than the expiry date and command is send to close the work book.Even if you
have and expiry macro it will not work unless macros are enabled to work in
your workbook.Enabling macros  is like a toll gate or a check-post.It gives
you clearance or permission to go and do your job.Expiry macro is like
limited petrol which expires after certain number of KM.Even if you have
petrol if the police catch you and cease the vehicle you cannot drive.

Hope you understand the  difference.


Regards,
Vijaykumar


On Sat, Aug 3, 2013 at 7:43 PM, Umar Abeer umarab...@googlemail.com wrote:

 Hi Kannan

 Interesting query. Would you share why you want an expiry on the file.
 Just trying to understand the circumstances under which one might want to
 add the funcitonality

 Cheers
 Umar


 On Mon, Jul 29, 2013 at 12:37 PM, Kannan Excel kannan.ex...@gmail.comwrote:

 how to make this???

 can u send code???

 and if i type user and pswd means, permission granted or user has expired
 message only appear...

 excel sheet not open...




 On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.net wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also
 the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like
 Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need
 Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it,
 send an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-29 Thread Mangesh Vimay
Thanks for asking this query.

Appreciate your mind !!!

And also thanks De Pemor for the solution.

Have a great day all !!!

On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:
 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

  Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
 Dim Expired As Date
 Expired = 20 Jul 2013

 If Now()  Expired Then
 MsgBox File   ThisWorkbook.FullName   expired
 ThisWorkbook.Close
 End If

 End Sub

 Next step, you may add a cell validation on current file to avoid skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

 If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
 MsgBox File   ThisWorkbook.FullName   expired
*if Sheet1**.Range(**A1)  EXPIRED then
 **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
End If
 * ThisWorkbook.Close
 End If

 Rgds,
 [dp]

  Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

  how to make a file expire after a period of time.


  regards
 Kannan V
  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




 --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
 not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE  : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-29 Thread De Premor

try this attached file

user, pass, and expiration date defined in a sheet

On 29/07/2013 13:05, Mangesh Vimay wrote:

Thanks for asking this query.

Appreciate your mind !!!

And also thanks De Pemor for the solution.

Have a great day all !!!

On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

Hi,

I want to set particular date and* time* also for expire  is this
possible.???

Or i want to set date and time for password...

When i set date and time, password will appear automatically

pls do the needful ASAP...






On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:


  Using macro, but required user to run the macro

This is the basic, user still can skip this by changing date on his
computer

Private Sub Workbook_Open()
 Dim Expired As Date
 Expired = 20 Jul 2013

 If Now()  Expired Then
 MsgBox File   ThisWorkbook.FullName   expired
 ThisWorkbook.Close
 End If

End Sub

Next step, you may add a cell validation on current file to avoid skipped
by user with changin the date on his computer
Once the expiration msg appear, it will write in sheet1 cell A1 a word
EXPIRED, then everytime file open, it will check that cell and also the
date on current computer, if one of that criteria match then it will
still close the workbook.

 If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
 MsgBox File   ThisWorkbook.FullName   expired
*if Sheet1**.Range(**A1)  EXPIRED then
 **   Sheet1.Range(A1) = EXPIRED**
*   *ThisWorkbook.Save
End If
* ThisWorkbook.Close
 End If

Rgds,
[dp]

  Pada 27/07/2013 15:55, Kannan Excel menulis:

Hi,

  how to make a file expire after a period of time.


  regards
Kannan V
  --
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
will not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups
MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an
email to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




  --
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
will not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups
MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an
email to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-29 Thread Kannan Excel
how to make this???

can u send code???

and if i type user and pswd means, permission granted or user has expired
message only appear...

excel sheet not open...




On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.net wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .



  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-29 Thread Kannan Excel
can u do me a favor???

i don't want user and pswd...
i want vb coding for expire date and time

pls send that code how to set date and time to expire



On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.net wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/**discussexcelhttps://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to 
 excel-macros+unsubscribe@**googlegroups.comexcel-macros%2bunsubscr...@googlegroups.com
 .
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at 
 http://groups.google.com/**group/excel-macroshttp://groups.google.com/group/excel-macros
 .
 For more options, visit 
 https://groups.google.com/**groups/opt_outhttps://groups.google.com/groups/opt_out
 .



  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-29 Thread Kannan Excel
thanks  thanks a lot  i am really happy.


On Mon, Jul 29, 2013 at 2:13 PM, De Premor d...@premor.net wrote:

  sorry little mistake there, try new attached


 On 29/07/2013 15:37, Kannan Excel wrote:

 how to make this???

  can u send code???

  and if i type user and pswd means, permission granted or user has
 expired message only appear...

  excel sheet not open...




 On Mon, Jul 29, 2013 at 1:16 PM, De Premor d...@premor.net wrote:

 try this attached file

 user, pass, and expiration date defined in a sheet


 On 29/07/2013 13:05, Mangesh Vimay wrote:

 Thanks for asking this query.

 Appreciate your mind !!!

 And also thanks De Pemor for the solution.

 Have a great day all !!!

 On 7/29/13, Kannan Excel kannan.ex...@gmail.com wrote:

 Hi,

 I want to set particular date and* time* also for expire  is this
 possible.???

 Or i want to set date and time for password...

 When i set date and time, password will appear automatically

 pls do the needful ASAP...






 On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
  Dim Expired As Date
  Expired = 20 Jul 2013

  If Now()  Expired Then
  MsgBox File   ThisWorkbook.FullName   expired
  ThisWorkbook.Close
  End If

 End Sub

 Next step, you may add a cell validation on current file to avoid
 skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

  If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
  MsgBox File   ThisWorkbook.FullName   expired
 *if Sheet1**.Range(**A1)  EXPIRED then
  **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
 End If
 * ThisWorkbook.Close
  End If

 Rgds,
 [dp]

   Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

   how to make a file expire after a period of time.


   regards
 Kannan V
   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




   --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners
 and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google
 Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send
 an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.



  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be?
 It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, 

Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-28 Thread Kannan Excel
Hi,

I want to set particular date and* time* also for expire  is this
possible.???

Or i want to set date and time for password...

When i set date and time, password will appear automatically

pls do the needful ASAP...






On Sat, Jul 27, 2013 at 3:19 PM, De Premor d...@premor.net wrote:

  Using macro, but required user to run the macro

 This is the basic, user still can skip this by changing date on his
 computer

 Private Sub Workbook_Open()
 Dim Expired As Date
 Expired = 20 Jul 2013

 If Now()  Expired Then
 MsgBox File   ThisWorkbook.FullName   expired
 ThisWorkbook.Close
 End If

 End Sub

 Next step, you may add a cell validation on current file to avoid skipped
 by user with changin the date on his computer
 Once the expiration msg appear, it will write in sheet1 cell A1 a word
 EXPIRED, then everytime file open, it will check that cell and also the
 date on current computer, if one of that criteria match then it will
 still close the workbook.

 If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
 MsgBox File   ThisWorkbook.FullName   expired
*if Sheet1**.Range(**A1)  EXPIRED then
 **   Sheet1.Range(A1) = EXPIRED**
 *   *ThisWorkbook.Save
End If
 * ThisWorkbook.Close
 End If

 Rgds,
 [dp]

  Pada 27/07/2013 15:55, Kannan Excel menulis:

 Hi,

  how to make a file expire after a period of time.


  regards
 Kannan V
  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




  --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to 

$$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-27 Thread Kannan Excel
Hi,

how to make a file expire after a period of time.


regards
Kannan V

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-27 Thread johnson john
Wow great Querry!!!
Even I am excited to know it.

Johnson
On Sat, Jul 27, 2013 at 2:25 PM, Kannan Excel kannan.ex...@gmail.comwrote:

 Hi,

  how to make a file expire after a period of time.


 regards
 Kannan V

 --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.






-- 
Johnson Dara
American Power Conversion
Lavelle Road
Bangalore 560 001

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-27 Thread De Premor

Using macro, but required user to run the macro

This is the basic, user still can skip this by changing date on his computer

Private Sub Workbook_Open()
Dim Expired As Date
Expired = 20 Jul 2013

If Now()  Expired Then
MsgBox File   ThisWorkbook.FullName   expired
ThisWorkbook.Close
End If

End Sub

Next step, you may add a cell validation on current file to avoid 
skipped by user with changin the date on his computer
Once the expiration msg appear, it will write in sheet1 cell A1 a word 
EXPIRED, then everytime file open, it will check that cell and also the 
date on current computer, if one of that criteria match then it will 
still close the workbook.


If Now()  Expired or *Sheet1**.Range(**A1) = EXPIRED* Then
MsgBox File   ThisWorkbook.FullName   expired
*if Sheet1**.Range(**A1)  EXPIRED then
***   Sheet1**.Range(**A1) = EXPIRED***
**ThisWorkbook.Save
   End If
* ThisWorkbook.Close
End If

Rgds,
[dp]

Pada 27/07/2013 15:55, Kannan Excel menulis:

Hi,


  how to make a file expire after a period of time.



regards
Kannan V
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? 
It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel


FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like 
Please Help, Urgent, Need Help, Formula Problem, Code Problem, and 
Need Advice will not get quick attention or may not be answered.

2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security 
measure.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE : Don't ever post confidential data in a workbook. Forum owners 
and members are not responsible for any loss.

---
You received this message because you are subscribed to the Google 
Groups MS EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send 
an email to excel-macros+unsubscr...@googlegroups.com.

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group.

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.




Expired at 20 Jul 2013.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12


Re: $$Excel-Macros$$ how to make a file expire after a period of time.

2013-07-27 Thread vba
What you want to do after expiration. .?
On 27 Jul 2013 14:25, Kannan Excel kannan.ex...@gmail.com wrote:

 Hi,

 how to make a file expire after a period of time.


 regards
 Kannan V

 --
 Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
 =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
 https://www.facebook.com/discussexcel

 FORUM RULES

 1) Use concise, accurate thread titles. Poor thread titles, like Please
 Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
 will not get quick attention or may not be answered.
 2) Don't post a question in the thread of another member.
 3) Don't post questions regarding breaking or bypassing any security
 measure.
 4) Acknowledge the responses you receive, good or bad.
 5) Jobs posting is not allowed.
 6) Sharing copyrighted material and their links is not allowed.

 NOTE : Don't ever post confidential data in a workbook. Forum owners and
 members are not responsible for any loss.
 ---
 You received this message because you are subscribed to the Google Groups
 MS EXCEL AND VBA MACROS group.
 To unsubscribe from this group and stop receiving emails from it, send an
 email to excel-macros+unsubscr...@googlegroups.com.
 To post to this group, send email to excel-macros@googlegroups.com.
 Visit this group at http://groups.google.com/group/excel-macros.
 For more options, visit https://groups.google.com/groups/opt_out.




-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups MS 
EXCEL AND VBA MACROS group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.