Belge Denetçisi çalışma kitabınızda gizli adlar buldu. Bu adlar Çözücü senaryolarıyla ilgili gizli bilgileri depolayabilir. Örneğin, bir senaryoyu çalıştırmak için Çözücü eklentisini kullandığınızda , hesaplama parametreleri ve diğer hassas veriler hakkındaki bilgileri çalışma kitabınızda gizli adlar olarak depolar.
Önemli: Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; açık veya zımni hiçbir garanti vermez. Bu, satılabilirlik veya belirli bir amaca uygunluk ile ilgili zımni garantileri içerir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama diline ve prosedürler oluşturmak ve prosedürlerde hata ayıklamak için kullanılan araçlara aşina olduğunuzu varsaymaktadır. Microsoft destek mühendisleri belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir, ancak özel gereksinimlerinizi karşılamak için ek işlevler sağlamak veya yordamlar oluşturmak için bu örnekleri değiştirmezler.
Sorun
Belge Denetçisi bu gizli adları sizin için kaldıramaz.
Önerilen çözüm
Gizli adları kaldırmak için aşağıdaki makroyu çalıştırın. Makro üç öğeyi listeleyen bir ileti kutusu görüntüler: (1) tanımlı adın görünür mü yoksa gizli mi olduğu, (2) tanımlı ad ve (3) bu adın başvurduğu ad (çalışma kitabı hücre başvurusu). Her tanımlı adı silmek veya korumak için Evet veya Hayır'ı seçebilirsiniz.
Not: Gizli adları kaldırmak için bu makroyu kullanırsanız, eklentiler (Çözücü gibi) veya makrolar beklendiği gibi çalışmayabilir ve bunlarla ilişkili gizli verileri kaybedebilir. Bu makro, yalnızca Çözücü tarafından eklenenleri değil, gizli olan tanımlı tüm adları da etkiler.
Dikkat: Sayfa adlarınız boşluk içeriyorsa, tanımlı adı silmeyi denediğinizde bir hata alabilirsiniz.
Gizli Adları Kaldır
' 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