[Μορφοποίηση] Κλείδωμα κελιού μετά απο κάθε εγγραφή.

[makoulis]

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

[gr8styl]

Φίλε Μάκη,
δες αν σου κάνει το τέχνασμα με επικύρωση δεδομένων που χρησιμοποίησα στο συνημμένο.

Αν δεν σε καλύπτει θα πρέπει να χρησιμοποιήσεις VBA.

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

[makoulis]

Και με vba πως το κάνουμε γιατί δεν το πολυκαταλαβαίνω???

[gr8styl]

Φίλε Μάκη,
μια από τις λύσεις με VBA είναι ο παρακάτω κώδικας.
(τον βάζεις στον κώδικα του φύλλου που θέλεις την συγκεκριμένη λειτουργία.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Target.Value <> "" Then
            Me.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Else
            Me.Unprotect
        End If
    End If
End Sub

Τώρα για το αν θα κατανοήσεις την λύση με VBA, ενώ δεν καταλαβαίνεις όπως είπες το παράδειγμα με την επικύρωση,
θα έλεγα ότι δεν προσπαθούμε να οδηγήσουμε νταλίκα όταν δεν ξέρουμε πως να οδηγήσουμε επιβατικό.

Τέλος πάντων εσύ ξέρεις.

Καλή συνέχεια.
Θανάσης
ΥΓ Ίσως οι ειδικοί της VBA έχουν κάτι καλύτερο να σου προτείνουν

[makoulis]

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

[Tasos]

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

Αγαπητέ Μάκη,
στο αρχείο που επισυνάπτεται παρουσιάζεται μια προσέγγιση του ζητούμενου με VBA.

Έχεις δύο επιλογές:

1) Χρησιμοποιείς το συνημμένο παράδειγμα ως έχει.

Στην περίπτωση αυτή, το κλείδωμα των νέων καταχωρήσεων στη στήλη E
θα γίνεται κατά το κλείσιμο του βιβλίου.

2) Μπορείς επίσης να επέμβεις στον κώδικα κάνοντας τις αλλαγές που προτείνονται εκεί
για να γίνεται το κλείδωμα κατά την αποθήκευση του βιβλίου.

Για να μπεις στο περιβάλλον επεξεργασίας του κώδικα, κάνε δεξί κλικ στην καρτέλα του
φύλλου "Sheet1" και κάνε κλικ στην επιλογή "Προβολή κώδικα".

Αν έχεις κάποια απορία εδώ είμαστε.

Φιλικά

Τάσος

[makoulis]

Καλημέρα και καλή εβδομάδα.
Για να μην σe πρήζω θέλω όπως το χεις αλλά με 3 αλλαγές (άν γίνονται).
1ον.Οι στήλες που θα κλειδώνουν να είναι οι B έως KAI την Κ.
2ον Να γίνεται κλείδωμα μετά απο κάθε αποθήκευση.
3ον Να μην φαίνεται ο κωδικός στην vb.(βάλε κωδικό αν θές !makis2011! )
4ον Σε παρακαλώ μην βρίζεις.....

[Tasos]

Καλημέρα Μάκη!


1ον. Ρώτησες για τη στήλη Ε και όχι για τις στήλες B έως KAI την Κ.
Αν διάβαζες αυτά που σου γράφω στον κώδικα θα μπορούσες να αλλάξεις τη διεύθυνση
από

Private Const RngAddress = "E:E"
σε
Private Const RngAddress = "B:G"

Στο προηγούμενο μήνυμα μου σου περιγράφω πως θα μπεις στο περιβάλλον VBA
όπου με μεγάλη ευκολία θα μπορέσεις να τροποποιήσεις αυτά που ζητάς. Εκεί έχω γράψει σχετικά σχόλια που θα σε βοηθήσουν.

2ον Σου γράφω στο προηγούμενο μου μήνυμα τι να κάνεις για να γίνεται κλείδωμα μετά από κάθε αποθήκευση.

3ον Για να μη φαίνεται ο κωδικός στην VB θα πρέπει να κλειδώσεις το Έργο VBA.

Αφού μπεις στο περιβάλλον VBA, κάνε δεξί κλικ πάνω στο VBAProject(Το όνομα του αρχείου) , και στο μενού που θα εμφανιστεί επιλέγεις VBAProject Properties.

Στο παράθυρο που θα εμφανιστεί επιλέγεις την καρτέλα Protection από όπου μπορείς
να κλειδώσεις με κάποιο κωδικό το έργο VBA.

Αφού αποθηκεύσεις και κάνεις επανεκκίνηση του αρχείου σου, δεν θα μπορεί να δεί κανείς το Έργο VBA (και επομένως τον κωδικό του φύλλου) αν δεν γνωρίζει τον κωδικό για να το ξεκλειδώσει.

Έχε υπόψη σου ότι υπάρχουν προγράμματα στο Internet που μπορούν να απενεργοποιήσουν την προστασία τόσο του φύλλου, όσο και του Έργου VBA.

Τάσος