لن يعمل اكسل الا على كمبيوترك

[amir501]

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

وجزاكم الله كل خير

'In the "ThisWorkbook" section in the VBE you can use this code to check the

'computer ID and then unprotect the spreadsheet so that it can be edited.


Private Sub Workbook_Open()

If Not Environ("ComputerName") = "YourComputerName" Then

Application.Quit

End If

ActiveSheet.Unprotect Password:="YourPassword"

End Sub


then in the same section use ...


Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveSheet.Protect Password:="YourPassword", DrawingObjects:=False,

Contents:=True, Scenarios:=True

End Sub

[ياسر خليل أبو البراء]

الأخ الكريم أمير

إليك في الملف التالي تصحيح الكود - وإن كان سهلاً - كسر هذه الحماية

عموما أرفقت لك ملف ... عند فتحه قم باختيار Cancel ثم غير في السطر الأول من الكود اسم الكمبيوتر من SICOWIN إلى الاسم الظاهر لديك في A1 وإن شاء الله يعمل معك

أخوك أبو البراء

ProtectUsingComputerID.rar

[amir501]

الأخ الكريم أمير

إليك في الملف التالي تصحيح الكود - وإن كان سهلاً - كسر هذه الحماية

عموما أرفقت لك ملف ... عند فتحه قم باختيار Cancel ثم غير في السطر الأول من الكود اسم الكمبيوتر من SICOWIN إلى الاسم الظاهر لديك في A1 وإن شاء الله يعمل معك

أخوك أبو البراء

اخي الفاضل ابو البراء ..السلام عليكم ..شكرا لك على هذا الكود ولكن عند تشغيل الملف لم يظر لي في الخلية A1 اسم الكمبيوتر بل بقيت على حالها (SICOWIN )

علما اني استخدم وندوز 7 والاوفس 2003

اكرر شكري وامتناني لك اخوك عامر

[ياسر خليل أبو البراء]

أخ عامر

جرب تعمل دبل كليك في الخلية A1

[amir501]

أخ عامر

جرب تعمل دبل كليك في الخلية A1

اخي ابو البراء طبعا الصفحة كانت محمية بعد ازالة الحماية عنها جربت دبل كلك ضهرت لي الماعادة هذه (()=ReturnComputerName)

اخوك عامر

[ياسر خليل أبو البراء]

أيوا تمام المفروض تضغط إنتر يظهر اسم الكمبيوتر الخاص بك

قم بالدخول إلى محرر الأكواد صفحة الأكواد الخاصة بالمصنف ثم قم بتعديل الاسم SICOWIN إلى الاسم الذي ظهر لك (اسم الكمبيوتر الخاص بك)

[amir501]

اخي ابو البراء ضغطت انتر ولم يظهر لي اي شي شاهد الصورة المرفقة وجزاك الله كل خير

123.rar

[ياسر خليل أبو البراء]

أخي عامر

جرب الملف التالي وهي عبارة عن دالة تقوم باسترجاع اسم الكمبيوتر

جرب طريقة أخرى يدوياً لمعرفة اسم الكمبيوتر

على أيقونة My Computer على سطح المكتب اعمل كليك يمين ثم التبويب Computer Name ثم قم بقراءة اسم الكمبيوتر من الجزء Full Computer Name

ComputerName.rar

تم تعديل أغسطس 5, 2010 بواسطه YasserKhalil

[ابوخليل]

الله يعطيكم العافية

عمل جميل

بالنسبة للمثال الأول

يبدو ان هناك شيئا ما في الخلية A

غيرت الى الخلية b ، c وظهر اسم الكمبيوتر

اما المثال الآخر فــــ %