Administrer aftaler, planer, budgetter, det er nemt med Microsoft 365.

Skjulte navne blev fundet

Dokumentinspektion fandt skjulte navne i projektmappen. Disse navne kan gemme skjulte oplysninger om Problemløser scenarier. Hvis du for eksempel bruger tilføjelsesprogrammet Problemløser til at køre et scenarie, kan det gemme oplysninger om beregningsparametre og andre følsomme data som skjulte navne i projektmappen.

Vigtigt!: Microsoft leverer kun programmeringseksempler til at blive illustreret uden ansvar, hverken udtrykt eller stiltiende. Dette omfatter, men er ikke begrænset til, de stiltiende garantier for salgbarhed eller egnethed til bestemte formål. I denne artikel forudsættes det, at du kender det programmeringssprog, der bliver påvist, og med de værktøjer, der bruges til at oprette og udføre fejlfindingsprocedurer. Microsofts supportmedarbejdere kan hjælpe med at forklare funktionaliteten i en bestemt procedure, men de vil ikke ændre disse eksempler for at give tilføjet funktionalitet eller oprette procedurer, der opfylder dine specifikke krav.

Problem

Dokumentinspektion kan ikke fjerne disse skjulte navne for dig.

Anbefalet løsning

Kør følgende makro for at fjerne skjulte navne. Makroen viser et meddelelsesfelt, der viser tre elementer: (1) om det definerede navn er synligt eller skjult, (2) det definerede navn og (3) hvad det navn henviser til (projektmappens cellereference). Du kan vælge Ja eller Nej for at slette eller beholde hvert definerede navn.

Bemærk!: Hvis du bruger makroen til at fjerne skjulte navne, fungerer tilføjelsesprogrammer (f. eks. Problemløser) muligvis ikke som forventet og kan miste skjulte data, der er knyttet til dem. Denne makro påvirker også eventuelle definerede navne, der er skjult, ikke kun dem, der er blevet tilføjet i Problemløser.

Advarsel!: Hvis arknavne indeholder mellemrum, får du muligvis en fejl, når du forsøger at slette det definerede navn.

Fjern skjulte navne

' 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

Bemærk!:  Denne side er oversat ved hjælp af automatisering og kan indeholde grammatiske fejl og unøjagtigheder. Det er vores hensigt, at dette indhold skal være nyttigt for dig. Var disse oplysninger nyttige? Her er artiklen på engelsk, så du kan sammenligne.

Har du brug for mere hjælp?

Udvid dine Office-færdigheder
Gå på opdagelse i kurser
Få nye funktioner først
Bliv Office Insider

Var disse oplysninger nyttige?

Tak for din feedback!

Tak for din feedback! Det lyder, som om det vil kunne hjælpe, hvis du bliver sat i forbindelse med en af vores Office-supportteknikere.

×