Κλείδωμα μετά την χρήση 30 ημερών.
 

Καλημέρα σε όλο Forum
Και πάλι εδώ για την βοήθεια σας.
Δυσκολεύομε να κλειδώσω το excel μετά την χρήση 30 ημερών υπαρχή κάτι που μπορεί να με βοηθήσει.
Στο συνημμένο δεν γνωρίζω τι πρέπει να κανό μετά το MsgBox. :plaf:

Φίλε μου στην VBA δεν μπορείς να αφαιρέσεις έναν αριθμό από μια ημερομηνία
Δηλαδή το Date-30 είναι λάθος.

Άλλαξε
το If Range("TimeCheck") < Date - 30 Then
σε If DateDiff("d", Range("TimeCheck"), Date) < 30 Then

Πες μας αν έγινε.

Φιλικά
Θανάσης

Καλησπέρα Θανάση
Αντικαθιστώντας If Range("TimeCheck") < Date - 30 Then
Με If DateDiff("d", Range("TimeCheck"), Date) < 30 Then δεν μου εμφανίζεται το MsgBox και το πρόβλημα μου είναι μετά από αυτό, δεν γνωρίζω πως θα συνεχίσω όταν θα δοθεί σωστό ή λάθος Password

Αν και γενικά δεν συμφωνώ με τα κλειδώματα,
Δες στο συνημμένο μια προσέγγιση. :lock2:
Οι ειδικοί στην VBA ίσως έχουν να σου προτείνουν κάτι καλύτερο.

Ελπίζω να σε βοηθήσει να κάνεις αυτό που θέλεις.
Θανάσης
ΥΓ. Δεν μιλάμε για κλείδωμα βιβλίου αλλά αποτροπή ανοίγματος όταν περάσουν Χ μέρες. Το κλείδωμα φύλλου ή βιβλίου είναι άλλο Θέμα.

Σε ευχαριστώ Θανάση για ακόμη μια φορά
Γιώργος
Υ.Γ Μήπως γνωρίζεις τι είναι το Run time Erro -2147467259 (80004005)
Method on Action of object command Bar Button failed

Χαίρομαι που βοήθησα Γιώργο.

Για το Run time Error που αναφέρεις δεν ξέρω και θα σου έλεγα να το ψάξεις με τον θείο Γκουγκλη.
Εγώ ρωτώντας τον βρήκα αυτό: "

Κάπου αλλού είδα ότι διορθώνεται κάνοντας αποκατάσταση του υπολογιστή σε προηγούμενο σημείο επαναφοράς, ειδικά αν έχεις εγκαταστήσει πρόσφατα κάποιο λογισμικό.

Θανάσης.