Belge Denetçisi çalışma kitabınızda gizli adlar buldu. Bu adlar Çözücü senaryolarıyla ilgili gizli bilgileri depolar. Örneğin, bir senaryoyu çalıştırmak için Çözücü eklentiyi kullanırsanız, hesaplama parametreleri ve diğer hassas veriler hakkında bilgileri çalışma kitabınızda gizli adlar olarak depolar.

Önemli: Microsoft, açık veya zımni garanti olmaksızın yalnızca çizim için programlama örnekleri sağlar. Bu, ticarete uygunluk veya belirli bir amaca uygunluk ile ilgili zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makalede, göstermekte olan programlama dilini ve yordamları oluşturmak ve hata ayıklamak için kullanılan araçlar hakkında bilgi sahibi olduğunuz varsaymaktadır. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir, ancak bu örnekleri değiştirerek sizin özel gereksinimlerinizi karşılayacak ek işlevler veya yapı yordamları sağlamazlar.

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, üç öğenin listelandığı bir ileti kutusu görüntüler: (1) tanımlı adın görünür veya gizli olup olmadığı, (2) tanımlı ad ve (3) bu adın neye başvurduğu (çalışma kitabı hücre başvurusu). Her tanımlı adı silmek veya tutmak için Evet veya Hayır'ı seçebilirsiniz.

Not: Bu makroyu gizli adları kaldırmak için kullanırsanız, eklentiler (Çözücü gibi) veya makrolar beklendiği gibi çalışmayabilirsiniz ve ilişkili gizli verileri kaybedebilirler. Bu makro, yalnızca Çözücü tarafından eklenenleri değil, gizli olan tanımlı adı da etkiler.

Dikkat: Sayfa adlarınızı boşluklar içeriyorsa, tanımlı adı silmeyi denerken 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

Daha fazla yardıma mı ihtiyacınız var?

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Microsoft Insider 'a katılın

Bu bilgi yardımcı oldu mu?

Çeviri kalitesinden ne kadar memnunsunuz?

Deneyiminizi ne etkiledi?

Başka geri bildirim göndermek istiyor musunuz? (İsteğe bağlı)

Geri bildiriminiz için teşekkür ederiz!

×