Pemeriksa Dokumen menemukan nama tersembunyi di buku kerja Anda. Nama ini dapat menyimpan informasi tersembunyi tentang skenario Solver. Misalnya, ketika Anda menggunakan add-in Solver untuk menjalankan skenario, add-in ini mungkin menyimpan informasi tentang parameter penghitungan dan data sensitif lainnya sebagai nama tersembunyi dalam buku kerja Anda.
Penting: Microsoft menyediakan contoh pemrograman untuk ilustrasi saja, tanpa jaminan baik tersurat maupun tersirat. Ini termasuk, tetapi tidak terbatas pada, jaminan tersirat dari kelayakan jual atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan men-debug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh ini untuk menyediakan fungsionalitas tambahan atau prosedur konstruksi untuk memenuhi persyaratan tertentu Anda.
Masalah
Pemeriksa Dokumen tidak bisa menghapus nama tersembunyi ini untuk Anda.
Solusi yang direkomendasikan
Jalankan makro berikut ini untuk menghapus nama tersembunyi. Makro menampilkan kotak pesan yang mencantumkan tiga item: (1) apakah nama yang ditentukan terlihat atau tersembunyi, (2) nama yang ditentukan, dan (3) apa yang dirujuk oleh nama itu (referensi sel buku kerja). Anda dapat memilih Ya atau Tidak untuk menghapus atau menyimpan setiap nama yang ditentukan.
Catatan: Jika Anda menggunakan makro ini untuk menghapus nama tersembunyi, add-in (seperti Solver) atau makro mungkin tidak berfungsi seperti yang diharapkan dan mungkin kehilangan data tersembunyi yang terkait dengannya. Makro ini juga mempengaruhi nama apa pun yang ditentukan yang tersembunyi, tidak hanya nama yang ditambahkan oleh Solver.
Perhatian: Jika nama lembar berisi spasi, Anda mungkin menerima kesalahan ketika mencoba menghapus nama yang ditentukan.
Hapus Nama Tersembunyi
' 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
