اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

kinguter1

02 الأعضاء
  • Posts

    64
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 Neutral

عن العضو kinguter1

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدرس ثانوى فنى

اخر الزوار

1,030 زياره للملف الشخصي
  1. الف الف شكر يا استاذ ياسر زادك الله علماً ونفع بك وجعله فى ميزان حسناتك . وبالنسبة لتغيير اسم الظهور أنا حاولت لكن مش عارف الخطوات
  2. اشكرك يا استاذ ياسر شكراً جزيلا على سرعة الردو ارجوا أن تفيدنى بالنسبة للمطلوب الأول وهو عند الخروج من textbox الرقم القومى يتم كتابة تاريخ الميلاد و المحافظة و النوع والديانة فى أماكنها فى الفورم وكل عام و حضرتك بخير
  3. ارجو المساعدة فى تعديل الكود المرفق حسب المطلوب فى شيت1 وكل عام وانتم بخير Book1.rar
  4. الأساتذة الأفاضل خبراء اكسيل برجاء مساعدتنا فى فى إضافة السطر الموجود لأنى عند تشغيله يوقف عمل النسخ ولكم جزيل الشكر Sub Tarheel() Application.ScreenUpdating = False prompt = "åá ÊÑíÏ ÊÍÏíË ÏÑÌÇÊ ÃÚãÇá ÇáÓäÉ" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "ÊÝÑíÛ æØÈÇÚÉ ÇáÏÑÌÇÊ" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then PT = ActiveWorkbook.Path Application.DisplayAlerts = False For SH = 20 To 24 nm = Format(SH, "@") Sheets(nm).Activate LR = [A9999].End(xlUp).Row Range("aa6:ca3930").Copy Workbooks.Open Filename:=PT & "\" & nm & ".xlsm" 'Sheets("maindata").Range("aa1:bc2000").UnMerge Sheets("maindata").Range("aa1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Sheets("maindata").Range("aa1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Close (True) Next Application.CutCopyMode = False Application.DisplayAlerts = True Sheets("main").Select MsgBox "Êã ÊÍÏíË ÏÑÌÇÊ ÃÚãÇá ÇáÓäÉ ÈäÌÇÍ" Else End If Application.ScreenUpdating = True End Sub
  5. الأساتذة الأفاضل أرجوا اختصار الكود المرفق لأنى عند إضافة شيت جديد أضطر لنسخ نفس الكود لذا أرجوا تعديل الكود فى صور حلقة تكرارية حيث أقوم فيها بزيادة عدد الشيتات فقط 2.rar
  6. المطلوب موجود فى المصنف 2 ترحيل.rar
  7. الإخوه الأفاضل اشكركم على الصبر وسعة الصدر وأذكر الأستاذ الفااضل ابن مصر بطلبى الأول والذى لم أطلب غيرة تاريخ المشاركة 11 November 2014 - 04:17 PM الأساتذة الأفاضل السلام عليكم ورحمة الله وبركاته أرجو تعديل الكود فى المرفق بحيث عند الفتح يقوم بإخال كلمة السر "as" وبعد تنفيذ الكود يقوم بحماية الأوراق بنفس كلمة السر "as" هذا للتذكير فقط وفى هذا لطلب لم أطلب نسخ ولا إخفاء ولا إظهار ولا كتابة الباسورد فى أحد الشيتات وكان المرفق لتعديل سطرين الحماية فقط وكنت أحاول فى كل رد أن أوضح ما فهمته حضرتك فى النهاية Sheet1.Protect Password:="as", DrawingObjects:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True وهو تعديل سطر الحماية بهذة الصورة فلك وللأستاذ ياسر جزيل الشكر والتقدير عذرا على إهدار وقتكما فى محولاتى لتوضيح طلبى
  8. أخى الفاضل YasserKhalil أنا لو عارف اصحح الخطأ فلما اسأل حضرتك سألت عن الأعمدة والصفوف التى أريد إخفائها الإجابة أننى سوف أخفى وأظهر أعمدة وصفوف ليست محددة وذلك فى ظل حماية الورقة وللتوضيح أكثر قم حضرتك بإخفاء العمود A مثلا بعد فتح هذا المرفق ستجد أن أمر HIDE غير نشط ولذلك أربد تصحيح السطر الخطأ حتى يتيح لى حماية الورقة ويترك أمر HIDE نشط last1.rar
  9. الأستاذ العزيز YasserKhalil هذا الخطأ هو المشكلة وأريد تصحيح هذا السطر ليزول الخطأ لأننى عندا أكتب السطر بالشكل التالى لا يحدث خطأ ActiveWorkbook.Protect ("as")
  10. الأستاذ العزيز YasserKhalil اشكرك على المرور على هذا الموضوع وارجو الاطلاع على المرفق الأخير last لآنى لا أريد حماية الورقة بالكامل ولكنى أريد التحكم فى إظهار وإخفاء الأعمدة والصفوف بدون فك الحماية
  11. الأستاذ العزيز ibn_egypt بارك الله فيك وزادك علماً نتيجة رائعة و أعطتنى نتائج طيبة مع السطر بهذا الشكل ActiveSheet.Protect ولكن مع السطر التالى اصبح السطر لونة أحمر ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True فأرجوا الإفادة تحياتى
  12. الأستاذ العزيز ibn_egypt اشكرك شكرا جزيلا على الاهتمام وعلى هذا الكود الجميل ولكن السؤال هل ممكن كتابة الباسورد داخل الكود بالشكل التالى ActiveSheet.Unprotect.password = "as
  13. أخى العزيز ibn_egypt اشكرك على الرد ولكن ليس هذا هو المطلوب الملف المرفق به كود بعمل عند الفتح والمطلوب تعديل السطر ActiveSheet.Unprotect بحيث يضاف إليه الــ password داخل الكود حتى لا تظهر رسالة إدخال كلمة السر وتعديل السطر ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True بحيث يكون بنفس كلمة السر "as" المهم أن كلمة السر تكون داخل الكود وليست فى أوراق العمل
  14. الأساتذة الأفاضل السلام عليكم ورحمة الله وبركاته أرجو تعديل الكود فى المرفق بحيث عند الفتح يقوم بإخال كلمة السر "as" وبعد تنفيذ الكود يقوم بحماية الأوراق بنفس كلمة السر "as" Book1.rar
×
×
  • اضف...

Important Information