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

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

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






 ' كود التحقق من الخلايا 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

السلام عليكم الله ينور عمل محترم

لدى استفسار 

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

شكرا جزيلا

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

ولكم جزيل الشكر

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

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