ياسر فاروق

اشكرك على الرد وأطمع فى فهم الكود هل يمكن تغيير المقياس وكشرا على وقتك الثمين

الساده برجاء المساعده فى إيجاد كود لعمل الاتى: 1- ضبط مقياس الشيتيات بالملف على 75% و إمكانية تغيير المقاس ، ويتم ذلك على كل الشيتيات مره واحده 2- هل من الممكن تغيير اى شىء فى الملفات كـ رأس وتذييل الصفحات بدون فتح الملفات وشكرا على المساعده

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

الساده السلام عليكم ورحمة الله وبركاته موضح كودين من أعمال أساتذة الأكواد بهذا الصرح الكبير ولكن كل كود يقوم بمهمة خاصة واذا تم عملهما معا يكون مفيد جدا للملف وحماية كبيرة له (إذا تم حفظ باسم وتغيير نوعية الملف - كأن شيئا لم يكن ويمكن عمل كل شىء على الملف) هل ينفع جمع الكودين ليعملوا فى الملف الكود الأول يعمل على الطباعة بكلمة سر Private Sub Workbook_BeforePrint(Cancel As Boolean) motpass = "123" q1 = InputBox("Please enter your password!") If q1 <> motpass Then MsgBox ("Please enter your valid password!!"), vbCritical Cancel = True End If End Sub الكود الثانى يقفل قوائم الاكسيل Sub Auto_Close() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Call ToggleCutCopyAndPaste(True) Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub وشكرا

أخى العزيز / على حيدر السلام عليكم ورحمة الله وبركاته أولا شكرا على اهتمامكم مره ثانية (الملحوظة الوحيدة اى حفظ باسم للملف واختيار حفظ بنوعيه أخرى للملف يمكن الطباعة بسهولة) بالنسبة للأكواد التى أرفقتها سابقا الكود الأول يعمل على الطباعة بكلمة سر Private Sub Workbook_BeforePrint(Cancel As Boolean) motpass = "123!@" q1 = InputBox("Please enter your password!") If q1 <> motpass Then MsgBox ("Please enter your valid password!!"), vbCritical Cancel = True End If End Sub الكود الثانى يقفل قوائم الاكسيل Sub Auto_Close() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Call ToggleCutCopyAndPaste(True) Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub اريد جمع الكودين ليعملوا فى الملف وشكرا مره أخرى

الساده الافاضل السلام عليكم ورحمة الله وبركاته وكل عام وأنتم بخير (عيد الأصحى) تم البحث فى صرح أوفيسنا عن أكواد لمنع الطباعة وكود قفل كل أوامر ملف الاكسيل والحمدالله تم إيجادهما عن مساهمات الاساتذه العظام بالمنتدى كما هو الموضح: الكود الأول: وظيفته يحتاج كلمة سر لطباعة ملف الاكسيل (ولكن عند الحفظ باسم ينتهى تفعيل الكود) Private Sub Workbook_BeforePrint(Cancel As Boolean) motpass = "123" q1 = InputBox("Please enter your password!") If q1 <> motpass Then MsgBox ("Please enter your valid password!!"), vbCritical Cancel = True End If End Sub الكود الثانى: وظيفته يقفل كل أوامر ملف الاكسيل (ممكن يطبع من خلال لوحة المفاتيح) Sub Auto_Close() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Call ToggleCutCopyAndPaste(True) Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub حاولت تفعيل الكودين فى نفس الملف - ولم أنجح ، برجاء المساعده وشكرا

شكرا على اهتمامك ووقتك ولكنى لم أجد فى الحفظ باسم ما تشير إليه (عندى اوفيس 2010) المشكلة هى فى - الحفظ باسم - اذ تم إلغاؤها من قائمة الاكسيل يكون أفضل مرفق كود تحصلت عليه من الموقع عن بعض الساده الافاضل يخفى القوائم - حاولت تفعيل الكودين فى نفس الملف - ولم أنجح - مرفق الكود الذى يخفى القوائم Sub Auto_Close() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Call ToggleCutCopyAndPaste(True) Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

الساده الافاضل السلام عليكم ورحمة الله وبركاته تم البحث فى صرح أوفيسنا عن كود لمنع الطباعة - الا بكلمة سر - ووجدته عن طريق الاساتذه العظام وهو كما المرفق ويتم وضعه فى حدث الصفحة Private Sub Workbook_BeforePrint(Cancel As Boolean) motpass = "123!@" q1 = InputBox("Please enter your password!") If q1 <> motpass Then MsgBox ("Please enter your valid password!!"), vbCritical Cancel = True End If End Sub ولكن عند تجربة حفظ المستند (حفظ باسم) والحفظ بدون اختيا ماكرو - لم تعد له فاعلية ويمكن طباعة المستند برجاء المساعده وشكرا

