kinguter1 قام بنشر أكتوبر 5, 2014 قام بنشر أكتوبر 5, 2014 السلام عليكم ورحمة الله بركاته كل عام وأنتم بخير ارجو تعديل الكود فى المرفق بحيث أننى أريد حماية الأوراق بكلمة سر "asd" أريد أيضا اخفاء الورقة maindata وكلما عملت كلمة سر للورقة maindata وأخفيتها يتوقف الكود عن العمل وذلك فى الاربع مصنفات تعديل.rar
احمدزمان قام بنشر أكتوبر 6, 2014 قام بنشر أكتوبر 6, 2014 السلام عليكم و رحمة الله لم اجد كود حماية بالملفات
kinguter1 قام بنشر أكتوبر 8, 2014 الكاتب قام بنشر أكتوبر 8, 2014 (معدل) الاستاذ العزيز / احمد كل عام وانتم بخير المرفق ليس فيه كود حماية المطلوب هو أن يعمل الكود المرفق عندما أقوم بعمل كلمة سر للورقة maindata وعندما اخفيها وذلك فى الاربع مصنفات ارجو من حضرتك أن تعمل protect و hide للورقة maindata وجرب تنفيذ الكود لترى المشكلة بنفسك تم تعديل أكتوبر 8, 2014 بواسطه kinguter1
احمدزمان قام بنشر أكتوبر 9, 2014 قام بنشر أكتوبر 9, 2014 السلام عليكم و رحمة الله وبركاته جرب الملف المرفق حماية و اخفاء ثم جرب الكود 1.rar
kinguter1 قام بنشر أكتوبر 9, 2014 الكاتب قام بنشر أكتوبر 9, 2014 السلام عليكم استاذى الفاضل المرفق 1 ليس به اكواد المفروض أن يتم تعديل المرفق الأصلى الذى يحتوى على مجلد به مصنفات من 0 : 4 والمصنف 0 هو الذى به كود يتم تنفيذه على المصنفات من 1 : 4
احمدزمان قام بنشر أكتوبر 9, 2014 قام بنشر أكتوبر 9, 2014 السلام عليكم اخي الكينق لايوجد ملف 0 في المجلد يوجد ملف Student وهذا الملف لايوجد به ورقة Maindata ولا يوجد به ورقة مخفية
kinguter1 قام بنشر أكتوبر 9, 2014 الكاتب قام بنشر أكتوبر 9, 2014 السلام عليكم استاذى الفاضل / احمد اشكرك على الصبر الجميل اتفضل هذا المرفق وقم فقط بفتح مصنف student ثم اغلقه وسترى المشكلة ملحوظة "الورقة maindata" موجودة فى المصنفات من 1: 4 وقد عملت لها protect وكلمة الحماية هى "ym" واخفيتها فأرجو تعديل الكود الموجود فى المصنف student بحيث يقوم بعمل unhide للورقة maindata وبقوم بإلغاء الحماية وبنفذ الكود المكتوب ثم يحمى الورقة بكلمة "ym" وبخفيها مرة أخرى تعديل1.rar
احمدزمان قام بنشر أكتوبر 10, 2014 قام بنشر أكتوبر 10, 2014 و عليكم السلام الآن الطلب واضح جزاك الله خيرا راجعت الملف و ان شاء الله ممكن وسوف احتاج الى اضافة للكود بعض التعريفات لسهولة الوصول غدا ان شاء الله
علي المصري قام بنشر أكتوبر 10, 2014 قام بنشر أكتوبر 10, 2014 السلام عليكم ورحمة الله وبركاته الجملة select لا تعمل في حالة الشيت المخفي فممكن حضرتك تجرب الطريقة التالية على الاكواد الخاصة بك قبل تنفيذ الكود اكتب Sheets("maindata").xlSheetVisible وبعد الانتهاء من المر المطلوب اكتب السطر التالي Sheets("maindata").xlSheetHidden ليكون الكود مثلا بالشكل التالي Range("A1:ao1000").Copy Workbooks.Open Filename:=PT & "\" & nm & ".xlsm" Sheets("maindata").xlSheetVisible Sheets("maindata").Select Range("aa1").Select ActiveSheet.Paste Sheets("maindata").xlSheetHidden 1
احمدزمان قام بنشر أكتوبر 10, 2014 قام بنشر أكتوبر 10, 2014 السلام عليكم و رحمة الله وبركاته بعد الشكر الجزيل لأخينا علي المصري جزاه الله خيرا على التوضيح ========= قمت بالتجربة التالية ونجحت الحمد لله بدون اظهار الشيت و الغاء الحماية قمنا بالغاء حماية الخلايا للملفات 1 الى 4 من تنسيق خلايا - حماية - تم تأمينها ثم اضفنا السطر التالي للكود Sheets("maindata").Range("aa1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False و الحمد لله نجحت العملية كما في المرفق AYMZتعديل1.rar
kinguter1 قام بنشر أكتوبر 12, 2014 الكاتب قام بنشر أكتوبر 12, 2014 استاذى العزيز / احمد السلام عليكم اشكرك على المجهود الذى بذلته لنصل لحل وارجو ان يتسع صدرك ومقارنه هذا الحل النهائى مع المرفق الأصلى ستجد أنه لم يتم سوى إخفاء الورقة ولكن لم يتم حماية البيانات فما فائدة الـ protect بكلمة سر للورقة maindata
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.