تخطي إلى المحتوى الرئيسي
Office

تم العثور علي أسماء مخفيه

عثر "مركز التحكم بالمستند" علي الأسماء المخفية في المصنف. يمكن لهذه الأسماء تخزين معلومات مخفيه حول سيناريوهات 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 لدينا.

×