اذهب الي المحتوي
أوفيسنا

موسوعة الاكواد


الردود الموصى بها

بسم الله الرحمن الرحيم

عمل زرى MAXIMIZEBOX_MINIMIZEBOX للفورم

Form_With_MAXIMIZEBOX_MINIMIZEBOX.rar

تم تعديل بواسطه أبو تامر
رابط هذا التعليق
شارك

السلام عليكم

ما شاء الله و تبارك الله

عمل رائع من أستاذ مبدع

من عنوان المشاركة( موسوعة الأكواد ) نتوقع أو ننتظر أو نأمل من حضرتك أن تمدنا بموسوعة للأكواد تغنينا عن كثرة الأسئلة

بارك الله فيك و جعله في ميزان حسناتك

10.gif

رابط هذا التعليق
شارك

عنوان قوي و رائع

بارك الله فيك اخي ابو تامر

و بانتظار ان تكتمل هذه الموسوعة على اكمل وجه

و دمتم في حفظ الله و رعايته

رابط هذا التعليق
شارك

منع النسخ من جهازك الى الفلاش او السي دى او هارد ديسك خارجى

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

مثل ::: الفلاش او السي دى او هارد ديسك خارجى او كروت الممورى الخارجية

لعمل ذلك نفذ ا لملف بالمرفقات المسمى ::: No 2 Copy

ثم اعد تشغيل الجهاز

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

واذا اردت ان تلغى هذا المنع نفذ الملف المسمى :: Yes 2 Copy

Copy_Control.rar

تم تعديل بواسطه أبو تامر
  • Thanks 1
رابط هذا التعليق
شارك

السلام عليكم

اخي العزيز ابو تامر

عذرا اخي

الملف المرفق في مشاركتكم السابقة

منع النسخ من جهازك الى الفلاش او السي دى او هارد ديسك خارجى

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

تاتيني رسالة تحذير من الانتي فيرس

و لاهمية الملف نرجو ا التاكد منه و من ثم تحميله مرة اخري

شاكرا لك اخي العزيز

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

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

الاخ aah_aah2008

لقد فحصت الملفين ب Kaspersky Anti-Virus 7.0

وهو محدث حتى تاريخه

ونتيجة الفحص تخلو من اى فيرس

انظر الصور

ولزيادة التأكد نرجو من الاخوة تأكيد ان الملفات بها فيرس ام لا

فأذا كانت مصايه بالفيرس يمكننى وضع الملفات بصور اخرى

post-10711-1222000106.jpg

post-10711-1222000114.jpg

رابط هذا التعليق
شارك

الملفين خاليين من الفيروسات كما قال الأستاذ / أبوتامر ،نتيجة الفحص بالكاسبر إنترنت سيكورتى إلا أن هناك بعض البرامج يختلط عليها الأمر وخاصة مع الملفات التى تأخذ الإمتداد exe فتراها وكأنها فيروس ، ومن هذه البرامج النود 32 وللتأكد من ذلك يمكن عمل ملف بامتداد exe ببرنامج الوينرار وفحصه ببرنامج النود 32 .

تم تعديل بواسطه aiman raya
رابط هذا التعليق
شارك

توضيح اخونا ايمن على ريا مضبوط

واضيف اليه ان اى ملف تنفيذ ذو مساحة صغيره بعض برامج الانتى فيرس تعتبره خطر ومحظور من باب زيادة الامان

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

شكرا لك اخى ايمن

كل عام وانتم طيبون

كنت فى البداية وضعت السورس كود لهذين الملفين

ثم استبدلتهم بملفات تنفيذيه لسب ان الملفين يتعاملان مع الريجسترى وسهل التعديل عليهم

فخشيت من خطأ التعديل مما يسبب سقوط نظام التشغيل وفضلت ان تكون ملفات تنفيذيه

رابط هذا التعليق
شارك




اعداد الجدول الزمنى للمشروعات
مخطط جانت



المرفق يشمل نوعين من الجداول الزمنية للمشروعات

الاول ::: مخطط عن كامل الفترة الزمنية

الثانى ::: مخطط عن المنفذ حتى تاريخ اليوم والغير منفذ

ويتبقى النوع الثالث واحاول تجهيزه وهو عن ( المنفذ كنسبة مئوية والغير منفذ )


Gantt_1.rar

رابط هذا التعليق
شارك

السلام عليكم

عذرا اخي ابو تامر قد اكون سببت لك قلقا و لكن هذا ما حدث معي و بمحاولة تنزيل الملف الخاص بــ

منع النسخ من جهازك الى الفلاش او السي دى او هارد ديسك خارجى

مرة اخري تاتيني رسالة من انتي فيرس Avast

ولو ان كلام الاخ ايمن فيه شيئ من الصحة و مقتنع به لكن لا اعرف ماذا اقول اصدقك

و لكن هذه هي الرسالة التي اتت و قد ارفقت صورة الرسالة لك

عموما عذرا مرة اخري و تقبل اسفي للازعاج

و انا نزلت الملف علي ضمانتكم

post-26094-1222071572.jpg

تم تعديل بواسطه aah_aah2008
رابط هذا التعليق
شارك

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

لا ازعاج اخى aah_aah2008

فأنت تسعى الى الصالح العام

فلا ازعاج اخى من ذلك

مع تحياتى

رابط هذا التعليق
شارك

اخى almaistro

لا اتجاهلك اخى العزيز

و عفوا اخى الالحاج غير مستحب

وخاصتا ان الموضوع هو خارج مجال الاكسيل ومتعلق بنظام التشغيل ( الريجسترى )

بالمفتاح التالى ::

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\storagedevicepolicies]
"writeprotect"

لتفعيل عدم النسخ يأخذ المفتاح القيمة 1

والقيمة صفر لإلغاء التفعيل

مع تحياتى

تم تعديل بواسطه أبو تامر
رابط هذا التعليق
شارك

حفظ الملف الحالى فى مسار او موقع محدد و مختلف عن الموقع الافتراضى للإكسيل

يتم تغير المسار المراد الحفظ فيه فى الكود التالى فى المتغير المسمى ( MyPath )

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Sub SaveMe()
'/=========================================
'/ يتم وضع مسار الحفظ كاملا فى المتغير التالى
MyPath = "C:\ATest\BackUpFile"
'/=========================================
MyFileName = ActiveWorkbook.Name
MakeSureDirectoryPathExists MyPath & "\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=MyPath & "\" & MyFileName
Application.DisplayAlerts = True
End Sub

SaveMe_In_Diffrent_Location.rar

  • Like 2
رابط هذا التعليق
شارك


إنشاء قوائم منسدلة مرتبطة متعددة المستويات
( مرفق مثال اربع مستويات مع فيدو لشرح المثال )
مع كود لتسمية العديد من النطاقات دفعة واحدة



المثال ::

___________________________________.rar

الشرح :::

شرح إنشاء قوائم منسدلة مرتبطة متعددة المستويات

شرح تسمية العديد من النطاقات دفعة واحدة
تم تعديل بواسطه أبو تامر
  • Thanks 1
رابط هذا التعليق
شارك

الأخ أبو تامر

كل عام و انت بألف الف خير

بارك الله فيك على هذا المجهود الرائع

و لكن اخي روابط تحميل الشرح غير مسموح بها

ارجو مراجعتها

و دمت في حفظ الله و رعايته

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information