اذهب الي المحتوي
أوفيسنا

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

قام بنشر

 

 

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

Sheet ==> Protect

بسم الله الرحمن الرحيم 

السلام عليكم 

استاذي الفاضل جعفر 

بعد الشكر على اجابتك 

اعرف هذه الطريقة ولكن اريدها بالكود

قام بنشر (معدل)

هل تقصد أنك تريد ايقاف خاصية التحكم بتكبير و تصغير الأعمدة و الصفوف بدون عمل حماية للصفحة

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

تم تعديل بواسطه جعفر الطريبق
قام بنشر

أستاذ عمار   الكود التالى يمنع التعامل مع الأعمدة والصفوف

Sub DisableRowsColumns()
Application.CommandBars("Column").Enabled = False
Application.CommandBars("ROW").Enabled = False
End Sub

للعودة غير      False     الى    True      

  • Like 1
قام بنشر (معدل)

هل تقصد أنك تريد ايقاف خاصية التحكم بتكبير و تصغير الأعمدة و الصفوف بدون عمل حماية للصفحة

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

بسم الله الرحمن الرحيم 

استاذي العزيز 

اريد اجعل الصفحة الاولى واجهة بها اتباطات تشعبية 

... الجواب نعم 

استاذ عندي مشكلة حدثت اليوم بالموقع وهي انه صار بالعكس مثلا صورتي في اعلى الصفحة صارة يسار الصفحة .. فهل المشكلة عامة او بس عندي

أستاذ عمار   الكود التالى يمنع التعامل مع الأعمدة والصفوف

Sub DisableRowsColumns()
Application.CommandBars("Column").Enabled = False
Application.CommandBars("ROW").Enabled = False
End Sub

للعودة غير      False     الى    True      

بسم الله الرحمن الرحيم 

استاذ مختار 

السلام عليكم 

الف شكر 

..  وممنون جدا على هذا الكود .استاذ نسيت اسألك اين اضع الكود .. 

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

مديول عادى  جديد  و اربطه بزر

لو حبيت تخلى الكود يشتغل على الجانبين  False     و True    أدرج شكل تلقائى  وليكن Rounded Rectangle   خلى بالك من اسم ورقم الشكل لأننا بنحطهم فى الكود

Option Explicit


Sub DisableRowsColumns2()

    With ActiveSheet.Shapes("Rounded Rectangle 2").TextFrame2.TextRange.Characters ' لاحظ اسم  ورقم الشكل التلقائى
        
        If .Text = "Disable Rows Columns" Then
            .Text = "Enable Rows Columns"
        Application.CommandBars("Column").Enabled = False
        Application.CommandBars("ROW").Enabled = False
        
        Else
            .Text = "Disable Rows Columns"
       Application.CommandBars("Column").Enabled = True
       Application.CommandBars("ROW").Enabled = True
            
        End If
    End With
End Sub

 

 

 

 

ايقاف خاصية التحكم بتكبير وتصغير الاعمده والصفوف .rar

قام بنشر

 

للتدكير فقط الكود الدي تفضل به الاستاد مختار حسين محمود لا يمنع من تكبير أو تصغير الأعمدة و الصفوف باستخدام الماوس أو عن طريق

Home Tab => Cells =>Format=>Column Height

منع تكبير أو تصغير الأعمدة و الصفوف بدون حماية الصفحة و اعتمادا على الكود  ليس أمرا سهلا و يتطلب اعمال تقنية ال SubClassing

مرة أخرى يا أستاد عمار .. يمكن جعل الصفحة الأولى واجهة بها اتباطات تشعبية رغم تطبيق حماية على الصفحة.. قبل تطبيق حماية الصفحة يمكن تغيير خاصة ال Locked  للخلايا و عند تطبيق الحماية الأكسيل يسمح لك اختيار العديد من الخاصيات

  • Like 1
قام بنشر (معدل)

 

للتدكير فقط الكود الدي تفضل به الاستاد مختار حسين محمود لا يمنع من تكبير أو تصغير الأعمدة و الصفوف باستخدام الماوس أو عن طريق

Home Tab => Cells =>Format=>Column Height

منع تكبير أو تصغير الأعمدة و الصفوف بدون حماية الصفحة و اعتمادا على الكود  ليس أمرا سهلا و يتطلب اعمال تقنية ال SubClassing

مرة أخرى يا أستاد عمار .. يمكن جعل الصفحة الأولى واجهة بها اتباطات تشعبية رغم تطبيق حماية على الصفحة.. قبل تطبيق حماية الصفحة يمكن تغيير خاصة ال Locked  للخلايا و عند تطبيق الحماية الأكسيل يسمح لك اختيار العديد من الخاصيات

بسم الله الرحمن الرحيم

استاذ جعفر

السلام عليكم

الف شكر على هذا التوضيح ... الف شكر

تم تعديل بواسطه عماراللهيبي

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