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 ohjelmointiesimerkkejä vain kuvitusta varten ilman nimenomaista tai oletettua takuuta. Tämä sisältää epäsuorat takuut soveltuvuudesta kaupankäynnin tarkoituksessa tai sopivuudesta tiettyyn tarkoitukseen, mutta ei rajoittuen. Tässä artikkelissa oletetaan, että olet tutustunut käytössäsi olevan ohjelmointikielen sekä työkaluihin, joita käytetään ohjelmien luomiseen ja virheenkorjaukseen. Microsoftin tukihenkilöt voivat auttaa selittämään tietyn toimintosarjaan liittyvät toiminnot, mutta he eivät muokkaa näitä esimerkkejä, jotta ne tarjoavat lisätoimintoja tai -menettelytapoja, jotka vastaavat tarpeitasi.

Ongelma

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

Suositeltu ratkaisu

Poista piilotetut nimet suoritamalla seuraava makro. Makro näyttää sanomaruudun, jossa on kolme kohdetta: (1) onko määritetty nimi näkyvissä vai piilotettu, (2) määritetty nimi ja (3) se, mihin nimi viittaa (työkirjan soluviittaus). Voit poistaa tai säilyttääkunkin määritetyn nimen valitsemalla Kyllä tai Ei.

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älilyöntejä, näyttöön voi tulla virheilmoitus, 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

Tarvitsetko lisäohjeita?

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

Oliko näistä tiedoista hyötyä?

Kuinka tyytyväinen olet käännöksen laatuun?

Mikä vaikutti kokemukseesi?

Haluatko antaa lisäpalautetta? (Valinnainen)

Kiitos palautteestasi.

×