Atrasti slēptie nosaukumi

Dokumentu kontrolieris darbgrāmatā ir atradis slēptos vārdus. Šajos nosaukumos var glabāt slēpto informāciju par risinātāja scenārijiem. Piemēram, ja izmantojat pievienojumprogrammu Risinātājs , lai palaistu scenāriju, tajā var tikt glabāta informācija par aprēķinu parametriem un citiem sensitīviem datiem kā slēptiem vārdiem darbgrāmatā.

Svarīgi!: Microsoft nodrošina programmēšanas piemērus tikai ilustrācijai, bez izteiktas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešajām garantijām par piemērotību lietošanai vai atbilstību noteiktam nolūkam. Šajā rakstā ir pieņemts, ka esat iepazinies ar programmēšanas valodu, kas tiek parādīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot noteiktas procedūras funkcionalitāti, taču tie nemainīs šos piemērus, lai nodrošinātu papildu funkcionalitāti vai izveidotu procedūras, kas atbilst jūsu konkrētajām prasībām.

Problēma

Dokumentu kontrolieris nevar noņemt šos slēptos nosaukumus.

Ieteicamais risinājums

Palaidiet tālāk norādīto makro, lai noņemtu slēptos nosaukumus. Makro parāda ziņojumu lodziņu, kurā uzskaitīti trīs vienumi: 1) neatkarīgi no tā, vai definētais nosaukums ir redzams vai slēpts (2) definētais nosaukums, un (3) uz ko attiecas šī nosaukuma (darbgrāmatas šūnas atsauce). Jūs varat izvēlēties vai , lai izdzēstu vai paturētu katru definēto nosaukumu.

Piezīme.: Ja izmantojat šo makro, lai noņemtu slēptos nosaukumus, pievienojumprogrammas (piemēram, Risinātājs) vai makro var nedarboties, kā paredzēts, un tie var zaudēt slēptos datus, kas ir saistīti ar tiem. Šis makro ietekmē arī nevienu slēpto nosaukumu, ne tikai to, ko ir pievienojis risinātājs.

Brīdinājums.: Ja lapu nosaukumos ir atstarpes, iespējams, tiek parādīts kļūdas ziņojums, kad mēģināt izdzēst definēto nosaukumu.

Slēpto nosaukumu noņemšana

' 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

Piezīme.:  Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai jūs varat mūs informēt, vai informācija bija noderīga? Šeit ir raksts angļu valodā jūsu atsaucei.​

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×