hanymoaty

السلام عليكم و رحمة الله ارجوكم محتاج مساعدتكم انا عامل ملف اكسيل فيه بعض البيانات والمفروض ان الملف يكون متاح على اجهزة معينه من خلال قراءة رقم الهارد و هكذا ، المشكله انه بمجرد ما الملف يتم فتح على الجهاز المصرح ليه يقدر صاحب الجهاز يعمل ملف جديد و يروح للملف بتاعي يسحب الداتا من عليه من خلال خاصية connect external table عن طريق الـ queries و طبعا يبقى كل الحمايه زي قلتها حاولت امنع ده مش بيتم منعه غير لو عملت للملف كلمة مرور و طبعا كده كده هتكون مع صاحب الجهاز المصرح ليه يعني برده زي قلتها ارجوكم محتاج حاجه تمنع الوصول للداتا بأنها تتسحب من خلال اي وسيله عاوزها تكون مستخدمة فقط على الملف نفسه ، ارجو الرد للأهمية القصوى و شاكر جدا لحضراتكم

متشكر جدااااااا تماااااااااااام الله يباركلك جرب تضع الكود التالي في موديول Sub LongLoop() Dim Counter As Long Application.EnableCancelKey = xlDisabled For Counter = 1 To 1000000000 'Nothing Next Counter End Sub ثم ضع السطر التالي في حدث المصنف Private Sub Workbook_Open() LongLoop End Sub ا طيب سؤال تاني معلش انا عامل الملف يقرا رقم البروسيسور ويمنع تشغيل الملف في غير تطابق الرقم بس في حالة عدم التطابق قبل ما يقفل بيسألني على الحفظ لو قلتله Cancel او دوست على علامة X بيفتح الملف عادي جدا عاوز اعالج الموضوع ده بعد اذنك ازاي ؟ كتر خير و شكرا جزيلا ليك

السلام عليكم و رحمة و الله عند بداية تشغيل الملف اقوم بالضغط المتعدد على مفتاح ESC فيقوم بتعطيل الماكرو و من ثم فتح الملف مع العلم انه في حالة إستكمال تشغيل الملف بالشكل الطبيعي سيتم التحقق من اكواد الماكرو و الحماية للملف فلن يتم فتحه ارجوكم الحل اريد حل لتعطيل مفتاح ESC عند الفتح او اريد حل اخر لعدم قدرة اي مستخدم على تعطيل الماكرو او اكود البرمجة الموجودة شكرا

شكرا جزاك الله خير

السلام عليكم و رحمة الله حاولت مراسلتك كمشرف بالمنتدى و لم يمكنني المنتدى من ذلك نشرت استفسار على اللينك التالي و لم يرد احد ارجو الحل جزاكم الله خيرا http://www.officena.net/ib/index.php?showtopic=53268&p=334461

السادة الأفاضل الأستاذ الفاضل ،، تحاتي قمت بإستخراج رقم الهارد في الخلية A1 عن طريق الكود و المعادبة التالية Function GetPhysicalSerial() As Variant Dim obj As Object Dim WMI As Object Dim SNList() As String, i As Long, Count As Long Set WMI = GetObject("WinMgmts:") For Each obj In WMI.InstancesOf("Win32_PhysicalMedia") If obj.SerialNumber <> "" Then Count = Count + 1 Next ReDim SNList(1 To Count, 1 To 1) i = 1 For Each obj In WMI.InstancesOf("Win32_PhysicalMedia") SNList(i, 1) = obj.SerialNumber i = i + 1 If i > Count Then Exit For Next GetPhysicalSerial = SNList End Function ووضع المعادلة الأتية في الخلية A1 =GetPhysicalSerial() وبعد ذلك وضعت الكود التالي لربط رقم الهارد بفتح الملف Private Const A As String = "A12533225" Private Const B As String = "B15223662" Private Const C As String = "TOSHIBA MK6476GSX" Private Sub Workbook_Open() Dim s As String With GetObject("winmgmts:\\.\root\CIMV2") For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) s = s & itm.Model Next itm End With If s = A Or s = B Or s = C Then MsgBox "تم مطابقة الهارد بنجاح ", vbInformation, "تفضل بالدخول" Else MsgBox "هذا البرنامج يعمل على أجهزة معينه فقط", vbInformation, "سيتم إغلاق البرنامج" With ActiveWorkbook .Close .Saved = True End With Exit Sub End If End Sub لكن في كل مره تظهر رسالة ان البرنامج يعمل على اجهزة معينة و معنى ذلك انني افتقد ربط هذا الكود بقراءة رقم الهارد الموجود في الخلية A1 علما بإن الأكواد و المعادلات هى من المشاركة الموجودة من السادة الأفاضل على اللينك الأتي http://www.officena.net/ib/index.php?showtopic=43800 ارجوكم الحل بإذن الله

الأستاذ الفاضل ،، تحاتي ِ عندما قمت بإستخراج رقم الهارد في الخلية A1 عن طريق وضع معادلة استخراجه في موديول و وضع المعادلة الخاصة به في الخلية A1 وبعد ذلك وضعت الكود الخاص بسيادتكم و لكن في كل مره يقرأ ان البرنامج يعمل على اجهزة معينة و معنى ذلك انني افتقد ربط هذا الكود بقراءة رقم الهارد الموجود في الخلية A1 فما الحل اثابكم الله

السلام عليكم ورحمة الله برجاء افادتي في الأتي عن طريق الأكواد اولا: اريد ان اجعل المعادلات مخفية ثانيا: اريد ان اجعل الخلايا و الورقة غير قابلة للنسخ ويرفض البرنامج ذلك و لكن مع الإحتفاظ بالقدرة على تشغيل الفلاتر ثالثا: اريد جعل الملف ملء الشاشة و عدم القدرة على استعادتها من قبل الأخرين رابعا: اريد جعل الملف محدد المدة ولو لمدة شهر مثلا او ايا كان السادة الأفاضل ارجوكم المساعدة على وجه السرعة افادكم الله

السلام عليكم ورحمة الله برجاء افادتي في الأتي عن طريق الأكواد اولا: اريد ان اجعل المعادلات مخفية ثانيا: اريد ان اجعل الخلايا و الورقة غير قابلة للنسخ ويرفض البرنامج ذلك و لكن مع الإحتفاظ بالقدرة على تشغيل الفلاتر ثالثا: اريد جعل الملف ملء الشاشة و عدم القدرة على استعادتها من قبل الأخرين رابعا: اريد جعل الملف محدد المدة ولو لمدة شهر مثلا او ايا كان السادة الأفاضل ارجوكم المساعدة على وجه السرعة افادكم الله

السلام عليكم و رحمة الله و بركاته اريد جعل الخلايا غير قابلة للنسخ مع الإحتفاظ بإمكانية تشغيل الفلاتر و ايضا اريد ان احمي الملف عامة و ايضا جعل الملف في وضعية كامل الشاشة مع عدم امكانية استعادته وايضا اريد كود لتحديد مدة تشغيل الملف لفترة معينة شكرا و اتمنى سرعة الرد