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 menettelyn toiminnallisuuden, mutta he eivät muokkaa näitä esimerkkejä niin, että ne tarjoaisivat lisätoimintoja tai laativat menetelmiä erityisvaatimusten täyttämiseksi.
Ongelma
Asiakirjan tarkastaminen ei voi poistaa näitä piilotettuja nimiä puolestasi.
Suositeltu ratkaisu
Poista piilotetut nimet suorittamalla seuraava makro. Makrossa näkyy sanomaruutu, 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ää 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 laskentataulukoiden nimissä on välilyöntejä, saatat saada virhesanoman, kun yrität poistaa määritetyn nimen.
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