الساده السلام عليكم ورحمة الله وبركاته يوجد عندى اكثر من 15 ملف بكل ملف 16 شيت هل يوجد طريقة للربط بينهم عند تغيير رأس أو تذييل الصفحة يتم فيهم مره واحدة

الساده الافاضل السلام عليكم ورحمة الله وبركاته برجاء المساعده فى الملف المرفق وشكرا BOQ test.rar

مصطفى شاهين شكرا على اهتمامك ووقتك الثمين

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

الساده الأفاضل السلام عليكم ورحمة اللة وبركاته الكود الموضح بعد تم الاستعانه به من مكتبة الأكواد تحت إشراف أ/ ياسر خليل وتجاوب أساتذة الاكواد فى المنتدى فى تجميع الاكواد ووضعها بالمكتبة وايضا توضيح ماذا يفعل الكود وكيفية وضعه بالملف كود (متابعة التغيير فى ملف الاكسيل) برجاء المساعدة فى إضافة بعض التقنيات عليه وهى: 1- عمل تظليل باللون الأصفر لما حدث من تغيير 2- حفظ ملف مراجعة التغييرات من الـ C إلى الـ D (حاولت ولم تنجح) 3- جعل كل تغيير فى ملف منفصل ويكتب بالتاريخ من الخارج عند قفل الملف وفتحة وشكرا على مجهود من أبدعوا بالمكتبة وشكرا على الاهتمام كود تعقب التغييرات التى تحدث فى ملف الأكسيل.rar

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل ياسر خليل أبو البراء أخونا الغائب عن العين والحاضر في القلب (رحمه الله رحمة واسعة ووسع عليه قبره وأدخله الجنة من غير سابقة عذاب) أخونا الحسامي أشكركم على هذه الهدية الغالية

الساده الافاضل السؤال الأول: برجاء شرح كيفية كتابة كود ترحيل (من خلية الى خلية بنفس الشيت) أو (من شيت إلى شيت) فى الحالات التالية: - بدون شرط - بشرط ويتم ذلك فى كل الشيتات الموجوده وينطبق عليها نفس الشرط السؤال الثانى هل يمكن ربط ترحيل الخلية برقم صفحة الاكسيل الظاهرة فى الخلفية وشكرا على اهتمامكم

الاستاذ العزيز: ياسر خليل أبو البراء شكرا على مجهودك

الاستاذ العزيز: ياسر خليل أبو البراء تسلم على ما تفضلت به من اهتمام ومجهود للشرح وأطمع فى شرح كود تجميع كل صفحة وترحيلها الى اخر صفحة وترحيل المجوع الكلى الى خلية اخرى فى شيت اخر يوجد ملف مرفق وتحت امرك فى اى ايضاح BOQ test.rar

الاستاذ العزيز: ياسر خليل أبو البراء تسلم على ما تفضلت به من اهتمام ومجهود للشرح

الساده الافاضل تم الاستعانه بالكود الموضح من الاستاذه الافاضل احمد حمور-ابوعبدالله ، طارق محمود عن سنة July 31, 2010 برجاء المساعدة ان يعمل هذا الكود على اى عدد من الشيتات الموجودة بالملف و اى عدد من الصفوف مع احترامى أريد شرح لكل خطوة للاستفاده ومحاولة التغيير لما يتناسب مع الجداول Sub Auto_open() For i = 1 To 10 x = Worksheets("sheet1").Cells(i, 5).Value y = Worksheets("sheet1").Cells(i, 7).Value Worksheets("sheet1").Cells(i, 8).Value = x * y Next i End Sub

الساده رجاء المساعده فى عمل الترقيم (تلقائى) كما فى الملف المرفق والمظلل باللون الأصفر وعلى حسب الشيتات حسب الموضح وعند إلغاء بند يتم تعديل الترقيم تلقائيا برجاء توضيح كيفية استعمال الترقيم التلقائى بنفس الاسلوب على ملفات اخرى وشكرا على المجهود والمساعدة B-test.rar

أ/ morestudy شكرا على اهتمامك وردك وسيتم عمل ما افترحته وشكرا

أ/ خالد الشاعر شكرا على اهتمامك بالرد ولكن الوضع كما هو فى ثقل الملف خاصة الشيتات ذو اللون الازرق على سبيل المثال Div.15B -N حاول ان تدرج سطرين وسترى ما الوقت الذى يتم وهكذا ....

الساده برجاء المساعده مرفق ملف حجمه كبير خاصة الشيتات باللون الأزرق برجاء تقليل حجم الملف لسهولة العمل عليه وتوضيح ما تم لنه يوجد ملفات بها نفس المشكلة ولكم جزيل الشكر BOQ.rar

الساده