Nadzor dokumenta je pronašao skrivena imena u radnoj svesci. Ova imena mogu da skladište skrivene informacije o scenarijima rešavača. Na primer, kada koristite programski dodatak "Rešavač" za pokretanje scenarija, on može da skladišti informacije o parametrima izračunavanja i drugim osetljivim podacima kao skrivena imena u radnoj svesci.

Važno: Microsoft pruža primere programerskih primera samo za ilustraciju, bez bilo izražene ili implicisane garancije. To uključuje, ali nije ograničena na implicirane garancije za podsajtovo ili podobnost za određenu namenu. Ovaj članak pretpostavlja da ste upoznati sa programiranjem koji se prikazuje i alatkama koje se koriste za kreiranje i otklanjanje procedura otklanjanja grešaka. Inženjeri Microsoft podrške mogu da vam pomognu da objasnite funkcionalnost određene procedure, ali neće izmeniti ove primere da bi pružili dodatnu funkcionalnost ili konstruktivne procedure koje ispunjavaju vaše određene zahteve.

Problem

Nadzor dokumenta ne može da ukloni ova skrivena imena za vas.

Preporučeno rešenje

Pokrenite sledeći makro da biste uklonili skrivena imena. Makro prikazuje okvir poruke koji navodi tri stavke: (1) da li je definisano ime vidljivo ili skriveno, (2) definisano ime i (3) na koje to ime upućuje (referenca ćelije radne sveske). Možete odabrati Da iliNe da biste izbrisali ili da biste zadržali svako definisano ime.

Napomena: Ako koristite ovaj makro da biste uklonili skrivena imena, programski dodaci (kao što je Rešavač) ili makroi možda neće raditi na očekivani način i možda će izgubiti skrivene podatke povezane sa njima. Ovaj makro takođe utiče na definisano ime koje je skriveno, a ne samo na ona koje je dodao Rešavač.

Oprez: Ako imena listova sadrže razmake, možete dobiti grešku kada pokušate da izbrišete definisano ime.

Uklanjanje skrivenih imena

' 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

Potrebna vam je dodatna pomoć?

Unapredite veštine
Istražite obuku

Da li su vam ove informacije koristile?

Koliko ste zadovoljni kvalitetom prevoda?
Šta je uticalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×