ترحيل بيانات من يوزرفورم الى شيت محمى

[mk_mk_79]

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

[سليم حاصبيا]

يمكن العمل على شيت محمي بواسطة الكود دون ازالة الحمابة باستعمال هذا السطر (اذا كانت الشيت Sheet1 هي الشيت المحمبة)

Sheets("Sheet1").Protect , UserInterFaceOnly:=True

    هذا مثال عما اقصده

النطاق الأصفر في هذا الملف محمي بدون كلمة سر

الكود

Option Explicit


Sub test()
Dim i%
  Sheets("Sheet1").Protect , UserInterFaceOnly:=True
 
 For i = 1 To 10
  Sheets("Sheet1").Range("A" & i) = i * 10
 Next
 
End Sub

الملف مرفق للمعاينة

Prot_sheet.xlsm

[عبدالفتاح في بي اكسيل]

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

sheet1.Unprotect pwd

اما السطر  الثاني  في  نهاية كود الترحيل

sheet1.Protect pwd

 مع مراعاة اسم  الورقة 

[mk_mk_79]

شكرا لكم جميعا وتم حلها بالطريقه التى قام بشرحها الاستاذ / عبدالفتاح فى بى اكسيل وتمت بنجاح 

وجعل الله علمكم فى ميزان حسناتكم جميعا 

[أحمد يوسف]

   mk_mk_79

أين انت من  هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

[yara ahmed]

يعمل 100%

كنت احتاج هذا السطر جداااااااااااااااااااا لكى يعمل الكود على ملف محمى

تحفة تسلم ايدك