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

اخفاء اعمدة وظهورها برقم سرى


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

السلام غليكم 

تفضل هذا الملف

تكتب كلمة السر في الخلية I1 (لن تظهر للعيان)

ثم تنقر على الزر 

كلمة السر 123 (يمكنك تغييرها من داخل الكود)

منير لبيب.rar

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

الأستاذ الفاضل / محمد أبو البراء

 

الأستاذ الفاضل / سليم حاصبيا

 

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

 

جزاكم الله خيراً على هذه الأكواد الرائعة وجعلها الله في ميزان حسناتكم. والشكر موصول لأستاذنا الكبير / حمادة عم ولكن عند تحديد الأعمدة واختيار إظهار العمدة تظهر جميع الأعمدة بدون طلب كل السر لذلك يجب حماية الورقة والله أعلى وأعلم. تقبل الله منا ومنكم صالح الأعمال . لكم كل التحية والتقدير.

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

أعجبنى الموضوع ولى سؤال

ماذا سيكون شكل الكود لو أردنا اخفاء أعمدة غير متجاورة  زى k  ,n    ,p مثلا

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

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

 

 

وجدت كود رائع جداً جداً بقائمة منسدلة لأحد أساتذتي بالمنتدى جزاه الله خيراً وجعله الله في ميزان حسناته وتم التعديل عليه لإخفاء اعمدة مختارة من هذه القائمة. يتم إلغاء حماية الورقة بكامة السر 123 لعله يفيدكم. 

AA1.rar

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

الاخت ام عبد الله   شكرا للاهتمام

 

مرفق ملف لى قام اخ بالموقع بالتعديل عليه  وهو هنا يلغى عمل كلك يمين للاظهار  

 

ولكن لو وقفنت  بين عامود J  ,  R       واشرت  وكلك شمال  تظهر البرمجة  

 

فهل من وسيلة لالغائء كلك شمال   

 

ولو حمينا الصفحة فالمستخدم للصفحة لن يستطيع الرصد فيها   

 

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

 

 

منير لبيب 1.rar

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

الأستاذ / منير لبيب

 

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

 

 

تم حمابة البرمجة . مرفق طريقتن اختار إحداهما.

منير لبيب 1.rar

منير لبيب 2.rar

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

استاذ مختار 

لتنفيذ رغبتك عليك تعديل الكود ليصبح كما يلي:

Sub hide_secret()
Application.CommandBars("Column").Enabled = False
Columns("k:k,n:n,p:p").EntireColumn.Hidden = True
If [i1].Value = 123 Then
Columns("k:k,n:n,p:p").EntireColumn.Hidden = False
End If
[i1] = 0
End Sub

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information