Tijdens het uitvoeren van Documentcontrole zijn er verborgen namen in uw werkmap aangetroffen. Met deze namen kan verborgen informatie over Oplosser-scenario's worden opgeslagen. Als u bijvoorbeeld de invoegtoepassing Oplosser gebruikt voor het uitvoeren van een scenario, kunnen er gegevens over de berekeningsparameters en andere gevoelige gegevens zoals verborgen namen in de werkmap worden opgeslagen.
Belangrijk: Microsoft biedt programmeervoorbeelden uitsluitend ter illustratie, zonder uitdrukkelijke of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Microsoft-ondersteuningstechnici kunnen helpen bij het uitleggen van de functionaliteit van een bepaalde procedure, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten.
Probleem
Deze verborgen namen in de cache kunnen niet worden verwijderd met Documentcontrole.
Aanbevolen oplossing
Voer de volgende macro uit om verborgen namen te verwijderen. In de macro wordt een berichtvenster weergegeven met drie items: (1) of de gedefinieerde naam zichtbaar of verborgen is, (2) de gedefinieerde naam en (3) waarnaar die naam verwijst (de verwijzing naar de werkmapcel). U kunt Ja of Nee kiezen om elke gedefinieerde naam te verwijderen of te behouden.
Opmerking: Als u deze macro gebruikt om verborgen namen te verwijderen, werken invoegtoepassingen (zoals Oplosser) of macro's mogelijk niet zoals verwacht en gaan verborgen gegevens die eraan zijn gekoppeld verloren. Deze macro heeft ook invloed op elke gedefinieerde naam die verborgen is, niet alleen de namen die zijn toegevoegd door Oplosser.
Let op: Als uw bladnamen spaties bevatten, wordt er mogelijk een foutbericht weergegeven wanneer u probeert de gedefinieerde naam te verwijderen.
Verborgen namen verwijderen
' 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
