Piilotettuja nimiä löytyi

Asiakirjan tarkastaminen löysi työkirjasta piilotettuja nimiä. Näissä nimissä voi olla piilotettuja tietoja Ratkaisimen skenaarioista. Kun esimerkiksi käytät Ratkaisin-apuohjelmaa skenaarion suorittamiseen, se voi tallentaa laskennan parametrien tietoja ja muita luottamuksellisia tietoja piilotettuina niminä työkirjaasi.

Tärkeää: Microsoft tarjoaa ohjelmointi esimerkkejä vain viitteille, ilman takuita, ilmaistuja tai implisiittisiä. Tämä sisältää rajoituksetta oletetut takuut kaupallisesta hyödynnettävyydestä tai sopivuudesta tiettyyn tarkoitukseen. Tässä artikkelissa oletetaan, että olet tutustunut osoitettuun ohjelmointi kieleen sekä työkaluihin, joita käytetään toiminto sarjojen luomiseen ja virheen korjaukseen. Microsoftin tuki henkilöt voivat auttaa selvittämään tietyn toiminto sarjan toimintoja, mutta ne eivät Muokkaa näitä esimerkkejä, jos ne lisäävät toimintoja tai luovat toiminto sarjoja, jotka vastaavat tarpeitasi.

Ongelma

Asiakirjan tarkastaminen ei voi poistaa näitä piilotettuja nimiä puolestasi.

Suositeltu ratkaisu

Poista piilotetut nimet suorittamalla seuraava makro. Makro näyttää sanoma ruudun, jossa on kolme kohdetta: (1) onko määritetty nimi näkyvä vai piilotettu, (2) määritetty nimi ja (3) nimi, joka viittaa (työkirjan solu viittaus). Voit valita Kyllä tai ei , jos haluat poistaa tai säilyttää kunkin määritetyn nimen.

Huomautus: Jos käytät tätä makroa piilotettujen nimien poistamiseen, apuohjelmat (kuten Ratkaisin) tai makrot eivät ehkä toimi odotetulla tavalla, ja niihin liittyviä piilotettuja tietoja voidaan menettää. Tämä makro vaikuttaa myös kaikkiin määritettyihin nimiin, jotka on piilotettu, eikä ainoastaan niihin, jotka Ratkaisin on lisännyt.

Varoitus: Jos taulukon nimessä on väli lyöntejä, näyttöön voi tulla virhe sanoma, kun yrität poistaa määritettyä nimeä.

Piilotettujen nimien poistaminen

' 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

Huomautus:  Tämä sivu on käännetty automaation avulla, ja siinä saattaa olla kielioppivirheitä tai epätarkkuuksia. Tarkoitus on, että sisällöstä on sinulle hyötyä. Kerrotko meille, oliko tiedoista hyötyä? Tästä pääset artikkelin englanninkieliseen versioon.

Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×