Fant skjulte navn

Dokument inspeksjon fant skjulte navn i arbeids boken. Disse navnene kan inneholde skjult informasjon om scenariene i problem løseren. Når du for eksempel bruker tilleggs programmet problem løser til å kjøre et scenario, kan det lagre informasjon om beregnings parametere og andre sensitive data som skjulte navn i arbeids boken.

Viktig!: Microsoft gir bare programmerings eksempler for illustrasjon, uten garanti uttrykt eller indirekte. Dette inkluderer, men er ikke begrenset til, de IMPLISITTE GARANTIENE for salgbarhet eller egnethet for et bestemt formål. Denne artikkelen forutsetter at du er kjent med programmerings språket som vises, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kunde støtte teknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller lage prosedyrer for å oppfylle dine spesifikke krav.

Problem

Dokument inspeksjon kan ikke fjerne disse skjulte navnene for deg.

Anbefalt løsning

Kjør følgende makro for å fjerne skjulte navn. Makroen viser en meldings boks som viser tre elementer: (1) om det definerte navnet er synlig eller skjult, (2) det definerte navnet og (3) hva navnet refererer til (arbeids bok celle referansen). Du kan velge Ja eller Nei for å slette eller for å beholde hvert definerte navn.

Obs!: Hvis du bruker denne makroen til å fjerne skjulte navn, kan det hende at tillegg (for eksempel problem løser) eller makroer ikke fungerer som forventet og kan miste skjulte data som er knyttet til dem. Denne makroen påvirker også eventuelle definerte navn som er skjult, ikke bare de som ble lagt til av problem løseren.

Forsiktig!: Hvis ark navnene inneholder mellomrom, kan du få en feil melding når du prøver å slette det definerte navnet.

Fjerne skjulte navn

' 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!:  Denne siden er oversatt gjennom automatisering og kan inneholde grammatiske feil eller unøyaktigheter. Formålet vårt er at innholdet skal være nyttig for deg. Kan du fortelle oss om informasjonen var nyttig? Her er den engelske artikkelen for referanse.

Bli bedre på Office
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×