Dolda namn hittades

Dokumentkontrollen hittade dolda namn i arbetsboken. Dessa namn kan lagra dold information om Problemlösaren-scenarier. Om du till exempel använder tillägget Problemlösaren för att köra ett scenario kan det lagra information om beräkningsparametrar och andra känsliga data som dolda namn i arbetsboken.

Viktigt!: Microsoft tillhandahåller programmerings exempel endast i syfte utan garanti vare sig eller underförstått. Detta inkluderar, men är inte begränsat till, underförstådda garantier avseende säljbar het eller lämplighet för ett visst ändamål. I den här artikeln förutsätts det att du känner till det programmeringsspråk som visas och hur du kan använda verktygen för att skapa och felsöka procedurer. Microsofts support tekniker kan förklara funktionerna för en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla funktioner eller konstruera procedurer som uppfyller dina särskilda krav.

Problem

Dokumentkontroll kan inte ta bort dessa dolda namn åt dig.

Rekommenderad lösning

Kör följande makro för att ta bort dolda namn. Makrot visar en meddelande ruta med tre objekt: (1) om det definierade namnet visas eller döljs, (2) det definierade namnet och (3) det namn som refererar till (arbets bokens cell referens). Du kan välja Ja eller Nej för att ta bort eller för att behålla varje definierat namn.

Obs!: Om du använder det här makrot för att ta bort dolda namn kanske tillägg (till exempel problemlösa ren) eller makron inte fungerar som förväntat och kan förlora dolda data som är kopplade till dem. Det här makrot påverkar också ett definierat namn som är dolt, inte bara de som har lagts till i problemlösa ren.

Varning!: Om kalkyl blads namnen innehåller blank steg kan du få ett fel meddelande när du försöker ta bort det definierade namnet.

Ta bort dolda namn

' 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

Obs!:  Den här sidan har översatts automatiskt och kan innehålla grammatiska fel och andra felaktigheter. Vår avsikt är att innehållet ska vara användbart för dig. Skulle du vilja svara på om informationen var till hjälp? Här är den engelska artikeln som en referens.

Behöver du mer hjälp?

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×