اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب كود إخفاء أعمدة بباسوورد


الردود الموصى بها

مرحباً بكم أصدقائى وأساتذتى الغاليين

طلبى بسيط

كود يقوم بإخفاء أعمدة معينة ولنفرض إخفاء الأعمدة المتتالية A - B - C وكذلك أعمدة متفرقة هى Q - S - Z

أهم شئ ألا يتمكن أحد من إعادة إظهار هذه الأعمدة إلا بباس وورد

الف شكر لكم جميعاً وجازاكم الله خير

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله و بركاته

الاستاذ / يوسف عطا

تفضل هذا بالمرفق و أرجو من الله أن يكون هذا هو طلبك

و كلمة السر هي 123

و الله المستعان

و السلام عليكم و رحمة الله و بركاته

Hide Column HaNcOcK.rar

  • Like 1
رابط هذا التعليق
شارك

الاستاذ الفاضل هنكوك

صيح كما قال الاخ زين بانك سباق الى عمل الخير ولك اياديً بيضاء في ذلك

وبعد اذنك (قمت بالتعديل في الكودفي هذا الجزاء)والذي يعتمد على ان تكون كلمة السر في ورقة العمل في الخانة الاخيرة

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

رابط هذا التعليق
شارك

أخى الفاضل / أبو احمد

صباح الفل

وكذلك الأجزاء الخاصة بادخال كلمة سر أكبر من الكلمة الصحيحة

من

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 "لقد أدخلت كلمة حماية غير صحيحة .. لذا قم بإدخال كلمة الحماية الصحيحة حتى يمكنك الدخول "

منكم تعلمنا.. هذا للتنوع ولكنها ضعيفة

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

اخى العزيز هانكوك

اخى الحبيب ابواحمد

اخى الفاضل دغيدى

ان افضل من الحل الاولى للموضوع المطروح هو اثراء الموضوع

بمعنى طرح اكثر من حل بيان البدائل كلمة السر داخل الورقة او فى الكود افضل وهكذا

جزاكم الله خيرا وشكرا لكم

اخوكم

سعد عابد

تم تعديل بواسطه سعد عابد
رابط هذا التعليق
شارك

للجميع

اصبحت اخجل لشعوري منذ مدة انني متلقي فقط

لااعرف كيف اعبر ولكن اقول لست بالمهارة والجرأة التي تسمح لي بالرد على بعض الاستفسارات

ربما بسبب تعليمي ( على الحاسب عموما ) كان بعمر متأخر نوعا ما

مع شعوري بأنني وبفضل الله ومن ثم فضلكم وفضل هذا الموقع اصبحت معقول نسبيا

لاامللك سوى ان اقول ماشاء الله .... وفقكم الله

تحية الى احمد HaNcOcK + ابو احمد + دغيدي + سعد

ياسر الحافظ

تم تعديل بواسطه hyasser
رابط هذا التعليق
شارك

الأخوة

سعد عابد

ياسر الحافظ

سلام الله عليكم

أشكركم أخى الفاضل سع على متابعاتكم الجيدة وكلماتكم الجميلة

الأستاذ / ياسر الحافظ يقول : ربما بسبب تعليمي ( على الحاسب عموما ) كان بعمر متأخر نوعا ما

أخى الفاضل / ياسر الحافظ

ماذا أقول ياأخى وأنا تخطيت والحمد لله الواحد والستين عاما وبداياتى كانت فوق سن الخمسين

انت الشباب

صدقنى مشاركاتى اضعها لأقيم نفسى وسط الكبـــــــار .. وأنت منهم

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

الف شكر لكل من أدلى بدلوه فى الموضوع ولكل من شرفه بالمرور

لن استطيع إلا أن أقول بارك الله فيكم يا أخونى الأفاضل

الآن سأقوم بتجربة الحلول المذكورة لإختيار أحدها وليوفقنا الله لما فيه الخير

مشكورين

دمتم بود

رابط هذا التعليق
شارك

للأسف اساتذتى الأعزاء ليس هذا كل المطلوب

الأهم ألا يتمكن أحد من إظهار الأعمدة بدون الباسوورد

ولكن الحلول السابقة مع نجاحها فى إنجاز عملية الإخفاء والإظهار إلا إنها لم تراعى الشرط الهام

فعن طريق كليك أعلى الأعمدة المخفاه مع السحب يميناً أو يساراً ثم كليك يمين وإختيار إظهار فسيتم إظهار الأعمدة المخفاة بدون طلب الباسوورد

كنت أعتقد أن الشرط واضح فى الطلب ولكنه يبدو أننى كنت مخطئاً

على كل حال ولمن يريد أن يدلى بدلوه فى الموضوع مشكوراً فمن المهم جداً ألا يستطيع أحد إظهار الأعمدة المخفاة إلا بإستخدام الباس وورد

أو على الأقل إلا يتمكن من إظهارها بالطرق التقليدية وقد يكون مقبولاً لحل الموضوع بعض الشئ أن يكون إظهار الأعمدة ممكن للمحترفين فقط سواء بباسوورد أو بدون

