Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Γενικά] Κλείδωμα .... (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/535-kleidoma.html)

crc 08-04-10 07:44

Κλείδωμα ....
 
Καλημερα

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

Dimi 08-04-10 10:36

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

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

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

Δημήτρης

crc 08-04-10 12:07

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

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

Ευχαριστώ

Dimi 09-04-10 16:37

Γεια σας.
Ο κώδικας για να κλειδώσεις το τρέχον φύλλο στην 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 09-04-10 19:26

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


Η ώρα είναι 15:28.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2