[Γενικά] Κλείδωμα ....

[crc]

Καλημερα

υπάρχει τρόπος να φτιάξουμε μια ρουτίνα σε ένα αρχείο EXCEL , το οποίο ύστερα απο δύο μέρες να μου ζητάει κωδικό ξεκλιδώματος του φύλλου εργασίας ???

[Dimi]

Καλημέρα σε όλους.
Φίλε Χρυσόστομε, ή ρουτίνα που ζητάς είναι σχετικά εύκολη υπόθεση.

Εννοείς πραγματικά το φύλλο εργασίας ή ολόκληρο το βιβλίο;

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

Δημήτρης

[crc]

Καλημερα Δημήτρη

ναι θα με ενδιέφερε ο κώδικας όπως επίσης , μιας και το ανέφερες και έχεις και πολύτ δίκιο , να κλειδώσουμε το φύλλο εργασίας μας απο την πρώτη φορά που θα ανοιχτεί , αν γίνεται αυτό πάντα !!! Οπως επίσης αν θα μπορούσαμε με κάποιο συνδυασμό πλήκτρων να μας βγάζει το παράθυρο κωδικού και να το ξεκλειδώνουμε / κλειδώνουμε απο εκεί , όλο το φύλλο.

Ευχαριστώ

[Dimi]

Γεια σας.
Ο κώδικας για να κλειδώσεις το τρέχον φύλλο στην Excel είναι:

Sub ProtectSheet()
    ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

και για να το ξεκλειδώσεις:

Sub UprotectSheet()
    ActiveSheet.Unprotect Password:="1234"
End Sub

Μετά ένοιξε με ALT+F8 τον διάλογο των μακροεντολών επίλεξε τη μακροεντολή και πάτησε "Επιλογές" για να προσθέσεις τον συνδυασμό πλήκτρων που θέλεις.

Δημήτρης

[crc]

Σε ευχαριστώ πολύ θα το δοκιμάσω !!!!