Nama tersembunyi ditemukan

Pemeriksa Dokumen menemukan nama tersembunyi di buku kerja Anda. Nama-nama ini dapat menyimpan informasi tersembunyi tentang skenario Solver. Misalnya, saat Anda menggunakan add-in Solver untuk menjalankan sebuah skenario, Solver mungkin menyimpan informasi tentang parameter perhitungan dan data sensitif lainnya sebagai nama tersembunyi di buku kerja Anda.

Penting: Microsoft menyediakan contoh pemrograman untuk ilustrasi saja, tanpa jaminan baik secara tersurat maupun tersirat. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan bahasa pemrograman yang sedang ditunjukkan dan dengan alat yang digunakan untuk membuat dan melakukan debug prosedur. Teknisi dukungan Microsoft bisa membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh-contoh ini untuk menyediakan fungsionalitas tambahan atau prosedur konstruktif 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 tersebut (referensi sel buku kerja). Anda dapat memilih Ya atauTidak 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 setiap nama yang ditentukan yang tersembunyi, bukan hanya nama yang ditambahkan oleh Solver.

Perhatian: Jika nama lembar berisi spasi, Anda mungkin akan menerima pesan kesalahan ketika mencoba menghapus nama yang ditentukan.

Menghapus 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

Perlu bantuan lainnya?

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

×