اذهب الي المحتوي
أوفيسنا

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


mk_mk_79
إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

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

Screenshot333333333333.jpg

رابط هذا التعليق
شارك

يمكن العمل على شيت محمي بواسطة الكود دون ازالة الحمابة باستعمال هذا السطر (اذا كانت الشيت 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

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

sheet1.Unprotect pwd

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

sheet1.Protect pwd

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

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

   mk_mk_79

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information