Preskoči na glavni sadržaj

Pronađeni su skriveni nazivi

Provjera dokumenata pronađena je skrivena imena u radnoj knjizi. Te nazive mogu pohraniti skrivene informacije o scenarijima rješavača. Ako, primjerice, pomoću dodatka Rješavatelj pokrenete scenarij, on može pohraniti informacije o parametrima izračuna i drugim osjetljivim podacima kao skrivenim nazivima u radnoj knjizi.

Važno: Microsoft nudi primjere programiranja samo za ilustraciju, bez jamstva ili izražena ili implicirana. To obuhvaća, ali nije ograničeno na implicirana jamstva o prodaji ili prikladnosti za određenu namjenu. U ovom se članku pretpostavlja da ste upoznati s programskim jezikom koji se pokazuje i alatima koji se koriste za stvaranje i ispravljanje pogrešaka u postupcima. Microsoftovi inženjeri za podršku mogu pomoći u objašnjavanju funkcionalnosti određenog postupka, ali neće izmijeniti ove primjere radi pružanja dodane funkcionalnosti ili procesa konstruiranja radi ispunjivanja specifičnih zahtjeva.

Problem

Provjera dokumenata ne može ukloniti ta skrivena imena.

Preporučeno rješenje

Pokrenite sljedeću makronaredbu da biste uklonili skrivena imena. Makronaredba prikazuje okvir s popisom tri stavke: (1) je li definirani naziv vidljiv ili skriven, (2) definirani naziv i (3) na što se taj naziv odnosi (referenca ćelije radne knjige). Ako želite izbrisati ili zadržati svaki definirani naziv, možete odabrati da ili ne .

Napomena: Ako koristite ovu makronaredbu da biste uklonili skrivena imena, dodaci (kao što je Rješavatelj) ili makronaredbe možda neće funkcionirati kao što je očekivano i možda će izgubiti skrivene podatke povezane s njima. Ova makronaredba utječe i na bilo koji definirani naziv koji je skriven, ne samo onih koje je dodao alat za rješavanje.

Oprez: Ako nazivi listova sadrže razmake, možda će vam se prikazati pogreška kada pokušate izbrisati definirani naziv.

Uklanjanje skrivenih naziva

' 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 je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Jesu li vam te informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku.​

Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×