عمار العامري قام بنشر يونيو 3, 2013 قام بنشر يونيو 3, 2013 السلام عليكم اشكركم جزيل الشكر انا متابع للموقع منذ فترة واستفد كثير منكم عندي استفسار بسيط جدا عندي ملف اكسيل 2007 مشارك فيه اكثر من 7 اجهزة واريد عمل ماكرو فيه هل يقبل ذلك او لا - لأني جربت واستفاد منه جهازين فقط اما البيقة رفض ؟ وهل صحيح ان الاكسيل 2010 يقبل المشاركة لعدد من الأجهزة مع الماكرو بدون مشاكل ؟ وثانيا : لدي قاعدة بيانات كبيرة رئيسية في شيت اريد ان احمي هذه الشيت فقط دون الملف من الاطلاع عليها وفتحها نهائي الا بكلمة مرور . هل استطيع ؟ تحياتي لكم 1
طارق محمود قام بنشر يونيو 4, 2013 قام بنشر يونيو 4, 2013 السلام عليكم عندي ملف اكسيل 2007 مشارك فيه اكثر من 7 اجهزة واريد عمل ماكرو فيه هل يقبل ذلك او لا - لأني جربت واستفاد منه جهازين فقط اما البيقة رفض ؟ وهل صحيح ان الاكسيل 2010 يقبل المشاركة لعدد من الأجهزة مع الماكرو بدون مشاكل ؟ الطبيعي أنه يقبل بلامشاكل لعدد 7 اجهزة قد تكون المشكلة في أن الأجهزة الرافضة للمشاركة ليس مفعل بها الأكواد (يعني قلل أمان الماكرو بها) أو قد تكون المشكلة في أن الملف بامتداد xlsb فهذا لايتعامل مع مشاركة الملفات وثانيا : لدي قاعدة بيانات كبيرة رئيسية في شيت اريد ان احمي هذه الشيت فقط دون الملف من الاطلاع عليها وفتحها نهائي الا بكلمة مرور . هل استطيع ؟ نعم ممكن عمل كود يجعل الورقة مخفية (أو مخفية جدا) دائما إلا بكلمة سر مخفية :يمكن رؤيتها بدون استخدام محرر الأكواد ، إذا عرفت كلمة السر مخفية جدا :لايمكن رؤيتها بدون استخدام محرر الأكواد
عمار العامري قام بنشر يونيو 5, 2013 الكاتب قام بنشر يونيو 5, 2013 (معدل) وعليكم السلام ورحمة الله وبركاته بالنسبة للمشاركة لاتوجد لدي مشكلة فيها . ولكن الكود يعمل في جهازين فقط من اصل 7 اقصد بذلك ان الامتداد قد تم عمله على الملف الاصلي والاكواد مفعلة بجميع الاجهزة مع تقليل امان الماكرو. ومع ذلك لايعمل مع البقية . بالنسبة لحماية الشيت دون الملف من فتحها الا بكلمة مرور ارجو منك تزويدي بكود : مخفية :يمكن رؤيتها بدون استخدام محرر الأكواد ، إذا عرفت كلمة السر بارك الله فيك تم تعديل يونيو 5, 2013 بواسطه عمار العامري
طارق محمود قام بنشر يونيو 5, 2013 قام بنشر يونيو 5, 2013 السلام عليكم بالنسبة لحماية الشيت دون الملف من فتحها الا بكلمة مرور هذا هو الكود في حدث الصفحة Private Sub Worksheet_Activate() 1 [A9999].Select Application.DisplayFullScreen = True Application.CommandBars("Full Screen").Visible = False ActiveWindow.DisplayHeadings = False x = InputBox("Pass Word ??") If x <> "333" Then GoTo 1 [A1].Select Application.DisplayFullScreen = False Application.CommandBars("Full Screen").Visible = True ActiveWindow.DisplayHeadings = True End Sub والمرفق ملف مكون من 3 شيتات الورقة Z كلما دخلت إليها سيطلب منك الباسوورد الباسوورد هي "333" hide_Sheet.rar
عمار العامري قام بنشر يونيو 5, 2013 الكاتب قام بنشر يونيو 5, 2013 (معدل) بارك الله فيك تم بنجاح تفعيل كود الحماية أحب الصالحين ولست منهم ** لعلي أن أنال بـهم شفـاعـة وأكره مَن تجارته المعاصي ** ولو كنا سواء في البضاعة تم تعديل يونيو 5, 2013 بواسطه عمار العامري
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.