هشام جمال الدين

افضل طريقة لتامين ملف الاكسل من النقل او النسخ على اجهزه اخرى

انا عملت ملف اكسيل وامنته بالكود المرفق بس لما الكود بيشتغل ويلاقى البيانات غلط بيقفل ولو احتجت افتحه بفتح ملف اكسيل اخر وافتح فايل واضغط شيفت واختار الملف بيفتح معايا عادى جدا فانا محتاج اامنه اكتر من كدا ' كود التحقق من الخلايا B5000 و A5000 Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("List") ' تأكد من أن اسم الشيت هو "List" If ws.Range("B5000").value <> ws.Range("A5000").value Then ' إذا كانت القيم غير متساوية، يتم حفظ الملف وإغلاقه ThisWorkbook.Save ThisWorkbook.Close SaveChanges:=False Exit Sub End If ' خلية رقم A5000 فيها المعادلة دى ' =INFO("DIRECTORY") & " | " & INFO("OSVERSION") ' كود التحقق من اسم الجهاز Dim MachineName As String MachineName = Environ("COMPUTERNAME") If MachineName <> "DESKTOP-B76NADI" Then MsgBox "لا يمكنك فتح هذا الملف على هذا الجهاز.", vbCritical ' حفظ الملف قبل الإغلاق ThisWorkbook.Save ' إغلاق الملف ThisWorkbook.Close SaveChanges:=False Exit Sub End If

انا عدلته بالكود ده Dim MachineName As String MachineName = Environ("COMPUTERNAME") If MachineName <> "DESKTOP-B76NADI" Then MsgBox "لا يمكنك فتح هذا الملف على هذا الجهاز.", vbCritical ' حفظ الملف قبل الإغلاق ThisWorkbook.Save ' إغلاق الملف ThisWorkbook.Close SaveChanges:=False End If

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

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

هل عشان اتعمله واعمل فروم وصفحات .لازم اكون خبرة فى البرمجة لان انا ليس لدى اى خبرة فى البرمجة كيف اتعمله اى فديوهات اشاهدها شكرا جزيلا

عندى برنامج مضممة على اكسيل وخلاص خلصته وعاوز اعمل صفحة صلاحيات وكدة فالمهم نزلت شيت صلاحيات من هنا من الموقع لكن لما بدمجهم مع بعض بيتم عمل مشاكل فى تشيغل الاكواد اى الحل ؟ مرفق شيت الصلاحيات شاشة الدخول مع صلاحيات المستخدمين (1).xlsb

السلام عليكم الله ينور عمل محترم لدى استفسار اين يتم حفظ الفواتير التى تم اصدارها ؟

عندى معادلة عاوز اعملها بس مش عارف .. عندى رقم 30 عايز اعملة 2 اوس كام يدينى اقرب رقم للــ 30 بس يكون اكبر من 30 او يساوى 30 وليس اقل ... (( 2 ^ ؟؟؟؟؟ ) = 30 أو اكبر ) عاوز اكتب الرقم اللى هو 30 وهو يطلعلى قيمة الاوس ^ وشكرا

شكرا جزيلا هل ممكن الشرح فديو ولكم جزيل الشكر

السلام عليكم .. هل يوجد شرح يوضح كيفية مشاركة قاعدة بيانات اكسس على ويندوز سيرفر 2012 او 2008 لكى يعمل عليه جميع الاشخاص بالموقع . وشكرا جزيلا

السلام عليكم أساتذتى الكرام أرجو التكرم والتعطف على مساعدتى فى الأتى ... على الرغم أنى أخطأت ولم أرفع ملف موضح لذلك أرجو السماح من فضلكم هل يمكن تقسيم رقم 5 على 5 خلايا فى الاكسيل بحيث كل خلية تاخذ رقم 1 حتى يصبح المجموع 5 وشكرا

اذا امكن تفعيل هذا الكود Private Sub Worksheet_change (ByVal Target As Range) On Error GoTo zz If Target.Column = 2 And Target.Value <> "" Then Application. EnableEvents = False Target.offset (0, -1) = Format (Now (), "dd-mm-yyyy hh:mm:ss") Application.EnableEvents = True End If zz: End Sub

الرجاء اضافة كود عند ادخال بيانات فى عمود كود الحضور يتم اضافة الوقت فى عمود موعد الحضور وكذلك الانصراف وكود لكتابة التاريخ تلقائى فى عمود التاريخ ايضا بمجرد كتابة كود الحضور وشكرا جزيلا كود تفعيل الوقت والتاريخ.xlsx

حسن على جزاكم الله خيرا