[Excel07] Μακροεντολή

[anestaki]

Καλησπέρα
Θα ήθελα να μαθό εάν υπαρχή εντολή σε VB για ξεκλείδωμα και κλείδωμα φύλλων του Excel.

[Spirosgr]

Καλησπέρα
Είναι προτιμότερο να κάνει κανείς απλά πράγματα που δεν κουράζουν χωρίς VBA
Κατά την γνώμη μου κλείδωμα φύλλων ή και βιβλίου
χωρίς περιπέτειες από το κλείδωμα της excel με κωδικό εφ' όσον μιλάμε για απλή οικιακή χρήση (ή και σε εργασιακούς χώρους ακόμα) είναι αρκετό . Επίσης μπορούν να κρυφτούν φύλλα για μεγαλύτερη ασφάλεια

[Spirosgr]

Καλημέρα
Αν παρ' όλα αυτά θέλεις οπωσδήποτε VBA
αντέγραψε τον κώδικα
Option Explicit
Sub proSheet()
ActiveSheet.protect Password:="123"
MsgBox ("sheet protected"), vbInformation
End Sub
σε ένα Modul και αντιστοίχησε τον σε ένα κουμπί.Μπορείς να αλλάξεις το password
Tο ξεκλείδωμα με τον ίδιο τρόπο δεν το θεωρώ καλό να γίνει
όποιος πατήσει κουμπί για ξεκλείδωμα ξεκλειδώνει το φύλλο χωρίς χρήση password
δοκίμασε το βάζοντας
Sub unproSheet()
ActiveSheet.Unprotect Password:="123"
MsgBox ("sheet Unprotected"), vbInformation
End Sub
σε ένα άλλο κουμπί

[anestaki]

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

[Spirosgr]

Να' σαι καλά
και ότι επιθυμείς !