ريان أحمد قام بنشر أبريل 23, 2013 مشاركة قام بنشر أبريل 23, 2013 السلام عليكم عندي برنامج يحتوي على عدة أوراق وفيه كثير من الدوال أريد بكود يخفي المعادلات ويمنعها من التعديل ووإخفائها مرة واحدة رابط هذا التعليق شارك More sharing options...
عزيز عرابي قام بنشر أبريل 23, 2013 مشاركة قام بنشر أبريل 23, 2013 (معدل) الأخ ريان بالنسبة لاخفاء المعادلات بالشكل اليدوي يتم على الشكل التالي : بالدخول علي الخلية الموجود بها المعادلة وعمل كليكة يمين ومن ثم إختيار : تنسيق (Format) > خلايا (Cells) > حماية (Protection) > إختيار مربعات الإختيار Locked و Hidden وننقر زر ok ثم من قائمة الأدوات نختار Protection ثم Protection Sheet ثم نكتب كلمة السر أما إذا أردت فك الحماية فقم بعمل التالي: ويتم فك الحماية من قائمة الأدوات > إلغاء حماية ورقة Unprotect Sheet حيث يتم السؤال عن كلمة السر أما الكود فهو التالي : Sub Hide() Selection.Select Selection.Locked = True Selection.FormulaHidden = True Sheets("الورقة1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub تم تعديل أبريل 23, 2013 بواسطه عزيز عرابي رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 24, 2013 الكاتب مشاركة قام بنشر أبريل 24, 2013 شكرا لك أخي لكن أريد كل الورقات دفعة واحدة رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 24, 2013 مشاركة قام بنشر أبريل 24, 2013 شاهد الرابط التالي بعنوان إخفاء وحماية المعادلات برسالة تحذيرية والدخول برقم سرى http://www.officena.net/ib/index.php?showtopic=45743&hl= رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر أبريل 25, 2013 مشاركة قام بنشر أبريل 25, 2013 السلام عليكم تحياتي للجميع , اسعد الله صباحكم جرب هذه Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect s.Cells.Locked = False s.Cells.FormulaHidden = False s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect Next End Sub 1 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 25, 2013 الكاتب مشاركة قام بنشر أبريل 25, 2013 السلام عليكم أستاذي حمادة عمر الرابط الذي أعطيته لي فيه كود يقوميقوم بغلق بالنطاق أما أنا أريده دفعة واحدة وفي كل الشيتات أستاذي عبد الناصر عند تجرية الكود ظهر الخطأ الذي في الصورة المرفقة ttttttttt.rar رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر أبريل 25, 2013 مشاركة قام بنشر أبريل 25, 2013 السلام عليكم الخطأ يظهر عند وجود صفحات لا يوجد فيها معدلات . استبدله بهذا Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect s.Cells.Locked = False s.Cells.FormulaHidden = False On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect Next End Sub تحياتي 1 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 25, 2013 الكاتب مشاركة قام بنشر أبريل 25, 2013 السلام عليكم شكرا أستاذي لكن هل يمكن تعديل الكود ليكون برقم سري من داخل vba وليس من حماية الإكسل رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 25, 2013 مشاركة قام بنشر أبريل 25, 2013 السلام عليكم الاخ العزيز / ريان أحمد بارك الله فيك بعد اذن اخي الحبيب / احمد عبد الناصر ... جزاه الله خيرا يمكنك وضع الباسورد الذي تريده في الكود في السطر التالي .... والرقم السري هو هنا 1 ويمكنك تغييره كما تريد بين الاقواس s.Unprotect "1" وكذلك في السطر s.Protect "1" ليكون بذلك الشكل النهائي للكود كما يلي Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect "1" s.Cells.Locked = False s.Cells.FormulaHidden = False On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect "1" Next End Sub جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 25, 2013 الكاتب مشاركة قام بنشر أبريل 25, 2013 السلام عليكم أستاذي حمادة عمر شكر على التعديل لمن هناك ملاحظة عندما أقوم مثلا بإجراء حماية للورقة لخلية معينة مثلا لا تحتوي على معادلة يجب أن يكون نفس الكود الذي أعطيته لحماية المعادلة يعني أن الكود يقوم بحماية المعادلى من حماية اللإكسل رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 26, 2013 الكاتب مشاركة قام بنشر أبريل 26, 2013 للرفع رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر أبريل 26, 2013 مشاركة قام بنشر أبريل 26, 2013 السلام عليكم الكود يقوم بفك الحماية من علي الشيت ثم يزيل الحماية من علي جميع الخلاية ثم يقوم بحماية خلايا المعادلات ثم اعادة حماية الشيت . وبالتالي فان كان هناك خلايا محمية لا تحتوي علي معادلات فبعد تشغيل الكود سوف تزال الحماية من عليها . جرب الكود يقوم بالحماية دون فك حماية اي خلايا Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect "1" On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect "1" Next End Sub لا ادري ان كان هذا ما تقصد بتساؤلك ام شيء اخر تحياتي رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر أبريل 26, 2013 الكاتب مشاركة قام بنشر أبريل 26, 2013 أستاذي أنا أقصد أنا الكود الذي يفي بالغرص هو هذا الكود Sub Dahmour()For Each s In ActiveWorkbook.Sheetss.Unprotect "1"s.Cells.Locked = Falses.Cells.FormulaHidden = FalseOn Error Resume Nexts.Cells.SpecialCells(xlCellTypeFormulas).Locked = Trues.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = Trues.Protect "1"NextEnd Sub لكن أريدك أن تصع الكود في ورقة ثم تقوم بحماية الورقة من outil -----pretction فيطالبك بجعل كلمة السر هي نفسها التي في الكود يعني أريدهما منفصلتين رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر أبريل 27, 2013 مشاركة قام بنشر أبريل 27, 2013 الاخوة الاعزاء لكم جزيل الشكر على مجهوداتكم الرائعة واعمالكم العظيمة قمت بتجربة هذا الكود وهو فعلا يخفى الخلايا المحمية وبها دوال الرجو اضافة شئ للكود ةيقوم بفك الحماية حتى يتثنى لنا اضافة ارقام اخرى للعمود ورفق ملف قمت بالتجربة عليه ولكم الشكر رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر أبريل 28, 2013 مشاركة قام بنشر أبريل 28, 2013 اين الاخوة الخبراء رابط هذا التعليق شارك More sharing options...
Yasser Fathi Albanna قام بنشر فبراير 22, 2015 مشاركة قام بنشر فبراير 22, 2015 للرفع لرجو اضافة شئ للكود ةيقوم بفك الحماية رابط هذا التعليق شارك 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.