ابو مارفن

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

Sub Print_Selection() ' Dim Cel As Range Dim Rng As Range Dim Del_Rng As Range ScreenOff Return_Sh = ActiveSheet.Name ActiveSheet.Copy after:=Sheets(Sheets.Count) ActiveSheet.UsedRange.Borders.LineStyle = xlNone '=============================================================== Set Rng = Selection Rng.Interior.ColorIndex = 4 Set SourceRange = ActiveSheet.Cells Set destrange = ActiveSheet.Cells SourceRange.Copy destrange.PasteSpecial (xlValues) Application.CutCopyMode = False '=============================================================== For Each Cel In ActiveSheet.UsedRange If Cel.Interior.ColorIndex <> 4 Then If Del_Rng Is Nothing Then Set Del_Rng = Cel Else Set Del_Rng = Application.Union(Del_Rng, Cel) End If End If Next Del_Rng = "" ActiveSheet.UsedRange.Interior.ColorIndex = xlNone '=============================================================== For Each shp In ActiveSheet.Shapes shp.Delete Next shp '=============================================================== ActiveSheet.PrintOut Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True Sheets(Return_Sh).Select '=============================================================== ScreenOn Set Cel = Nothing Set Del_Rng = Nothing ' End Sub السلام عليكم ...خطا في كود طباعه الجزء المحدد وفي كود الترحيل في حال كانت الاوراق محمية.... أرجو من حضراتكم مساعدتى فى حل هذه المشكلة ,بارك الله فيكم جميعا تحياتي للجميع Sub ترحيل() Dim lastRow As Integer, WS As Worksheet, SH As Worksheet Set WS = ThisWorkbook.Worksheets("قائمة"): Set SH = ThisWorkbook.Worksheets("اسماءالمراجعين") lastRow = WS.Cells(Rows.Count, 2).End(xlUp).Row With SH: lr = SH.Cells(Rows.Count, 2).End(xlUp).Row + 1 With .Range("B" & lr): .NumberFormat = "[$-,101]yyyy/mm/dd;@": .Value = Date: .Cells(, 1).Resize(ColumnSize:=4).Merge With .Cells(, 1).Resize(ColumnSize:=4): .Borders.Value = 1: .Borders.Weight = xlMedium: .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter: .Font.Bold = True: .Font.ColorIndex = xlAutomatic: .Interior.ThemeColor = xlThemeColorDark1: .Interior.TintAndShade = -0.349986266670736: End With: End With End With WS.Range("b2:e" & lastRow).Copy SH.Range("b" & lr + 1).PasteSpecial Paste:=xlPasteValues WS.Range("b2:b" & Rows.Count).ClearContents MsgBox "لقد تم ترحيل البيانات بنجاح" End Sub ترحيل وطباعة المحدد.xls

يمكن التعديل من الاساتذة على المعادلة داخل الملف المرفق للاستاذ ياسر المحترم والتي تبحث داخل القائمة المنسدلة دون استخدام اي عمود مساعد سوف تستفاد منها كثيرا معادلة القائمة المنسدلة.xlsm

شكرا جزيلا استاذ وبارك الله بيك الله يكثر من امثالك الله يحفظ احبابك ويرحم امواتك

شكرا جزيلا استاذ حسين الان الكود يعمل ١٠٠% بارك الله بيك على جهودك ومساعدتك الأعضاء في هذا المنتدى الجميل. هل يمكن جعل الباسورد يكون بشكل نجوم وليس ارقام تحياتي لك وجعلها الله في ميزان حسناتك

استاذ حصلت على هذا الكود يعمل فقط عند ادخال باسورد لاول مره وعند اعادة ادخال باسورد اخر فالكود لا يقبل . ولكن عند الضغط على كود الغاء حماية الصفحات وإدخال الباسورد خطأ وعند الضغط مره اخرى على زر حماية الصفحات فان الكود يقبل ادخال باسورد جديد دون الغاء حماية الصفحات، ياريت التعديل على الكود لكي لا يقبل ادخال باسورد جديد إلا بعد ادخال باسورد صحيح وإلغاء حماية الصفحات كما في المرفق مع تحياتي لجهودكم تعديل كود حماية الصفحات).xls

بارك الله بيك وبجهودك القيمة استاذ منير

مشكور استاذ العزيز على هاذا الابداع الله يحفظك ويبارك بجهودك تحياتي

بارك الله بيك استاذ حسين المحترم توجد مشكله عند الضغط على زر الرجوع هل يمكن تنفيذ المطلوب بطريقة اخرى تحياتي

السلام عليكم محتاج تعديل على الكود لمنع ادخال باسورد اخر في حال تم حمايه الصفحات مسبقا وظهور نافذه تفيد بان الصفحات محميه كما في المرفق اكون ممنون منكم وبارك الله بجهودكم تعديل كود حماية الصفحات-1.xls

السلام عليكم ممكن حل المشكلة الحاصله في كود الموجود في حد الصفحه ( الغرض من الكود نسخ الرقم من خلايا العمود A عند النقر بالماوس عليها الى الخليه f1 وبعدها نقل الرقم من الخليه f1 الى خليه d5 في كل صفحه يتم الدخول عليها من خلال الارتباط التشعبي ) . مع جزيل الشكر والامتنان خطا في كود حد الصفحة.xls

بارك الله بيك استاذ سليم ابدعت

السلام عليكم بارك الله بجهودك استاذ سليم في حال اردنا اضافه رقم ١ الى صفوف العمر مثلا الي عمره ٥٠ يصير ٥١ والي عمره ١٥ يصير ١٦ .... وهكذا شكرا

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

اتمنى ايجاد حل التعديل على كود حماية الصفحات في هذا الملف المرفق تعديل كود حماية الصفحات.xls

ممتاز عاشت ايدك استاذ العزيز

السلام عليكم تعديل على الكود قفل الشيتات لجعله يستثني شيت معين وتعديل على كود استدعاء البيانات الاسم المدرج تلقائيا بدون الضغط على اي زر . مع جزيل الشكر لجهود الجميع تعديل كود قفل الصفحات واستدعاء البيانات تلقائيا .xls

بارك الله بيك ست ساجدة على هذه الشروحات المميزة والواضحه تستحقين كل الاحترام والتقدير الله يحفظك تحياتي

الله يحفظكم جميعا اساتذتنا الافاضل في هذا الصرح العظيم الله يبارك بجهودكم جميعا ماتقصرون مع اي عضو يطلب الاستفسار او المساعدة او حل مشكلة تواجهه تحياتي للجميع

الله يشفيه وينطيه الصحة والعافية ويقوم بالسلامه

للرفع

دومك مبدع استاذ عمر في تقديم الحلول الفريده الله يحفظك ويبارك بيك ويكثر من امثالك

مشكوره جهودك استاذ وجيه المحترم كيف يمكن ان نجعل نتيجه البحث في القائمة المنسدلة تبحث عن اي كلمه في الخلايا مهما كان ترتيبها في الخليه كما في الصوره المرفقه مع جزيل الشكر لحضرتك

الامر بسيط حدد عمود القائمه المنسدله وادخل على البيانات وبعد ذلك ضع علامه صح في التنبيه الخطآ وعلامه صح في خانه رساله الادخال وبعد ذلك تقيد الادخال كما طلبت

هل يمكن ان يكون مدى البحث مطاطي وعن اي كلمة داخل الخلية مهما كان ترتيبها داخل الخلية كما في المرفق