mk.samaha قام بنشر يناير 10, 2009 قام بنشر يناير 10, 2009 (معدل) عند عمل protect workbook اكواد الفيجوال بيسيك لا تعمل و عند الغاء الحمايه تعمل الاكواد هي يوجد حل لهذه المشكله حيث من الممكن ان يقوم اي احد بمسح اي شيت من الاسفل علي الرغم من اني وضعت حمايه بباسورد للدخول اللي الملف عن طريق الفيجوال بيسيك لكن عند عدم وضع الباسورد من الممكن حذف الشيت بأكمله و طبعا هذا بعد حذف الحمايه من protect workbook ارجو ان يكون هناك حل لهذه المشكله او اي حود لحمايه حذف او اخفاء الشيتات شكرا لتعاونكم جميعا تم تعديل يناير 10, 2009 بواسطه kemks
احمدزمان قام بنشر يناير 11, 2009 قام بنشر يناير 11, 2009 هذا الحل منقول بالنص من احد استاذنا القدير الفاضل ابو تامر الله يجزاه خير الجزاء وهو مجرب و فعال 100% حل مشكلة اعتراض حماية اورق الملف لتنفيذ الماكروهو الحل النهائى لهذه المشكلة والتى لايأتى بعده حلول نهائيا . كما نعرف جميعا انه عند حماية اوراق الملف وعند تنفيذ ماكرو به بعض الاوامر يتم اعتراض تنفيذها نتيجة الحماية ودائما الحل فى الدواء المكرر والمعاد دائما وهو رفع الحماية فى بداية عمل الماكرو ثم وضعها مرة اخرى فى نهايتة ولكن الحل هنا فى منتدى الاكسيل لاول مرة على مستوى المنتديات . وعلى سبيل المثال لا الحصر لهذه الاوامر التى تسبب توقف عمل الماكرو ادراج او الغاء صفوف او اعمدة تغير لون الخلية او لون الخط والكثير من الاحداث الاخرى التى تتوقف بسبب الحماية . فيلجأ البعض منا مما له دراية بالاكواد بعمل عدد 2 ماكرو منفصلين الاول يعمل على تنفيذ الحماية والثانى يعمل على الغاء الحماية ثم عند تصميم اى ماكرو يقوم بوضع اسم الماكرو الاول فى بداية المكرو الذى يقوم بتصميمة ويضع اسم الماكرو الثانى فى نهاية الماكرو الذى يقوم بتصميمة بمعنى فى حالة اعترض الحماية يجب رفع الحماية فى بدية الماكرو ثم اعادة وضع الحماية مرة اخرى فى نهاية هذا الماكرو حتى يتم تنفيذ هذا الماكرو بدون اعتراض . ولكن الاكسل وفر لنا الكثير والكثير ولكن العقبة هى عدم الوصول الى هذه المعرفة وكثرت مشاكل اعتراض الحماية لتنفيذ الماكرو الذى يحتوى على بعض الاوامر التى اشرت اليها فى بداية الحديث ولكن توجد اضافة لامر الحماية لم الحظ ان احدا يقوم بأستخدامها وهى الامر كود UserInterfaceOnly:=True التى توضع فى امر الحماية ويمكن بذلك تنفيذ اى ماكرو بدون اعتراض مسيو اكسيل وبخصوص هذا الامر عند حفظ الملف تفرض الحماية كاملة وينهى عمل هذا الاستثناء وعليه عند فتح الملف يجب الاعلان عن ان الحماية مشمولة بهذا الامر ولذلك يجب ادراج كود الحماية بأحد هاتين الطريقتين : اولا : اما عن طريق ماكرو التنفيذ التلقائى عند الفتح الذى ينفذ اى اوامر مدرجة به عند فتح الملف كود Sub AUTO_OPEN() ثانيا : عن طريق حدث فتح الملف الاتوماتيكى الذى ينفذ اى اوامر مدرجة به عند فتح الملف كود Private Sub Workbook_Open() فأذا اردنا ان يكون كود الحماية فى ماكرو الفتح (Sub AUTO_OPEN) يكون الماكرو على هذه الصورة بفرض ان كلمة السر هى (123) كود Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub اما اذا اراد المترسين بالاكواد بوضع كود الحماية فى حدث فتح الملف يكون على الشكل التالى بفرض ان كلمة السر هى (123) كود Private Sub Workbook_Open() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub بذلك يمكن تنفيذ اى ماكرو بدون اعترض وتتجنب تكرار فك الحماية فى بداية الماكرو ثم اعادتها مرة اخرى فى نهاية الماكرو مع تحياتى فى استخدام الاوامر التى لم نتطرق اليها قبل ذلك لاثراء معلوماتنا ومنتدانا بكنوز الاكسيل تم تحرير المشاركة بواسطة tameromar
أبوعبد الله قام بنشر يناير 11, 2009 قام بنشر يناير 11, 2009 أخي العزيز كل الشكر لأخي أحمد يعقوب وأستاذنا أبو تامر ، وهذه طريقة خاصة بطلبك تعطيل خاصية حذف وإخفاء الأوراق دون عمل حماية على الملف أرجو أن تكون مفيدة . تحياتي أبو عبدالله _____________________________________.rar
قطان قام بنشر يناير 11, 2009 قام بنشر يناير 11, 2009 على الرغم أني قدمت موضوعين بالخصوص لكن دون اجابة وفجأة ومن غامض علمه وبتوفيق من عنده هداني الله لهذا الموضوع مشكورين وجزاكم الله كل خير وفي ميزان حسناتكم أساتذة ما شاء الله ولا قوة إلا بالله والسلام ختام
mk.samaha قام بنشر يناير 12, 2009 الكاتب قام بنشر يناير 12, 2009 شكرا اخي علي تعبك يا اخي و ارجو ان يجعله الله في ميزان حسانتك
أبوعبد الله قام بنشر يناير 12, 2009 قام بنشر يناير 12, 2009 أخي الحبيب / أحمد يعقوب أشكرك أخي الحبيب على مرورك وكلماتك الطيبة وجزاكم الله كل خير واشكر الجميع . تحياتي أبو عبدالله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.