سحـابة خير قام بنشر فبراير 9, 2013 مشاركة قام بنشر فبراير 9, 2013 السلام عليكم ورحمة الله لو سمحتم انا حابة اوزع ملف اكسل لكن حابة اعمل خلية واحدة فيها اسمي علشان حقوق الطبع - ومهما استخدم الاخرون هالملف مايتم حذف اسمي - هل استطيع عمل هالحركة ؟ رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 9, 2013 مشاركة قام بنشر فبراير 9, 2013 السلام عليكم الاخت الفاضلة / سحـابة خير جرب المرفق التالي عله يكون المطلوب حيث لايمكنك التعديل او الحذف للخلية b2 مع ظهور رسالة تفيد عمل ذك جزاك الله خيرا حماية خلية معينة من التعديل.rar رابط هذا التعليق شارك More sharing options...
سحـابة خير قام بنشر فبراير 9, 2013 الكاتب مشاركة قام بنشر فبراير 9, 2013 ممتااااز هذا المطلوب لو بدون رسالة منبثقة يكون افضل رابط هذا التعليق شارك More sharing options...
سحـابة خير قام بنشر فبراير 9, 2013 الكاتب مشاركة قام بنشر فبراير 9, 2013 ياليت لو يكون محتوى الخلية مخفي ويطلع بالطباعة بس رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 9, 2013 مشاركة قام بنشر فبراير 9, 2013 السلام عليكم الاخت الفاضلة / سحابة خير الكود بدون رسالة سيكون كالتالي ملحوظة : ( الكود المستخدم هو احد اكواد الاستاذ / عبد الله المجرب وتم تعديله ليتناسب مع طلبك ) وذلك لعدم ضياع الحقوق Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1] <> "" Then Exit Sub If Not Application.Intersect(Target, Range("b2")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub وبخصوص ظهورة في الطباعة فقط فهذا موضوع آخر ( وان شاء ساقوم بالعمل عليه ) جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
محمد مبروك قشطة قام بنشر فبراير 10, 2013 مشاركة قام بنشر فبراير 10, 2013 يا أستاذنا بعد اذنك عايزين نعرف يتعمل إزاى رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 10, 2013 مشاركة قام بنشر فبراير 10, 2013 السلام عليكم الاخ الكريم / محمد مبروك قشطة تفضل الطريقة والشرح بالفيديو في المرفق جزاك الله خيرا الشرح فيديو للطريقة.rar رابط هذا التعليق شارك More sharing options...
سحـابة خير قام بنشر فبراير 16, 2013 الكاتب مشاركة قام بنشر فبراير 16, 2013 عفوا اخواني انا جربت انسخ محتوى باقي الخلايا في الصفحة يمكن نسخة من غير نسخ نكي وبعدها يتم لصقه في خلية اخرى - هذا ماصار حماية انا احتاج حماية حقوقي في ملف راح اوزعه رابط هذا التعليق شارك More sharing options...
abdoullah قام بنشر فبراير 19, 2013 مشاركة قام بنشر فبراير 19, 2013 شكرا جزيلا لك اخي الغالي وعندي طلب عندي شيت مثلا عمود b1:b10 واحتاج احميها من التعديل لدى المستخدمين وعندما اريد انا تعديلها استطيع ذلك الملف المرفق ليس به هذا الحل وشكر ا لك ارجوا الرد وفقكم الله وسدد خطاكم وانا بحاجة لدورة على يدك استاذي الكريم مارايك وشكر الك رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 ما شاء الله عليكم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 السلام عليكم الاخ الكريم / abdoullah لتنفيذ طلبك هناك طريقتين لعمل ذلك عن طريق نفس الكود ايضاً وهو ان يكون مكان الخلية b1 في الكود يكون b1:b10 كما في الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1].Value <> "" Then Exit Sub If Not Application.Intersect(Target, Range("b2:b10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub الطريقة الثانية : قم اخي الكريم بتسمية النطاقات التي تريدها باسم معين وليكن اسم النطاق هو myrange عبارة عن النطاف من b1 الي b10 ليكون الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1].Value <> "" Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub واي شئ آخر كلنا معك باذن الله جزاك الله خيراً 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 21, 2013 مشاركة قام بنشر فبراير 21, 2013 السلام عليكم الاخ الكريم / أبو محمد أشرف مرورك دائما يسعدني ويشجعني جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
سحـابة خير قام بنشر فبراير 22, 2013 الكاتب مشاركة قام بنشر فبراير 22, 2013 على فكرة انا مافهمت الاكواد -- ممكن تشرحونها لي ؟ هل هذي الاكواد تجيب على سؤالي ؟ رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 22, 2013 مشاركة قام بنشر فبراير 22, 2013 ياليت لو يكون محتوى الخلية مخفي ويطلع بالطباعة بس الاخت الفاضلة سحابة خير جربي المرفق عند الطباعة اسم ثابت عند الطباعة.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 23, 2013 مشاركة قام بنشر فبراير 23, 2013 السلام عليكم الاستاذ القدير / عبدالله المجرب كود بسيط وسهل وطريقته كبيره والاجمل انه من كبير مثلك سنظل خلفك دائما لننهل من علمك جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
سحـابة خير قام بنشر مارس 22, 2013 الكاتب مشاركة قام بنشر مارس 22, 2013 مساء الخير يا اخوان شكرا لمحاولاتكم بس اقتراحاتكم سهلة الخرق لاني لو نسخت المحتوى اللي احتاجه وحطيته في ملف ثاني من غير ما انسخ اسم الكاتب بسهولة بتروح حقوق الطبع كنت اتوقع القى حل اخر شكرا لكم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 22, 2013 مشاركة قام بنشر مارس 22, 2013 السلام عليكم الاخت الفاضلة / سحـابة خير بارك الله فيكي هل رأيتي المشاركة والملف الخاص بالاستاذ القدير / عبدالله المجرب ففيه يتم ذلك عن طريق كود تقومي بكتابة ما تريدنه فيها لتظهر عند الطباعة وتكون ثابتة في كل اوراق الملف وعند النقل لملف آخر ما عليك سوي نقل هذا الكود البسيط الي الملف الجديد .... وان كان غير ذلك فرجاء مزيد من التوضيح ليتضح طلبك ويتم تنفيذه كما تريدين جزاكي الله خيرا Private Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False With ActiveSheet.PageSetup .LeftFooter = "&""-,غامق""&12عبد الله المجرب" End With Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك 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.