بنامج للتحكم فى اسماء النطاقات ل 2007 و 2003

[محمد مصطفى ابو حمزة]

يصعب الوصول الى او مسح الاسماء التى لم يعد لها اى استخدام مع هذا البرنامج التحكم سهل جداً

منقول من منتدى اجنبى

namemanager2007.zip

[محمد مصطفى ابو حمزة]

كود لمسح اسماء المدى الغير مستخدمة

Sub RidOfNames()

	Dim myName As Name

	Dim fdMsg As String

	On Error Resume Next

	fdMsg = ""

	For Each myName In Names

		If Cells.Find(What:=myName.Name, _

		  After:=ActiveCell, _

		  LookIn:=xlFormulas, _

		  LookAt:=xlPart, _

		  SearchOrder:=xlByRows, _

		  SearchDirection:=xlNext, _

		  MatchCase:=False, _

		  SearchFormat:=False).Activate = False Then

			fdMsg = fdMsg & myName.Name & vbCr

			ActiveWorkbook.Names(myName.Name).Delete

		End If

	Next myName

	If fdMsg = "" Then

		MsgBox "لايوجد اسماء فى هذا المصنف---- منتدى اوفيسنا-----"

	Else

		MsgBox "Names Deleted:" & vbCr & fdMsg

	End If

End Sub

تم تعديل مارس 19, 2012 بواسطه محمد مصطفى.2011

[Ahmed Elbhiry]

جميل مشاركات فعالة وبداية موفقة

[محمد مصطفى ابو حمزة]

شكرا مع انها ليست البداية انا فى هذا المنتدى من سنين لكنى كنت كسلان جدا ولكن عطاء المشرفين جعلنى اخجل من نفسى