كود حماية أوراق العمل

[Akram Galal]

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

تحية طيبة وعطرة علي جميع أعضاء هذا المنتدى العظيم

أريد كود حماية يقوم بحماية ورقة1 وورقة2 في نفس الوقت عند الضغط علي الزر

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

[ريان أحمد]

السلام عليكم

جرب المرفق

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

حماية الورقة من حذف الأوراق أو زيادة أوراق.rar

[Akram Galal]

مشكور يا أبو الشباب

بس أنا أريد حماية الورقة من الكتابة

وشكراً .

[الـعيدروس]

السلام عليكم

جرب هذا الكود

تفعيل الكود يحمي الورقتين

تفعيل مره اخرى يلغي الحماية عن ورقتين

Public Sub Proc()

Const Pas As String = "123"

For Each i In Array("ورقة1", "ورقة2")

With Sheets(i)

If .ProtectContents = False Then

  .Protect Pas

  .EnableSelection = xlUnlockedCells

Else

  .Unprotect Pas

  .EnableSelection = xlUnlockedCells

End If

End With

Next

End Sub

[Akram Galal]

أ/ عياد

مشكور علي الرد

ولكن الكود لم يعمل

أرجوا التوضيح وأين يكتب

وشكرا.

[الـعيدروس]

السلام عليكم

Alt F11

ثم Insert من القائمة نختار Module

ثم تلصق الكود فيه

ولاتنسى تغير إسم الورقتين "ورقة1" و "ورقة2" من الكود حسب إسم الورقتين في ملفك

ثم تدرج زر وتخصص له الكود

[أبو محمد عباس]

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

بعد اذن استاذنا العزيزابو نصار رعاه الله وزاده من فضله علما ومعرفة

الاخ العزيز اكرم جلال المحترم اليك الكود في الملف

حماية.rar

[Akram Galal]

الأساتذة المحترمين

جزاكم الله خيراً

ولكن أريد عمل ذالك عن طريق الكود

ws.Unprotect و ws.protect

إن أمكن

وسامحوني علي تعبكم

وشكراً .

تم تعديل ديسمبر 25, 2012 بواسطه Akram Galal