Applies ToExcel של Microsoft 365 Excel 2024 Excel 2021 Excel 2019 Excel 2016 Excel 2013

'מפקח המסמכים' מצא שמות מוסתרים בחוברת העבודה שלך. שמות אלה יכולים לאחסן מידע מוסתר אודות תרחישי Solver. לדוגמה, בעת שימוש בתוספת Solver להפעלת תרחיש, היא עשויה לאחסן מידע אודות פרמטרים של חישוב ונתונים רגישים אחרים כשמות מוסתרים בחוברת העבודה שלך.

חשוב: Microsoft מספקת דוגמאות תיכנות לאיור בלבד, ללא אחריות, מפורשת או משתמעת. הדבר כולל, אך אינו מוגבל לאחריות המשתמעת של סוחר או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התיכנות המודגמת, עם הכלים המשמשים ליצירת הליכים ולאתר באגים. מהנדסי התמיכה של Microsoft יכולים לעזור להסביר את הפונקציונליות של הליך מסוים, אך הם לא ישנו דוגמאות אלה כדי לספק פונקציונליות נוספת או לבנות הליכים שיסייעו לך לעמוד בדרישות הספציפיות שלך.

בעיה

למפקח המסמכים אין אפשרות להסיר שמות מוסתרים אלה עבורך.

הפתרון המומלץ

הפעל את המאקרו הבא כדי להסיר שמות מוסתרים. המאקרו מציג תיבת הודעה המפרטת שלושה פריטים: (1) אם השם המוגדר גלוי או מוסתר, (2) השם המוגדר, ו- (3) לשם שאליו מתייחס שם זה (ההפניה לתא של חוברת העבודה). באפשרותך לבחור כן אולא כדי למחוק או לשמור כל שם מוגדר.

הערה: אם אתה משתמש במאקרו זה כדי להסיר שמות מוסתרים, ייתכן שתוספת (כגון Solver) או פקודות מאקרו לא יפעלו כצפוי וייתכן שתאבד נתונים מוסתרים המשויכים אליהם. מאקרו זה משפיע גם על כל שם מוגדר המוסתר, ולא רק על השם שנוסף על-ידי Solver.

זהירות: אם שמות הגיליון שלך מכילים רווחים, ייתכן שתקבל שגיאה כאשר אתה מנסה למחוק את השם המוגדר.

הסרת שמות מוסתרים

' 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

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

גלה את יתרונות המנוי, עיין בקורסי הדרכה, למד כיצד לאבטח את המכשיר שלך ועוד.

קהילות עוזרות לך לשאול שאלות ולהשיב עליהן, לתת משוב ולשמוע ממומחים בעלי ידע עשיר.