يوسف عطا قام بنشر مايو 12, 2011 مشاركة قام بنشر مايو 12, 2011 مرحباً بكم أصدقائى وأساتذتى الغاليين طلبى بسيط كود يقوم بإخفاء أعمدة معينة ولنفرض إخفاء الأعمدة المتتالية A - B - C وكذلك أعمدة متفرقة هى Q - S - Z أهم شئ ألا يتمكن أحد من إعادة إظهار هذه الأعمدة إلا بباس وورد الف شكر لكم جميعاً وجازاكم الله خير رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 12, 2011 مشاركة قام بنشر مايو 12, 2011 السلام عليكم و رحمة الله و بركاته الاستاذ / يوسف عطا تفضل هذا بالمرفق و أرجو من الله أن يكون هذا هو طلبك و كلمة السر هي 123 و الله المستعان و السلام عليكم و رحمة الله و بركاته Hide Column HaNcOcK.rar 1 رابط هذا التعليق شارك More sharing options...
zine pef قام بنشر مايو 12, 2011 مشاركة قام بنشر مايو 12, 2011 شكرا أخي احمد فضيله دائما متسابق في فعل الخير جزاك الله الجنة رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 13, 2011 مشاركة قام بنشر مايو 13, 2011 الاستاذ الفاضل هنكوك صيح كما قال الاخ زين بانك سباق الى عمل الخير ولك اياديً بيضاء في ذلك وبعد اذنك (قمت بالتعديل في الكودفي هذا الجزاء)والذي يعتمد على ان تكون كلمة السر في ورقة العمل في الخانة الاخيرة If TextBox1.Text = Sheets("sheet1").Range("IV65536").Value Then Me.Hide TextBox1 = "" واستبدلته بهذا الجزاء لتكون كلمة السر داخل الكود If TextBox1.Text = "123" Then Me.Hide TextBox1 = "" وكذلك الجزاء الخاص بادخال كلمة سر لا تساوي الكلمة الصحيحة من If TextBox1.Text <> Sheets("sheet1").Range("IV65536").Value Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " الى If TextBox1.Text <> "123" Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " Hide Column HaNcOcK.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 13, 2011 مشاركة قام بنشر مايو 13, 2011 (معدل) أخى الفاضل / أبو احمد صباح الفل وكذلك الأجزاء الخاصة بادخال كلمة سر أكبر من الكلمة الصحيحة من If TextBox1.Text > Sheets("sheet1").Range("IV65536").Value Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " إلى If TextBox1.Text > "123" Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " وكذلك الأجزاء الخاصة بادخال كلمة سر أصغر من الكلمة الصحيحة من If TextBox1.Text < Sheets("sheet1").Range("IV65536").Value Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " إلى If TextBox1.Text < "123" Then Me.Hide TextBox1 = "" MsgBox "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول " منكم تعلمنا.. هذا للتنوع ولكنها ضعيفة تم تعديل مايو 13, 2011 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر مايو 13, 2011 مشاركة قام بنشر مايو 13, 2011 (معدل) اخى العزيز هانكوك اخى الحبيب ابواحمد اخى الفاضل دغيدى ان افضل من الحل الاولى للموضوع المطروح هو اثراء الموضوع بمعنى طرح اكثر من حل بيان البدائل كلمة السر داخل الورقة او فى الكود افضل وهكذا جزاكم الله خيرا وشكرا لكم اخوكم سعد عابد تم تعديل مايو 13, 2011 بواسطه سعد عابد رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر مايو 13, 2011 مشاركة قام بنشر مايو 13, 2011 (معدل) للجميع اصبحت اخجل لشعوري منذ مدة انني متلقي فقط لااعرف كيف اعبر ولكن اقول لست بالمهارة والجرأة التي تسمح لي بالرد على بعض الاستفسارات ربما بسبب تعليمي ( على الحاسب عموما ) كان بعمر متأخر نوعا ما مع شعوري بأنني وبفضل الله ومن ثم فضلكم وفضل هذا الموقع اصبحت معقول نسبيا لاامللك سوى ان اقول ماشاء الله .... وفقكم الله تحية الى احمد HaNcOcK + ابو احمد + دغيدي + سعد ياسر الحافظ تم تعديل مايو 13, 2011 بواسطه hyasser رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 13, 2011 مشاركة قام بنشر مايو 13, 2011 (معدل) الأخوة سعد عابد ياسر الحافظ سلام الله عليكم أشكركم أخى الفاضل سع على متابعاتكم الجيدة وكلماتكم الجميلة الأستاذ / ياسر الحافظ يقول : ربما بسبب تعليمي ( على الحاسب عموما ) كان بعمر متأخر نوعا ما أخى الفاضل / ياسر الحافظ ماذا أقول ياأخى وأنا تخطيت والحمد لله الواحد والستين عاما وبداياتى كانت فوق سن الخمسين انت الشباب صدقنى مشاركاتى اضعها لأقيم نفسى وسط الكبـــــــار .. وأنت منهم تم تعديل مايو 13, 2011 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر مايو 13, 2011 الكاتب مشاركة قام بنشر مايو 13, 2011 الف شكر لكل من أدلى بدلوه فى الموضوع ولكل من شرفه بالمرور لن استطيع إلا أن أقول بارك الله فيكم يا أخونى الأفاضل الآن سأقوم بتجربة الحلول المذكورة لإختيار أحدها وليوفقنا الله لما فيه الخير مشكورين دمتم بود رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر مايو 13, 2011 الكاتب مشاركة قام بنشر مايو 13, 2011 للأسف اساتذتى الأعزاء ليس هذا كل المطلوب الأهم ألا يتمكن أحد من إظهار الأعمدة بدون الباسوورد ولكن الحلول السابقة مع نجاحها فى إنجاز عملية الإخفاء والإظهار إلا إنها لم تراعى الشرط الهام فعن طريق كليك أعلى الأعمدة المخفاه مع السحب يميناً أو يساراً ثم كليك يمين وإختيار إظهار فسيتم إظهار الأعمدة المخفاة بدون طلب الباسوورد كنت أعتقد أن الشرط واضح فى الطلب ولكنه يبدو أننى كنت مخطئاً على كل حال ولمن يريد أن يدلى بدلوه فى الموضوع مشكوراً فمن المهم جداً ألا يستطيع أحد إظهار الأعمدة المخفاة إلا بإستخدام الباس وورد أو على الأقل إلا يتمكن من إظهارها بالطرق التقليدية وقد يكون مقبولاً لحل الموضوع بعض الشئ أن يكون إظهار الأعمدة ممكن للمحترفين فقط سواء بباسوورد أو بدون لكن أن يقوم المستخدم العادى مثلى بإظهار هذه الأعمدة فليس هناك داعى للكود فبإمكان المستخدم إخفاء الأعمدة بإستخدام الماوس من أعلى العمود كليك يمين ثم إخفاء أو إظهار على كل حال الشكر موصول لكم جميعاً الأخ دغيدى ربنا يكرمه لفت نظرى لطريقة يمكن بها التحايل على الأمر بعيداً عن الأكواد والمعادلات ولكنى فقط ابحث عن الحل من باب الإستمرار فى إثراء الموضوع والإجتهاد وعملاً بالقول المعروف من إجتهد وأخطأ فله أجر ومن إجتهد وأصاب فله أجران ربنا يبارك أعمالكم يا أخوتى الأعزاء رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر مايو 14, 2011 مشاركة قام بنشر مايو 14, 2011 الاخ / الاستاذ دغيدي الحقيقة ما من تعليق جديد على الموضوع ولكن هذه الكلمة كي اشكرك بداية كل الشكر للمجاملة اللطبفة بأن جعلتني من الكبار والحقيقة انا كبير بالعمر فقط امام المبدعين اخوتنا واساتذتنا وانا اعرف انك بـ الـ 60 ماشاء الله العمر كله برضى الله والصحة والعافية انشاء الله وانت مثال حقيقي لامثالي وبك نفتتح الامل وفقك الله ياسر الحافظ رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 14, 2011 مشاركة قام بنشر مايو 14, 2011 (معدل) االفاضل دوما / يـــــــاسر الحــــــافظ وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقكم الله وفقك الله تم تعديل مايو 14, 2011 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر مايو 14, 2011 مشاركة قام بنشر مايو 14, 2011 الاخ دغيدي لاتعليق سوى ( هذه الكلمة شهادة ساحتفظ بها طويلا) وفقك الله ياسر الخافظ رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 السلام عليكم ورحمة الله و بركاته أشكر كل الاخوة على مرورهم الكريم و دعائهم و كلماتهم الطيبة و الله الموفق و المستعان و السلام عليكم ورحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 السلام عليكم و رحمة الله و بركاته الاستاذ / يوسف عطا بالنسبة لطلبك عدم اظهار الاعمدة مطلقاً الا بالباسورد تفضل هذا بالمرفق و أرجو من الله أن يكون هذا هو طلبك و كلمة السر هي 123 و الله الموفق و المستعان و السلام عليكم و رحمة الله و بركاته Hide Column HaNcOcK 2.rar رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 حل جميل أخي HaNcOcK ولكن اسحب عمود S والذي هو بجانب العمود R ستجد أن العمود S ( المخفي ) قد ظهر بالتوفيق : ) رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 السلام عليكم و رحمة الله و بركاته الاخوة الاحباب هذه محاولة أخري عن طريق اعطاء لون أسود للعمود في حالة السحب و عند أي حركة سوف يختفي العمود و بهذا نمنع مشاهدة البيانات التي في الاعمدة و هذه مجرد محاولات و الله الموفق و المستعان و السلام عليكم و رحمة الله و بركاته Hide Column HaNcOcK 3.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر مايو 15, 2011 الكاتب مشاركة قام بنشر مايو 15, 2011 أولاً أشكر كل من شرف الموضوع بالزيارة وتكرار الزيارة وبالكلمات الطيبة الجميلة التى أحمد الله أن موضوعى كان سبباً فيها جازاكم الله خيراً جميعاً يا أخوتى الأعزاء ثانياً بالنسبة للحل المطروح أخى الفاضل هانكوك فجارى التحميل والتجربة وسأوافيك بالنتيجة قريباً الف الف شكر على تعبك دمتم جميعاً بود رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 السلام عليكم و رحمة الله و بركاته الاخ / يوسف عطا عفواً يا اخي فقط أرجو من الله أن تنتفع بهذه المحاولات و كافة الاخوة و الله الموفق و المستعان و السلام عليكم و رحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 الأخ الفاضل / أحمد فضيلة كود اعجبنى .. به تركيبات جملية .. زادكم الله من جماله رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 الأخ الفاضل / أحمد فضيلة كود اعجبنى .. به تركيبات جملية .. زادكم الله من جماله السلام عليكم و رحمة الله و بركاته الاخ الحبيب المهندس / جمال دغيدي جزاك الله كل خير على هذا الدعاء و هذه الكلمات الطيبة و دي شهادة أعتز بيها من حضرتك العبد الفقير إلى الله / أحمد فضيله و السلام عليكم و رحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
ابواليزيد قام بنشر يوليو 28, 2012 مشاركة قام بنشر يوليو 28, 2012 مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز Sub Macro7() ' ' Macro7 Macro ' Macro recorded 30/10/2008 by zedasalem ' ' Keyboard Shortcut: Ctrl+u ' Sheets("ÇáÔíÊ").Select ActiveSheet.Unprotect Columns("A:EE").Select Selection.EntireColumn.Hidden = False Range("DA6:DB6").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="ÏæÑ ËÇä" Range("A7:EE1500").Select Selection.Copy Sheets("ØÈÇÚÉ_2").Select Range("A7").Select ActiveSheet.Paste Range("A7").Select Sheets("ÇáÔíÊ").Select Application.CutCopyMode = False Selection.AutoFilter ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True Range("M6").Select ActiveSheet.Protect End Sub رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أغسطس 6, 2012 مشاركة قام بنشر أغسطس 6, 2012 اخواني الاعزاء تحية طيبه ارجو المساعده بجعل الاعمده المخفاة لا تظهر بالوقوف على نهاياتها (كما هو الحال في المثال الاخير) بل تظهر بباسوورد مع الامتنان رابط هذا التعليق شارك More sharing options...
عادلصباح قام بنشر نوفمبر 9, 2012 مشاركة قام بنشر نوفمبر 9, 2012 الاخوة الكرام القائمين على هذا المنتدى اشكر لكم جزيل عطائكم ولي طلب مهم جدا بالنسبة لي وهو هل يمكن عمل كود لحماية اعمدة معينة بدون ان يصل اليها احد كود خاص بباسوورد يصعب على احد الوصول اليه وليس من قائمة تنسيق ثم خلايا وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر نوفمبر 19, 2012 مشاركة قام بنشر نوفمبر 19, 2012 تسلم يديك يا حبيبي موضوع مفيد رابط هذا التعليق شارك 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.