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 havainnollistamista varten ilman ilmaistua tai oletettua takuuta. Tämä sisältää muun muassa oletetut takuut soveltuvuudesta kaupankäynnin kohteeksi tai sopivuudesta tiettyyn tarkoitukseen.
Tässä artikkelissa oletetaan, että tunnet ohjelmointikielen, jota esitellään, sekä työkalut, joita käytetään toimintosarjojen luomiseen ja virheenkorjaukseen. Microsoftin tukihenkilöt voivat auttaa selittämään tietyn toimintosarjan toiminnallisuuden, mutta he eivät muokkaa näitä esimerkkejä tarjotakseen lisätoimintoja tai luodakseen toimintosarjoja, 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ää sanomaruudun, jossa on kolme tietoa: (1) onko määritetty nimi näkyvissä vai piilotettu, (2) määritetty nimi ja (3) mihin tämä nimi viittaa (työkirjan soluviittaus). Voit poistaa kunkin määritetyn nimen tai säilyttää sen 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 nimissä on välilyöntejä, näyttöön voi tulla virhesanoma, 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