נמצאו שמות מוסתרים

מפקח המסמכים מצא שמות מוסתרים בחוברת העבודה שלך. שמות אלה יכולים לאחסן מידע מוסתר אודות תרחישים של 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

הערה:  דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. תוכל לספר לנו אם המידע היה מועיל? הנה המאמר באנגלית לעיונך.​

שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×