kinguter1 قام بنشر نوفمبر 11, 2014 مشاركة قام بنشر نوفمبر 11, 2014 الأساتذة الأفاضل السلام عليكم ورحمة الله وبركاته أرجو تعديل الكود فى المرفق بحيث عند الفتح يقوم بإخال كلمة السر "as" وبعد تنفيذ الكود يقوم بحماية الأوراق بنفس كلمة السر "as" Book1.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 11, 2014 مشاركة قام بنشر نوفمبر 11, 2014 (معدل) تفضل أخى الكريم قمت بتثبيت الباسورد as ويجب ادخالها عند فتح الملف والا لن يعمل وعند ادخالها يتم فتح الملف وحماية جميع الاوراق بنفس هذه الكلمة خالص تحياتي Pass.rar تم تعديل نوفمبر 11, 2014 بواسطه ibn_egypt رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 11, 2014 الكاتب مشاركة قام بنشر نوفمبر 11, 2014 أخى العزيز ibn_egypt اشكرك على الرد ولكن ليس هذا هو المطلوب الملف المرفق به كود بعمل عند الفتح والمطلوب تعديل السطر ActiveSheet.Unprotect بحيث يضاف إليه الــ password داخل الكود حتى لا تظهر رسالة إدخال كلمة السر وتعديل السطر ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True بحيث يكون بنفس كلمة السر "as" المهم أن كلمة السر تكون داخل الكود وليست فى أوراق العمل رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 11, 2014 مشاركة قام بنشر نوفمبر 11, 2014 أخى العزيز ibn_egypt اشكرك على الرد ولكن ليس هذا هو المطلوب الملف المرفق به كود بعمل عند الفتح والمطلوب تعديل السطر ActiveSheet.Unprotect بحيث يضاف إليه الــ password داخل الكود حتى لا تظهر رسالة إدخال كلمة السر وتعديل السطر ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True بحيث يكون بنفس كلمة السر "as" المهم أن كلمة السر تكون داخل الكود وليست فى أوراق العمل تفضل أخى الكريم لعل هذا الملف به المطلوب خالص تحياتي Book1.rar رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 12, 2014 الكاتب مشاركة قام بنشر نوفمبر 12, 2014 الأستاذ العزيز ibn_egypt اشكرك شكرا جزيلا على الاهتمام وعلى هذا الكود الجميل ولكن السؤال هل ممكن كتابة الباسورد داخل الكود بالشكل التالى ActiveSheet.Unprotect.password = "as رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 12, 2014 مشاركة قام بنشر نوفمبر 12, 2014 الأستاذ العزيز ibn_egypt اشكرك شكرا جزيلا على الاهتمام وعلى هذا الكود الجميل ولكن السؤال هل ممكن كتابة الباسورد داخل الكود بالشكل التالى ActiveSheet.Unprotect.password = "as أخى الفاضل لا شكر على واجب .. ممكن طبعا ومرفق الملف خالص تحياتي Book1.rar رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 13, 2014 الكاتب مشاركة قام بنشر نوفمبر 13, 2014 الأستاذ العزيز ibn_egypt بارك الله فيك وزادك علماً نتيجة رائعة و أعطتنى نتائج طيبة مع السطر بهذا الشكل ActiveSheet.Protect ولكن مع السطر التالى اصبح السطر لونة أحمر ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True فأرجوا الإفادة تحياتى رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 13, 2014 مشاركة قام بنشر نوفمبر 13, 2014 الأستاذ العزيز ibn_egypt بارك الله فيك وزادك علماً نتيجة رائعة و أعطتنى نتائج طيبة مع السطر بهذا الشكل ActiveSheet.Protect ولكن مع السطر التالى اصبح السطر لونة أحمر ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True فأرجوا الإفادة تحياتى مش فاهم .. أرفق الملف أخى الكريم خالص تحياتي رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 14, 2014 الكاتب مشاركة قام بنشر نوفمبر 14, 2014 تفضل last.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 14, 2014 مشاركة قام بنشر نوفمبر 14, 2014 جرب أخي الملف التالي TestThis.rar رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 14, 2014 الكاتب مشاركة قام بنشر نوفمبر 14, 2014 الأستاذ العزيز YasserKhalil اشكرك على المرور على هذا الموضوع وارجو الاطلاع على المرفق الأخير last لآنى لا أريد حماية الورقة بالكامل ولكنى أريد التحكم فى إظهار وإخفاء الأعمدة والصفوف بدون فك الحماية رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 14, 2014 مشاركة قام بنشر نوفمبر 14, 2014 أخي الفاضل هذا هو الملف الذي قمت بتحميله ووجدت في الكود هذين السطرين بهما خطأ ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ("as") ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ("as") ما هي الأعمدة والصفوف التي تريد إخفائها ؟؟ رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 14, 2014 الكاتب مشاركة قام بنشر نوفمبر 14, 2014 الأستاذ العزيز YasserKhalil هذا الخطأ هو المشكلة وأريد تصحيح هذا السطر ليزول الخطأ لأننى عندا أكتب السطر بالشكل التالى لا يحدث خطأ ActiveWorkbook.Protect ("as") رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 14, 2014 مشاركة قام بنشر نوفمبر 14, 2014 أخي الفاضل لم أفهم طلبك إلى الآن .. الكود به خطأ وأنت تعرف كيفية تصحيحه . أين المشكلةإذن؟ سألتك عن الأعمدة والصفوف المراد إخفائها وعلى أي شرط تريد إخفائها؟ ... مزيد من التوضيح يقلل الوقت والجهد رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 14, 2014 الكاتب مشاركة قام بنشر نوفمبر 14, 2014 أخى الفاضل YasserKhalil أنا لو عارف اصحح الخطأ فلما اسأل حضرتك سألت عن الأعمدة والصفوف التى أريد إخفائها الإجابة أننى سوف أخفى وأظهر أعمدة وصفوف ليست محددة وذلك فى ظل حماية الورقة وللتوضيح أكثر قم حضرتك بإخفاء العمود A مثلا بعد فتح هذا المرفق ستجد أن أمر HIDE غير نشط ولذلك أربد تصحيح السطر الخطأ حتى يتيح لى حماية الورقة ويترك أمر HIDE نشط last1.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر نوفمبر 14, 2014 مشاركة قام بنشر نوفمبر 14, 2014 اخي الفاضل المشكلة بالفعل أنك لا تستطيع توضيح طلبك، فأتمنى أن تقوم بتوضيح طلبك قدر الإمكان حتى يتسنى لأى أخ فاضل مساعدتك كما أتمنى منك أن تضع طلباتك جملة واحدة ففي المرة الأولى طلبت الحماية وفقط .. ثم بعدها تريد الحماية الا تكتب داخل الورقة وبعدها تريد الحماية باستثناء اظهار الصفوف والأعمدة وتريد ان تخفى ما تريد .... وهكذا وخالص الشكر والإمتنان لأستاذنا ومعلمنا الفاضل أ.ياسر لمحاولته مساعدتك وبعد إذنه مرفق الملف لربما فيه طلبك خالص تحياتي last.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 14, 2014 مشاركة قام بنشر نوفمبر 14, 2014 تسلم يا ابن مصر .. بارك الله فيك أعتقد أن هذا هو طلب السائل الذي لم أفهمه إلا بعد أن قمت بتوضيح المسألة!! عذراً أخي kinguter1 أني لم أستطع مساعدتك !! رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر نوفمبر 15, 2014 الكاتب مشاركة قام بنشر نوفمبر 15, 2014 الإخوه الأفاضل اشكركم على الصبر وسعة الصدر وأذكر الأستاذ الفااضل ابن مصر بطلبى الأول والذى لم أطلب غيرة تاريخ المشاركة 11 November 2014 - 04:17 PM الأساتذة الأفاضل السلام عليكم ورحمة الله وبركاته أرجو تعديل الكود فى المرفق بحيث عند الفتح يقوم بإخال كلمة السر "as" وبعد تنفيذ الكود يقوم بحماية الأوراق بنفس كلمة السر "as" هذا للتذكير فقط وفى هذا لطلب لم أطلب نسخ ولا إخفاء ولا إظهار ولا كتابة الباسورد فى أحد الشيتات وكان المرفق لتعديل سطرين الحماية فقط وكنت أحاول فى كل رد أن أوضح ما فهمته حضرتك فى النهاية Sheet1.Protect Password:="as", DrawingObjects:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True وهو تعديل سطر الحماية بهذة الصورة فلك وللأستاذ ياسر جزيل الشكر والتقدير عذرا على إهدار وقتكما فى محولاتى لتوضيح طلبى رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 15, 2014 مشاركة قام بنشر نوفمبر 15, 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.