خالد الشاعر

اشكرك استاذ رياض معلومة مفيدة ولكن عندى جدول بيانات لا يريد الفتح هل هذا حماية ب SQL ام ماذا جزاك الله خيراًً

السادة الخبراء سؤال فى الحماية الاكسس مع ال سكول كيفية حماية الاكسس مع سكول ولكم كل الشكر

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

للرفع

استاذ اسامة اشكرك على الاهتمام و الرد انا معى كلمة السر بتاعت ال Admin و الشخص الذى نفذ البرنامج غير موجود وانا لا اريداخذ حق حد لان البرنامج مدفوع حقة ولكنى لم اعثر على المهندس بسبب سفرة فا اريد المساعدة فى التعديل وشكراً

صباح الفل عليكم جميعاًاسف اذا كنت بطلب بتكرارولكن فعلن الموضوع مهم جداًبرجاء الافادة هل ممكن ام لاكيفية الدخول باسم ال Adminولكم جزيل الشكر

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

السادة خبراء الآكسس انا خبرتى ضعيفة فى الاكسس وعندى قاعدة بيانات اريد استخدامها و التعديل فيها ولكن الاخ الذى نفذها هو المسئول فى قاعدة البيانات فكيف اغير هذا المسئول ولكم جزيل الشكر

الاساتذة خبراء منتدى البور وينتانا عندى عمل على سى دى اريد حمايتة يوجد فى اكسل حماية بطريقة معرفة رقم الهرد ديسكفهل فى البور بوينت هذه الامكانيةPrivate Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As LongPrivate Declare Function GetSerialNumber Lib "DiskSerial.dll" (ByVal nDrive As Integer, ByVal lpBuffer As String) As LongSub RunMe()Dim MyDrive As StringWhoMe = "SystemDrive"MyDrive = String(255, 0)[A200] = ""GetEnvironmentVariable WhoMe, MyDrive, Len(MyDrive)If InStr(1, MyDrive, Chr(0)) > 0 Then MyDrive = Left(MyDrive, 2)End IfMySource = ThisWorkbook.Path & "\DiskSerial.dll"MyDestination = MyDrive & "\WINDOWS\system32\DiskSerial.dll"If Dir(MyDestination) = "" Then FileCopy MySource, MyDestination If Application.Wait(Now + TimeValue("0:00:03")) Then GetMeElse GetMeEnd IfEnd SubSub GetMe()Dim MySer As String * 99Call GetSerialNumber(0, MySer)Sheets("Welcom").[A200] = MySerEnd Sub

استاذى سالم شبانة يوجد فى تنسيق خلية مخصص هذا التنسيق للصفر _-* #,##0_-;_-* #,##0-;_-* "-"_-;_-@_- يعطى قيمة - شرطة لما تكون قيمة الخلية صفر ولكن تكون على جانب مش فى وسط الخلية فهل يوجد علاج لهذا المشكلة

استاذى العزيز مزال اذا كتبت فى اى خلية صوت يعمل ولكن الجديد ان النطق بالرقم اشتغل وفقك الله لستفدة الجميع

استاذ جمال تسلم ودائماً فى تقدم لى سؤال لو سمحت عندى خلية ناتج بتاعها صفر 0 كيف اجعلها اذا الناتج صفر يكون تنسقها - شرطة واذا رقم يظهر عادى ولك الف شكر

الاستاذ / زياد ملف رائع تسلم ايدك وفكرة جديدة لكن لو جربت تكتتب رقم اكبر من 10 فى اى خلية من الشيت سو ف يعطى تنبية الصوت وليس فى الخلية A - B - C - D ولى سؤال اخر هل ممكن تكون هذه الوظيفة على اكثر من عمود متفرقين برقم مختلف مثال العمود A الرقم الاقصى 10 و العمود G الرقم 25 و هكذا ولك كل الشكر

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

استاذ ابو هاجر انا اعرفك من اعمالك الممتازة عودة سالمة ولا تغيب عنا تانى حمد الله على السلامة

استاذ ابو عيد الله<BR><BR>حاول ترتيب العمود A<BR><BR>ما حل هذه المشكلة<BR><BR>شكرا

استاذ طارق عمل ممتاز وفكرة جميلة جداً تسلم ايدك

يا خبراء المنتدى هل يوجد حل لهذه المشكلة ولكم جزيل الشكر

استاذ newa المشكلة تكمن فى الاسماء الرئيسية التى معمول لها ارتباط فى باقى اللملف نسيت ادراج اسم فى الوسط علشان اعمل ادراج للاسم هى دى المشكلة فهل لها حل

اعتذر الملف مرفق ارتباط اخر 1.rar

تم التوضيح فى الملف المرفق القص يكون فى صفحة المصدر كما موضح وشكرا

استاذى العزيز المشكلة فى القطع و الصق وليس النسخ وشكراً

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

استاذ abuzzouz لو تقصد تصغير اكسل كله و وضعة فى البار هذا الامر يفى بالغرضApplication.WindowState = xlMinimized

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