samycalls2020

التواريخ جميعها مكتوبة مسبقاً .. فهل يمكن أن يعمل الكود بمجرد فتح الملف

بتغير التاريخ فى الكمبيوتر ليتساوى مع أى تاريخ فى العمود F ثم نفتح الملف لايتم تغير التاريخ تلقائى من المعادلة الى التاريخ العادى إلا إذا وقفنا على الخلية وعملنا دبل كليك حيث ان الكود يتعامل مع اي تغيير قي العامود D او العامود F يجب ان تكتب تاريخاً في العمود D او العامود F في خلية واحدة كل مرة ليتم تنفيذ الكود

أشكر الاستاذ / شوقى على مشاركته كما اشكر أخونا الكريم سليم .. وارجو منه أن يكون الكود تلقائى

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

السلام عليكم هل يمكن .. تحول المعادلة الى قيمة ثابته بشرط ///////////////////////// وماهو الشرط ؟؟.............. تحويل معادلة التاريخ الى ناريخ عادى بشرط.rar

للرفع

أعود بالأمل من جديد .. وأرجو من الأخوة الأفاضل مساعدتى فى الوصول للحل

تجاهل مؤسف

للرفع أعزكم الله

للرفع

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع كل عام وأنتم بخير

للرفع

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

للرفع أكرمكم الله

للرفع

للرفع

السلام عليكم .. كود بسيط لنسخ خلية Sub S() Sheets("WW").Range("D7").Value = Range("H10").Value End Sub بتغير الخلية H10 والضغط غلى زر الماكرو تنسخ الخلية H10 فى الخلية D7 فى ورقة WW هذا الكود البسيط يعنى أن الخلية D7 فى ورقة WW تساوى الخلية H10 فى ورقة GG ** فلو أردنا استبدال الخلية المعطى H10 فى ورقة GG بخلية أخرى فى ملف أخر .. وليكن خلية C8 فى ورفة BB فى ملف CUSTOMER .. فكيف يكون الكود ؟؟ ** أو العكس استبدال الخلية المستقبل D7 فى ورقة WW بخلية أخرى فى ملف أخر .. وليكن خلية C8 فى ورفة BB فى ملف CUSTOMER .. فكيف يكون الكود ؟؟ CUSTOMER.rar

السلام عليكم .. هناك ملفان الأول فواتير .. والثانى عملاء تم الربط العادى بمعادلة .. هل يمكن تحويله الى كود حركة عملاء.rar

بفضل الله .. وبمساعدة أخونا الكريم ياسر .. أعتقد أنه تم عمل الماستر باسورد وأن أراد أحد المشاركة بفكرة أو رأى فمرحباً به .. ماستر باسورد.rar

أعزك الله على تواضعك وحسن خلقك وجميل ردك .. أخى الفاضل / ياسر

السلام عليكم الكود يعمل ولكن عند فتح الملف تظهر رسالة كما فى الصورة وبالضغط على END تختفى الرسالة وتجد أن الكود يعمل * هل من المكن جعل هذه الرسالة لاتظهر .. أو اصلاح الخظأ بالكود الرجاء المساعده أيها الأخوة .. كم ناديت .. ولا مجيب .. إن الله في عون العبد ما دام العبد في عون أخيه Sub AUTO_OPEN() MyPassword = Sheets("SS").Range("A1") For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub عملاء.rar

للرفع أرجوا المساعدة أخى الكريم / ياسر

الفكرة هى استبدال الباس ورد فى كود للحمايه الملف رئيسى باسم " control " المطلوب .. استبدال الباس ورد 123 بالقيمة الموجوده فى الخليه A1 فى الورقة SS فى ملف " عملاء" والملف " عملاء " وغيره مرتبطين بالملف الرئيسى " control " وخلية A1 فى الورقة SS فى ملف " عملاء " تأخذ قيمتها من الملف الرئيسى " control " وبتغير الباس ورد قى ملف " control " يتغير فى الخلية A1 فى الورقة SS فى ملف " عملاء" وكذلك فى جميع الملفات الأخرى المرتبطة . فيكون باسورد رئيسى هذا الكود يوضع فى كل الملفات Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub فهل يصلح هكذا Sub AUTO_OPEN() MyPassword = Sheets("SS").Range("A1") For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub

الفكرة هى استبدال الباس ورد فى كود للحمايه الملف رئيسى باسم " control " المطلوب .. استبدال الباس ورد 123 بالقيمة الموجوده فى الخليه A1 فى الورقة SS فى ملف " عملاء" والملف " عملاء " وغيره مرتبطين بالملف الرئيسى " control " وخلية A1 فى الورقة SS فى ملف " عملاء " تأخذ قيمتها من الملف الرئيسى " control " وبتغير الباس ورد قى ملف " control " يتغير فى الخلية A1 فى الورقة SS فى ملف " عملاء" وكذلك فى جميع الملفات الأخرى المرتبطة . فيكون باسورد رئيسى هذا الكود يوضع فى كل الملفات أعتزر لقد تكرر عرض السؤال وللأسف لم أعرف الطريقة لحزف هذا التكرار Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub فهل يصلح هكذا Sub AUTO_OPEN() MyPassword = Sheets("SS").Range("A1") For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub