الاخوة الافاضل : مطلوب حماية صفحة

[safwatscc]

الاخوة الافاضل

مطلوب حماية صفحة لان الحماية الموجودة فى الاكسل لا تحمى النماذج وهى الازرار

فمطلوب حماية الصفحة كاملة بالازرا والنماذج ويا ريت تكون عن طريق كود

طلب اخر هل ايضا يمكن حماية صفحة بيتم استدعاء وترحيل الدرجات بها دون ان يوثر او يمنع الترحيل اليها

وشكرا

[هادى محمد المامون سالم]

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

مطلوب حماية صفحة لان الحماية الموجودة فى الاكسل لا تحمى النماذج وهى الازرار

يمكنك وضع كود الحمايه عند بدايه تنفيذ الكود تفاديا لحمايه المفاتيح

طلب اخر هل ايضا يمكن حماية صفحة بيتم استدعاء وترحيل الدرجات بها دون ان يوثر او يمنع الترحيل اليها

يمكنك فك حمايه الصفحه ثم الترحيل ثم أعاده حماينها مره اخرى

مرفق ملف يقوم بحمايه الكود بكلمه مرور ثم فك حمايه ورقه العمل ثم الترحيل من ورقه العمل الاولى الى الثانيه ثم اعاده حمايه ورقه العمل

كلمه السر و كلمه الحمايه هى 123

Sub DOIT()
RESTART:
    My_InputBox = InputBox("أدخل كلمه المرور و هى : 123")
    If My_InputBox = "" Then
GoTo RESTART
    Else
        If My_InputBox = 123 Then
            MsgBox "كلمه السر صحيحه"
            Sheets("Sheet2").Unprotect (123)
            Sheets("Sheet2").[A1] = Sheets("Sheet1").[A1]
            Sheets("Sheet2").Activate
            Sheets("Sheet2").Protect (123)
            Sheets("Sheet1").[A1] = Sheets("Sheet1").[A1] + 1
            MsgBox"تم الترحيل"

        Else
            MsgBox "كلمه السر غير صحيحه أعد المحاوله"
GoTo RESTART
        End If
    End If
End Sub

السلام عليكم

protect.rar

[خالد القدس]

عمل جميل ورائع

جزاك الله خيرا اخى هادى

[safwatscc]

المطلوب حماية الصفحة الرئيسية

موجود بها خلفية صورة وزراير فقط

مطلوب حمايتها من اى تعديل - حماية الاكسل لا تجدى معها

وبارك الله فيكم

[safwatscc]

للرفع

[abujak2007]

شكرا على المعلومة القيمة

[أستيكا]

أخى الكريم انظر المرفق و اخبرنى بالنتيجة و تقبل تحياتى

استيكا

Protection_Sheet.rar

[safwatscc]

الاخ الفاضل astika

بارك الله فيك

[يوسف عطا]

الأخ هادى

ربنا يهدينا جميعاً للخير

هل يمكنك عزيزى شرح طريقة عمل هذا الكود الذى أرفقته

شاكر أفضالك

الأخ أستيكة

هل تتفضل وتشرح ما أرفقته

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