Καλημέρα Μάκη!
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.
Τάσος