Ημερομηνία λήξης σε αρχείο Excel

[jamespr]

Καλησπέρα σε όλους σας.

Ελπίζω να είστε καλά.

Θα ήθελα για ακόμα μία φορά τη βοήθειά σας. Θέλω να βάλω με κάποιο τρόπο να κλειδώνει ένα αρχείο excel μετά από κάποια ημερομηνία ή ακόμα καλύτερα μετά από κάποιες ημέρες από την πρώτη χρήση. Το δεύτερο νομίζω είναι πιο δύσκολο αλλά και η λύση του πρώτου θα ήταν πολύ πολύτιμη βοήθεια.

 

Σας ευχαριστώ προκαταβολικά όλους για το χρόνο σας.

[jamespr]

Λοιπόν μετά από λίγο ψάξιμο βρήκα κώδικα σε vba, τον τροποποίησα λίγο και έφτιαξα αυτό:

Sub Auto_Open()

Dim exdate As Date

exdate = "04/30/2011"

If Date > exdate Then

MsgBox ("You have reached end of your trail period")

ActiveWorkbook.Close

ElseIf exdate - Date < 10 Then

MsgBox ("You have " & exdate - Date & "Days left")

Else

MsgBox ("Author Name")

End If

 

End Sub

 

Βγάζει μήνυμα το όνομα αυτού που το έφτιαξε, αν φτάσει στις 10 ημέρες πριν λήξει να βγάζει μήνυμα πόσες ημέρες μένουν και αφού περάσουν οι μέρες να κλείνει.

Καλό βράδυ σε όλους και σας ευχαριστώ για τον χρόνο σας Το πρόβλημά μου λύθηκε

[Cromb]

Δε κάνει τίποτα! Είναι χαρά μας να βοηθάμε συμφορουμιτες!