۩◊۩ أبو حنين ۩◊۩ قام بنشر أغسطس 31, 2013 مشاركة قام بنشر أغسطس 31, 2013 (معدل) السلام عليكم الاساتذة الكرام ..... الاخوة الكرام هلى من كود يمنع نسخ الملف او حذفه جزاكم الله خير تم تعديل سبتمبر 1, 2013 بواسطه دغيدى 1 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر سبتمبر 1, 2013 الكاتب مشاركة قام بنشر سبتمبر 1, 2013 السلام عليكم الاساتذة الكرام ... الاخوة الكرام هل من مجيب في ذلك الطلب ......؟ جزاكم الله خير رابط هذا التعليق شارك More sharing options...
أحمد فؤاد قام بنشر سبتمبر 1, 2013 مشاركة قام بنشر سبتمبر 1, 2013 السلام عليكم ورحمة الله وبركاته أخي العزير هذا كود لأحد الزملاء قد يفي غرضك إن شاء الله منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 1, 2013 مشاركة قام بنشر سبتمبر 1, 2013 الرجاء شرح أقسام الكود وكيف يعمل رابط هذا التعليق شارك More sharing options...
أحمد فؤاد قام بنشر سبتمبر 1, 2013 مشاركة قام بنشر سبتمبر 1, 2013 أخي أولا حدد مسار الملف الذي ستضع فيه الكود وضعه MyPath = "Z:\SHARED GENERAL" وكذلك إسم الملف MyFlName = "TEST-1.xls" ثم ضع هذين الكودين في ThisWorkbook Private Sub Workbook_Open() Dim MyPath As String MyPath = "Z:\SHARED GENERAL" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close End If Dim MyFlName As String MyFlName = "TEST-1.xls" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close End If End Sub Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim lReply As Long If SaveAsUI = True Then lReply = MsgBox("عفواً لايمكنك حفظ هذا الملف بإسم جديد .. هل تريد حفظ الملف بإسمه الحالي ؟", vbQuestion + vbOKCancel) Cancel = (lReply = vbCancel) If Cancel = False Then Me.Save Cancel = True End If رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 1, 2013 مشاركة قام بنشر سبتمبر 1, 2013 الرجاء مساعدتي في تطبيق الكود إسم الملف contra والمسار في القرص d رابط هذا التعليق شارك More sharing options...
أحمد فؤاد قام بنشر سبتمبر 2, 2013 مشاركة قام بنشر سبتمبر 2, 2013 أخي ريان في الجزء الخاص بإسم الملف سيكون MyFlName = "contra.xls" بإفتراض أن إمتداد الملف xls سيتم تسمية فولدر في D بإسم officena سيكون إمتداد الملف كالتالي MyPath = "d:\officena" وبقية الكود كما هو لن يتم به أي تغيير رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر سبتمبر 2, 2013 الكاتب مشاركة قام بنشر سبتمبر 2, 2013 السلام عليكم الاخ الكريم ...أحمد فؤاد جزاكم الله خير على الافاده رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 9, 2013 مشاركة قام بنشر سبتمبر 9, 2013 طبقت اللشرح ولم ينجح رابط هذا التعليق شارك More sharing options...
طائع قام بنشر سبتمبر 10, 2013 مشاركة قام بنشر سبتمبر 10, 2013 وأنا كذلك طبقت الشرح المبين ولكن تم قفل البرنامج نهائى ولم يفتح أبدا مع محاولاتى الكثيرة رابط هذا التعليق شارك More sharing options...
أبو شرف قام بنشر سبتمبر 10, 2013 مشاركة قام بنشر سبتمبر 10, 2013 اخواني الأعزاء لاهمية الموضوع بالنسبة لنا ولكثيرين من الأعضاء الكرام نرجوا من احد الأخوة ان يضع لينا شرح بالفديو لو امكن . لتعم الفائدة ونتعرف على كيفية استخدام هذا الكود البديع لان بصراحة جربنا وحاولنا ولا فائدة لم نستطيع تطبيق الكود حيث الملف لا يعمل نهائي بعد ادراج الكود وحسب التعليمات اعلاه تمنياتي للجميع بدوام الصحة ولمزيد من العطاء . مع التقدير اخوكم ابو شرف رابط هذا التعليق شارك More sharing options...
أحمد فؤاد قام بنشر سبتمبر 11, 2013 مشاركة قام بنشر سبتمبر 11, 2013 السلام عليكم ورحمة الله وبركاته أخي ريان أحمد أخي هاني أبو أدهم أخي أبو شرف جربت الملف والكود أكثر من مرة والكود شغال تمام بس في تنويه أولا : وهو إمتداد ملف الإكسل لابد أن يكون مطابق في الكود أي xls أو xlsx أو xlsb وهكذا ثانيا : وهو مكان الملف لابد يكون مطابق لما في الكود وسيكون الملف جاهز أخوكم : أحمد فؤاد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 13, 2013 مشاركة قام بنشر سبتمبر 13, 2013 لم ينجح رابط هذا التعليق شارك More sharing options...
أبو شرف قام بنشر سبتمبر 13, 2013 مشاركة قام بنشر سبتمبر 13, 2013 اخواني الأعزاء هذا الموضوع مهم جدا الفائدة للجميع هل بالأمكان من اي عضو او مشرف ان يضع لنا شرح بالفديو للعملية لان حاولت كثيرا وطبقت كل ما مكتوب ودون جدى الملف لا يفتح عندي مع التقدير رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 13, 2013 مشاركة قام بنشر سبتمبر 13, 2013 السلام عليكم هذا مثال على الكود مثال.rar رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 14, 2013 مشاركة قام بنشر سبتمبر 14, 2013 (معدل) حربت الخطوات ولم تنجح ---أستاذي عندي طلب مساعدة أرسلتها لك على الخاص تم تعديل سبتمبر 14, 2013 بواسطه ريان أحمد رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 15, 2013 مشاركة قام بنشر سبتمبر 15, 2013 للرفع رابط هذا التعليق شارك More sharing options...
kmgh قام بنشر سبتمبر 18, 2013 مشاركة قام بنشر سبتمبر 18, 2013 السلام عليكم هذا مثال على الكود السلام عليكم شكراً على الكود لقد نجحت العملية ولكن لي طلب وهو كيف يمكنني حماية الكود برقم سري حتى لايتم التعديل عليه لاحقاً. وشكراً رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 18, 2013 مشاركة قام بنشر سبتمبر 18, 2013 طبقت الخطوات ولم ينجح الرجاء الشرح بالفيديو رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 20, 2013 مشاركة قام بنشر سبتمبر 20, 2013 up رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر سبتمبر 27, 2013 مشاركة قام بنشر سبتمبر 27, 2013 up رابط هذا التعليق شارك More sharing options...
ابو مازن المصري قام بنشر أكتوبر 25, 2013 مشاركة قام بنشر أكتوبر 25, 2013 (معدل) السلام عليكم الاساتذة الكرام ..... الاخوة الكرام هل من كود يمنع تنقل الخليةالتي ادخال البيانات فيها الي الخليةالتالية بعد الضغط علي Enter بشرط يتم تنفيذه علي الملف فقط وليس الاكسيل ككل تم تعديل أكتوبر 25, 2013 بواسطه mohammd goda رابط هذا التعليق شارك More sharing options...
hussein elrashedy قام بنشر أكتوبر 2, 2014 مشاركة قام بنشر أكتوبر 2, 2014 طبقت ماسبق طلع الكلام مضبوط ولكن المشكلة فى ضبط امان الماكرو رابط هذا التعليق شارك More sharing options...
hussein elrashedy قام بنشر أكتوبر 2, 2014 مشاركة قام بنشر أكتوبر 2, 2014 طبقت ماسبق طلع الكلام مضبوط ولكن المشكلة فى ضبط امان الماكرو رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.