[檔案檢查] 會在活頁簿中找到隱藏的名稱。 這些名稱可以儲存規劃求解案例的隱藏資訊。 例如，當您 使用規劃求解載 宏執行案例時，它可能會將計算參數和其他機密數據的相關信息儲存為活頁簿中的隱藏名稱。
重要: Microsoft 僅提供圖例的程式設計範例，不含明示或暗示的擔保。 這包括 (但不限於) 適用于特定目的之可操作性或適用性的暗示擔保。 本文假設您熟悉正在示範的程式設計語言，以及用來建立和進行程式偵錯工具的工具。 Microsoft 技術支援工程師可以協助說明特定程序的功能，但不會修改這些範例以提供附加功能或建構程序來滿足您的特定需求。
問題
[檔案檢查] 無法為您移除這些隱藏名稱。
建議解決方案
執行下列宏以移除隱藏的名稱。 宏會顯示一個消息框，其中列出三個專案： (1) 已定義的名稱是否為可見或隱藏、 (2) 定義的名稱，以及 (3) 該名稱參照 (活頁簿單元格參照) 。 您可以選擇 [ 是] 或 [ 否 ] 來刪除或保留每個已定義的名稱。
附註: 如果您使用此宏移除隱藏的名稱，載入宏 (例如規劃求解) 或宏可能無法如預期般運作，而且可能會遺失與它們相關聯的隱藏數據。 此宏也會影響隱藏的任何已定義名稱，不僅影響規劃求解所新增的名稱。
注意: 如果您的工作表名稱包含空格，當您嘗試刪除已定義的名稱時，可能會收到錯誤。
拿掉隱藏的名稱
' 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
