السلام عليكم كيف عمل باص ورد لشيت معين و كود لعدم ادراج صف

[ايمن 123]

السلام عليكم كيف كود لعمل باسورد لشيت معين و كود لعدم ادراج صف

[اسكندراني]

وعليكم السلام 

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

كما هو موضح بالصورة المرفقه 

 

 

[أبو إيمان]

أخي أيمن 123 كما تفضل الأخ lion2014 مشكور بتوضيح طريقة الحماية من خلال القوائم 

أما بالنسبة للحماية من خلال كود فإليك الكود الخاص بالحماية

ActiveSheet.protect Password:=12

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

وبالحماية يمنع إدراج صفوف وأعمدة وأشياء كثيرة

ويمكن كتابة الكود بهذة الصورة للحماية والتأكيد على عدم إدراج صفوف

ActiveSheet.Protect Password:=12
ActiveSheet.Protect AllowInsertingRows:=False

وكود فك الحماية هو 

 

ActiveSheet.Unprotect Password:=12

عذرا  لآنني لا أتمكن من إرفاق ملف للتوضيح الآن

[أبو إيمان]

الأخ lion2014 

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

[ياسين ( أبو وسام )]

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

بارك الله بكم ودمتم في رعايته 

 

وتقبلوا منى وافر الاحترام والتقدير

[ابونوراى]

بارك الله فيك

[أبو إيمان]

جزاك الله خيرا أبو وسام على كلماتك الرقيقة

وهذا ما تعلمناه من الأساتذة الأفاضل والشكر موصول لهم

 

الأخ أبو نواري مرحبا بك أخا وزميلا ومعلما

[ايمن 123]

اشكرك علي الاهتمام

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

تم تعديل مايو 27, 2014 بواسطه ايمن 123

[أبو إيمان]

السلام عليكم 

اولا : الأخ lion  مشكور استجابتك وتغيير اسمك للغة العربية

 

ثانيا استاذ أيمن

إليك الصلاحيات جميعها المستخدمة مع حماية الورقة وجميعها متاحة كما ترى

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True

ولمنع إدراج الصفوف تكتب 

 AllowInsertingRows =false

[ايمن 123]

مشكووووووووووووووووووورا اخي

ممكن ملف للتوضيح وشكرا

تم تعديل مايو 31, 2014 بواسطه ايمن 123

[أبو إيمان]

أخي الفاضل الأستاذ أيمن

عذرا للتأخير

لك المرفق

 

 

حماية المصنف.rar

[أبو إيمان]

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

[ايمن 123]

مشكوووووورا