لكن أن يقوم المستخدم العادى مثلى بإظهار هذه الأعمدة فليس هناك داعى للكود

فبإمكان المستخدم إخفاء الأعمدة بإستخدام الماوس من أعلى العمود كليك يمين ثم إخفاء أو إظهار

على كل حال الشكر موصول لكم جميعاً

الأخ دغيدى ربنا يكرمه لفت نظرى لطريقة يمكن بها التحايل على الأمر بعيداً عن الأكواد والمعادلات ولكنى فقط ابحث عن الحل من باب الإستمرار فى إثراء الموضوع والإجتهاد

وعملاً بالقول المعروف من إجتهد وأخطأ فله أجر ومن إجتهد وأصاب فله أجران

ربنا يبارك أعمالكم يا أخوتى الأعزاء

رابط هذا التعليق
شارك

الاخ / الاستاذ دغيدي

الحقيقة ما من تعليق جديد على الموضوع

ولكن هذه الكلمة كي اشكرك

بداية كل الشكر للمجاملة اللطبفة بأن جعلتني من الكبار

والحقيقة انا كبير بالعمر فقط امام المبدعين اخوتنا واساتذتنا

وانا اعرف انك بـ الـ 60 ماشاء الله العمر كله برضى الله والصحة والعافية انشاء الله

وانت مثال حقيقي لامثالي وبك نفتتح الامل

وفقك الله

ياسر الحافظ

رابط هذا التعليق
شارك

االفاضل دوما / يـــــــاسر الحــــــافظ

وفقكم الله

وفقكم الله وفقكم الله

وفقكم الله وفقكم الله وفقكم الله

وفقكم الله وفقكم الله وفقكم الله

وفقكم الله وفقكم الله

وفقكم الله

وفقكم الله

وفقكم الله

وفقكم الله

وفقكم الله وفقكم الله

وفقكم الله وفقكم الله

وفقكم الله وفقكم الله وفقكم الله

وفقكم الله وفقكم الله وفقكم الله وفقك الله

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله و بركاته

أشكر كل الاخوة على مرورهم الكريم و دعائهم و كلماتهم الطيبة

و الله الموفق و المستعان

و السلام عليكم ورحمة الله و بركاته

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله و بركاته

الاستاذ / يوسف عطا

بالنسبة لطلبك عدم اظهار الاعمدة مطلقاً الا بالباسورد

تفضل هذا بالمرفق و أرجو من الله أن يكون هذا هو طلبك

و كلمة السر هي 123

و الله الموفق و المستعان

و السلام عليكم و رحمة الله و بركاته

Hide Column HaNcOcK 2.rar

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله و بركاته

الاخوة الاحباب

هذه محاولة أخري عن طريق اعطاء لون أسود للعمود في حالة السحب

و عند أي حركة سوف يختفي العمود و بهذا نمنع مشاهدة البيانات التي في الاعمدة

و هذه مجرد محاولات

و الله الموفق و المستعان

و السلام عليكم و رحمة الله و بركاته

Hide Column HaNcOcK 3.rar

رابط هذا التعليق
شارك

أولاً أشكر كل من شرف الموضوع بالزيارة وتكرار الزيارة وبالكلمات الطيبة الجميلة التى أحمد الله أن موضوعى كان سبباً فيها جازاكم الله خيراً جميعاً يا أخوتى الأعزاء

ثانياً بالنسبة للحل المطروح أخى الفاضل هانكوك فجارى التحميل والتجربة وسأوافيك بالنتيجة قريباً

الف الف شكر على تعبك

دمتم جميعاً بود

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله و بركاته

الاخ / يوسف عطا

عفواً يا اخي

فقط أرجو من الله أن تنتفع بهذه المحاولات و كافة الاخوة

و الله الموفق و المستعان

و السلام عليكم و رحمة الله و بركاته

رابط هذا التعليق
شارك

الأخ الفاضل / أحمد فضيلة

كود اعجبنى .. به تركيبات جملية .. زادكم الله من جماله

السلام عليكم و رحمة الله و بركاته

الاخ الحبيب المهندس / جمال دغيدي

جزاك الله كل خير على هذا الدعاء و هذه الكلمات الطيبة

و دي شهادة أعتز بيها من حضرتك

العبد الفقير إلى الله / أحمد فضيله

و السلام عليكم و رحمة الله و بركاته

رابط هذا التعليق
شارك

  • 1 year later...

مع شكرى وتقديرى لمجهوداتكم ارجوا من السادة الافاضل ورئيس القسم التكرم بو ضع كود لتجاوز صف لهذا الكود واكون شاكر ومدين لك بالحب والاعتزاز

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

رابط هذا التعليق
شارك

  • 2 weeks later...
  • 3 months later...

الاخوة الكرام القائمين على هذا المنتدى اشكر لكم جزيل عطائكم

ولي طلب مهم جدا بالنسبة لي وهو هل يمكن عمل كود لحماية اعمدة معينة بدون ان يصل اليها احد كود خاص بباسوورد يصعب على احد الوصول اليه

وليس من قائمة تنسيق ثم خلايا وجزاكم الله خيرا

progress.gif

رابط هذا التعليق
شارك

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information