Pronađena su skrivena imena

Nadzor dokumenta pronađen je skrivena imena u radnoj svesci. Ova imena mogu da skladište skrivene informacije o scenarijima za Solver. Na primer, kada koristite programski dodatak Solver da biste pokrenuli scenario, može da skladišti informacije o parametrima i drugim osetljivim podacima kao skrivena imena u radnoj svesci.

Važno: Microsoft pruža primere programiranja samo na ilustraciji, bez izričenja ili podrazumevanih garancija. To obuhvata, ali nije ograničeno, na podrazumevane garancije o pristupačnosti prodaje ili prikladnosti za određenu namenu. Ovaj članak pretpostavlja da ste upoznati sa programskim jezikom koji se demonstrira i sa alatki koje se koriste za kreiranje i otklanjanju grešaka. Inženjeri Microsoft podrške mogu da objasne funkcionalnost određene procedure, ali oni neće menjati ove primere da bi obezbedili dodatnu funkcionalnost ili da bi napravili procedure za ispunjavanje određenih zahteva.

Problem

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

Preporučeno rešenje

Uradite sledeće makroe da biste uklonili skrivena imena. Makro prikazuje okvir za poruku koji navodi tri stavke: (1) da li je definisano ime vidljivo ili skriveno, (2) definisano ime i (3) na koje se to ime odnosi (referenca ćelije radne sveske). Možete da odaberete da ili ne da biste izbrisali ili zadržali svako definisano ime.

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

Oprez: Ako imena listova sadrže razmake, možda ć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

Napomena:  Ova stranica je prevedena automatski i može da sadrži gramatičke greške ili netačnosti. Naš cilj je da ovaj sadržaj bude koristan. Možete li da nam javite da li su informacije bile korisne? Ovo je članak na engleskom jeziku za referencu.​

Potrebna vam je dodatna pomoć?

Razvijte Office veštine
Istražite obuku
Prvi nabavite nove funkcije
Pridružite se Office Insider korisnicima

Da li su vam ove informacije koristile?

Hvala vam na povratnim informacijama!

Hvala za povratne informacije! Izgleda da će biti od pomoći ako vas povežemo sa našim agentima Office podrške.

×