Преминаване към основното съдържание
Office

Намерени скрити имена

Инспекторът на документи е намерил скрити имена във вашата работна книга. Тези имена могат да съхраняват скрита информация за сценариите Solver. Например когато използвате добавката Solver за изпълнение на сценарий, той може да съхранява информация за параметрите за изчисление и други поверителни данни като скрити имена във вашата работна книга.

Важно: Microsoft предоставя примери за програмиране само за илюстрация, без да има изрични или подразбиращи се гаранции. Това включва, но не се ограничава до подразбиращите се гаранции за продаваемост или годност за определена цел. В тази статия се предполага, че сте запознати с езика за програмиране, който се показва, и с инструментите, които се използват за създаване и отстраняване на грешки при процедурите. Инженери по поддръжката на Microsoft могат да ви помогнат да обясните функционалността на конкретна процедура, но те няма да променят тези примери, за да ви предоставят допълнителна функционалност или да конструират процедури, за да отговорят на вашите конкретни изисквания.

Проблем

Инспекторът на документи не може да премахне тези скрити имена вместо вас.

Препоръчително решение

Изпълнете следния макрос, за да премахнете скритите имена. Макросът показва поле за съобщение, което изброява три елемента: (1) дали дефинираното име е видимо или скрито, (2) дефинираното име и (3) какво означава това име (препратка към клетка от работна книга). Можете да изберете да или не , за да изтриете или да запазите всяко дефинирано име.

Забележка: Ако използвате този макрос, за да премахнете скритите имена, добавките (като Solver) или макросите може да не работят по очаквания начин и може да загубят скрити данни, свързани с тях. Този макрос засяга и всяко дефинирано име, което е скрито, а не само тези, които са били добавени от Solver.

Внимание: Ако имената на листовете ви съдържат интервали, е възможно да получите съобщение за грешка, когато се опитате да изтриете дефинираното име.

Премахване на скрити имена

' 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.

×