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

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

انا عملت ملف اكسيل وامنته بالكود المرفق بس لما الكود بيشتغل ويلاقى البيانات غلط بيقفل ولو احتجت افتحه بفتح ملف اكسيل اخر وافتح فايل واضغط شيفت واختار الملف بيفتح معايا عادى جدا فانا محتاج اامنه اكتر من كدا ' كود التحقق من الخلايا 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

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

برنامج.xlsm

اريد عند اضافة نفس الصنف يتم زيادة الكمية وليس تكرار اسم الصنف وشكرا برنامج.xlsb

السلام عليكم اريد كود يمنع الوقف او تحديد خلايا شيت الاكسيل ماعد الخلايا المحددة وشكرا جزيلا Book2.xlsx

جزاكم الله خيرا عبدالفتاح في بي اكسيل

اخى الفاضل هل يمكن اضافتها للملف

السلام عليكم اريد تسريع عملية البحث فى الليست بوكس حيث انها بطيئة جدا وتعمل على تهنيج الملف وايضا ضبط حجم العمود فى الليست بوكس وشكرا ليست بوكس بحث.xlsb

عفوا اخى الفاضل Ali Mohamed Ali الكود لايعمل جيداا اريد الكود يعمل تلقائى عند فتح الملف

السلام عليكم أساتذتى الكرام أرجو التعطف على مساعدتى فى ايجاد كود منع تظليل الخلايا ... ولكم جزيل الشكر Book1.xlsm

شكرا اخى الفاضل Ali Mohamed Ali وايضا تم التوصل لهذا الكود للاستفادة منه In the ThisWorkbook code sheet: Private Sub Workbook_Open() toggleDragAndDrop End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) toggleDragAndDrop xx:=False End Sub Private Sub toggleDragAndDrop(Optional xx As Boolean = True) Static yy As Boolean, zz As Boolean With Application If xx Then yy = .CellDragAndDrop zz = .AlertBeforeOverwriting .CellDragAndDrop = False Else .CellDragAndDrop = yy .AlertBeforeOverwriting = zz End If End With End Sub

كود اخفاء وتعطيل اداة السحب