Οι συμβολοσειρές ιδιωτικού προφίλ χρησιμοποιούνται συχνά για την αποθήκευση συγκεκριμένων πληροφοριών χρηστών εκτός της εφαρμογής/εγγράφου για μεταγενέστερη χρήση.
Θα μπορούσατε για παράδειγμα να αποθηκεύσετε πληροφορίες σχετικά με το πιο πρόσφατο περιεχόμενο σε ένα παράθυρο διαλόγου/UserForm,
πόσες φορές έχει ανοίξει ένα βιβλίο εργασίας ή τον τελευταίο αριθμό τιμολογίου που χρησιμοποιήθηκε για ένα πρότυπο τιμολογίου.
Οι ιδιωτικές συμβολοσειρές προφίλ για κάθε χρήστη μπορούν να αποθηκευτούν στο Μητρώο. Μπορείτε επίσης να χρησιμοποιήσετε ένα αρχείο INI,
είτε στον τοπικό σκληρό δίσκο είτε σε κοινόχρηστο φάκελο δικτύου.
Ακολουθούν τα παραδείγματα μακροεντολών για εγγραφή και ανάγνωση από ιδιωτικές συμβολοσειρές προφίλ στο μητρώο.
"τα παρακάτω παραδείγματα υποθέτουν ότι το εύρος B3: B5 στο ενεργό φύλλο περιέχει" πληροφορίες σχετικά με το Επώνυμο, το Όνομα και το Γενέθλιο Sub WriteUserInfoToRegistry () "αποθηκεύει πληροφορίες στο μητρώο στο" HKEY_CURRENT_USER \ Software \ VB και VBA και Ρυθμίσεις προγράμματος \ TESTAPPLICATION On Error Resume Επόμενο SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range ("B3"). Value SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range ("B4"). Value SaveSetting "TESTAPPLICATION", "Personal "," Birthhdate ", Range (" B5 "). Value On Error GoTo 0 End Sub Sub ReadUserInfoFromRegistry ()" διαβάζει πληροφορίες στο Μητρώο από το 'HKEY_CURRENT_USER \ Software \ VB and VBA Program Settings \ TESTAPPLICATION Range ("B3"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Lastname", "") Range ("B4"). Formula = GetSetting ("TESTAPPLICATION", "Personal", "Firstname", "") Range ("B5" ) .Formula = GetSetting ("TESTAPPLICATION", "Personal", "Birthhdate", "") End Sub "το παρακάτω παράδειγμα υποθέτει ότι το εύρος D4 στο ενεργό φύλλο t περιέχει «πληροφορίες για τον μοναδικό αριθμό Sub GetNewUniqueNumberFromRegistry () Dim UniqueNumber As Long UniqueNumber = 0 On Error Resume Next UniqueNumber = CLng (GetSetting (" TESTAPPLICATION "," Personal "," UniqueNumber "," ") On Error GoTo 0 Range ("D4"). Formula = UniqueNumber + 1 SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range ("D4"). Value End Sub Sub DeleteUserInfoFromRegistry () διαγράφει πληροφορίες στο μητρώο από το 'HKEY_CURRENT_USER \ Software \ Ρυθμίσεις προγράμματος VB και VBA \ TESTAPPLICATION On Σφάλμα Συνέχιση Επόμενη Διαγραφή Ρύθμιση "TESTAPPLICATION" 'διαγραφή όλων των πληροφοριών' DeleteSetting "TESTAPPLICATION", "Personal" 'delete one section' DeleteSetting "TESTAPPLICATION", "Personal", "Birthhdate" 'delete one key On Σφάλμα GoTo 0 End Sub