Gizli adlar bulundu

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 parametreleriyle ve diğer hassas verilerle ilgili bilgileri çalışma kitabınızda gizli adlar olarak depolayabilir.

Önemli: Microsoft, yalnızca gösterim için programlama örnekleri sunar, açık veya ima edilen garanti vermez. Bu, satılabilirlik veya belirli bir amaca uygunluk dahil olmak üzere örtülü garantileri içerir. Bu makalede, gösterilen programlama dilini ve yordamları oluşturmak ve hataları ayıklamak için kullanılan araçları kullanmayı bildiğiniz varsayılmaktadır. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak bu örnekleri, belirli gereksinimlerinizi karşılayacak ek işlevler veya yordamlar oluşturmak üzere değiştirmeyecektir.

Sorun

Belge denetçisi sizin için bu gizli adları kaldıramıyor.

Önerilen çözüm

Gizli adları kaldırmak için aşağıdaki makroyu Çalıştır. Makro üç öğe listeleyen bir ileti kutusu görüntüler: (1) tanımlı ad görünür veya gizli, (2) tanımlı ad ve (3) bu adın başvurduğu addır (çalışma kitabı hücre başvurusu). Herhangi bir tanımlı adı saklamak için Evet veya Hayır 'ı seçebilirsiniz.

Not: Gizli adları kaldırmak için bu makroyu kullanıyorsanı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ü ile eklenmemiş olan tanımlı adı etkiler.

Dikkat: Sayfa adlarınızdan boşluklar varsa, tanımlanan adı silmeye çalıştığınızda bir hata alabilirsiniz.

Gizli adları kaldırma

' 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

Not:  Bu sayfanın çevirisi otomasyon aracılığıyla yapılmıştır ve bu nedenle hatalı veya yanlış dil bilgisi kullanımları içerebilir. Amacımız, bu içeriğin sizin için faydalı olabilmesini sağlamaktır. Bu bilgileri yararlı bulup bulmadığınızı bizimle paylaşır mısınız? Kolayca başvurabilmek için İngilizce makaleye buradan ulaşabilirsiniz.

Office yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×