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

[عماراللهيبي]

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

السادة الاعضاء الاعزاء

السلام عليكم ... وصبحكم الله بالخير

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

[جعفر الطريبق]

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

Sheet ==> Protect

[عماراللهيبي]

 

 

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

Sheet ==> Protect

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

السلام عليكم 

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

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

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

[جعفر الطريبق]

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

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

تم تعديل سبتمبر 20, 2015 بواسطه جعفر الطريبق

[مختار حسين محمود]

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

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

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

[عماراللهيبي]

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

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

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

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

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

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

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

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

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

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

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

استاذ مختار 

السلام عليكم 

الف شكر 

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

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

[مختار حسين محمود]

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

لو حبيت تخلى الكود يشتغل على الجانبين  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  للخلايا و عند تطبيق الحماية الأكسيل يسمح لك اختيار العديد من الخاصيات

[عماراللهيبي]

 

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

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

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

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

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

استاذ جعفر

السلام عليكم

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

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