Μετάβαση στο κύριο περιεχόμενο
Office

Βρέθηκαν κρυμμένα ονόματα

Η επιθεώρηση εγγράφου εντόπισε κρυφά ονόματα στο βιβλίο εργασίας σας. Αυτά τα ονόματα μπορούν να αποθηκεύουν κρυφές πληροφορίες σχετικά με σενάρια επίλυσης. Για παράδειγμα, όταν χρησιμοποιείτε το πρόσθετο "επίλυση " για να εκτελέσετε ένα σενάριο, μπορεί να αποθηκεύσει πληροφορίες σχετικά με τις παραμέτρους υπολογισμού και άλλα ευαίσθητα δεδομένα ως κρυφά ονόματα στο βιβλίο εργασίας σας.

Σημαντικό: Η 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

Σημείωση:  Αυτή η σελίδα έχει μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας πείτε εάν σας βοήθησαν αυτές οι πληροφορίες; Εδώ θα βρείτε το άρθρο στα Αγγλικά για να το συμβουλεύεστε.

Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×