Przejdź do głównej zawartości

Odnalezione ukryte nazwy

Inspektor dokumentów odnalazł w skoroszycie ukryte nazwy. Te nazwy mogą zawierać ukryte informacje dotyczące scenariuszy dodatku Solver. Na przykład po użyciu dodatku Solver w celu uruchomienia scenariusza może on przechowywać informacje o parametrach obliczeń i innych poufnych danych jako ukryte nazwy w skoroszycie.

Ważne: Firma Microsoft dostarcza przykładów programistycznych tylko dla ilustracji, bez żadnych gwarancji wyrażonych wprost lub domyślnie. Dotyczy to, ale nie jest ograniczona do, domniemanych gwarancji dotyczących przydatności handlowej lub przydatności do określonego celu. W tym artykule przyjęto założenie, że znasz język programowania, który jest prezentowany, oraz narzędzia używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu funkcji konkretnej procedury, ale nie będą modyfikować tych przykładów w celu uzyskania dodatkowych funkcji lub skonstruowania procedur w celu spełnienia określonych wymagań.

Problem

Inspektor dokumentów nie może usunąć tych ukrytych nazw.

Zalecane rozwiązanie

Uruchom następujące makro w celu usunięcia ukrytych nazw. W makrze zostanie wyświetlone okno komunikatu z listą trzech elementów: (1), czy zdefiniowana nazwa jest widoczna lub ukryta, (2) Nazwa zdefiniowana i (3), do której odwołuje się nazwa (odwołanie do komórki skoroszytu). Możesz wybrać pozycję tak lub nie , aby usunąć lub zachować wszystkie zdefiniowane nazwy.

Uwaga: Jeśli to makro zostanie użyte w celu usunięcia ukrytych nazw, dodatki (takie jak Solver) lub makra mogą nie działać zgodnie z oczekiwaniami, a ukryte dane są z nimi powiązane. To makro wpływa również na ukryte nazwy zdefiniowane, a nie tylko te, które zostały dodane przez dodatek Solver.

Przestroga: Jeśli nazwy arkuszy zawierają spacje, podczas próby usunięcia nazwy zdefiniowanej może zostać wyświetlony komunikat o błędzie.

Usuwanie ukrytych nazw

' 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

Uwaga:  Ta strona została przetłumaczona automatycznie i może zawierać błędy gramatyczne lub nieścisłości. Chcemy, aby ta zawartość była dla Ciebie przydatna. Czy możesz dać nam znać, czy te informacje były pomocne? Oto angielskojęzyczny artykuł do wglądu.

Rozwijaj umiejętności związane z pakietem Office
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×