Η Επιθεώρηση εγγράφου εντόπισε κρυφά ονόματα στο βιβλίο εργασίας σας. Αυτά τα ονόματα μπορούν να αποθηκεύσουν κρυφές πληροφορίες σχετικά με σενάρια επίλυσης. Για παράδειγμα, όταν χρησιμοποιείτε το πρόσθετο "Επίλυση " για να εκτελέσετε ένα σενάριο, αυτό μπορεί να αποθηκεύσει πληροφορίες σχετικά με παραμέτρους υπολογισμού και άλλα ευαίσθητα δεδομένα ως κρυφά ονόματα στο βιβλίο εργασίας σας.
Σημαντικό: Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για απεικόνιση, χωρίς εγγύηση εκφρασμένη ή σιωπηρή. Αυτό περιλαμβάνει, μεταξύ άλλων, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να εξηγήσουν τις λειτουργίες μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν επιπλέον λειτουργικότητα ή διαδικασίες κατασκευής σύμφωνα με τις συγκεκριμένες απαιτήσεις σας.
Ζήτημα
Η Επιθεώρηση εγγράφου δεν μπορεί να καταργήσει αυτά τα κρυφά ονόματα για εσάς.
Προτεινόμενη λύση
Εκτελέστε την ακόλουθη μακροεντολή για να καταργήσετε κρυφά ονόματα. Η μακροεντολή εμφανίζει ένα πλαίσιο μηνύματος που παραθέτει τρία στοιχεία: (1) εάν το καθορισμένο όνομα είναι ορατό ή κρυφό, (2) το καθορισμένο όνομα και (3) σε τι αναφέρεται αυτό το όνομα (αναφορά κελιού βιβλίου εργασίας). Μπορείτε να επιλέξετε Ναι ή Όχι για να διαγράψετε ή για να διατηρήσετε κάθε καθορισμένο όνομα.
Σημείωση: Εάν χρησιμοποιήσετε αυτήν τη μακροεντολή για να καταργήσετε κρυφά ονόματα, τα πρόσθετα (όπως η Επίλυση) ή οι μακροεντολές ενδέχεται να μην λειτουργούν κατά το αναμενόμενο και ενδέχεται να χάσουν κρυφά δεδομένα που σχετίζονται με αυτά. Αυτή η μακροεντολή επηρεάζει επίσης οποιοδήποτε καθορισμένο όνομα που είναι κρυφό, όχι μόνο αυτά που προστέθηκαν από την Επίλυση.
Προσοχή: Εάν τα ονόματα των φύλλων σας περιέχουν κενά διαστήματα, ενδέχεται να λάβετε ένα σφάλμα όταν προσπαθήσετε να διαγράψετε το καθορισμένο όνομα.
Κατάργηση κρυφών ονομάτων
' Module to remove all hidden names on active workbook
Sub Remove_Hidden_Names()
' Dimension variables.
Dim xName As Variant
Dim Result As Variant
Dim Vis As Variant
' Loop once for each name in the workbook.
For Each xName In ActiveWorkbook.Names
'If a name is not visible (it is hidden)...
If xName.Visible = True Then
Vis = "Visible"
Else
Vis = "Hidden"
End If
' ...ask whether or not to delete the name.
Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
Chr(10) & xName.Name & "?" & Chr(10) & _
"Which refers to: " & Chr(10) & xName.RefersTo, _
Buttons:=vbYesNo)
' If the result is true, then delete the name.
If Result = vbYes Then xName.Delete
' Loop to the next name.
Next xName
End Sub
