عبدالله المجرب

ما شاء الله عمل مميز وابداع كبير من الاستاذ الفاضل ابوعلي

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

حاول وستنجح ان شاء الله سارسل صورة للملف بدون حماية

السلام عليكم هل فككت الحماية؟

حياك الله

السلام عليكم جرب المرفق ScrollBar.rar

السلام عليكم يمكنك استخدام خاصية استبدال الكل (Ctrl + F) وتستبدل علامة + بعلامة . (الفاصلة العشرية)

السلام عليكم قمت بعمل دالة معرفة Function MyCal(MyCl As Range) If Len(Mid(MyCl, InStr(MyCl, "+") + 1, 10)) > 5 Then MyCal = "#VALUE!": Exit Function MyCal = Val(Format(Val(Mid(MyCl, InStr(MyCl, "+") + 1, 10)) & "." & Val(Mid(MyCl, 1, InStr(MyCl, "+") - 1)), "0.000")) End Function شاهد المرفق Book1.rar

اين المرفق

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

السلام عليكم قم بالخطوات التالية اكتب = في اي خلية ثم اختر ورقة العمل (data) ثم قم بتحديد اي خلية في ورقة (data) ثم اضغط Enter

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

السلام عليكم الملف يعمل عندي بصورة طبيعية اين الخلل؟؟

السلام عليكم لزيادة الفائدة هاتان دالتان معرفتان لاستخراج الارقام والنص Function MyNo(cl As Range) For I = 1 To Len(cl) If IsNumeric(Mid(cl, I, 1)) Then MyNo = MyNo & Mid(cl, I, 1) Next End Function Function MyTxt(cl As Range) For I = 1 To Len(cl) If Not IsNumeric(Mid(cl, I, 1)) Then MyTxt = MyTxt & Mid(cl, I, 1) Next End Function

هل تقصد المشاركة الاخيرة. (الرد على ابو انس حاجب)

تم عمل المطلوب في المرفق نموذج دخول بصلاحيات اوراق العمل الاصدار الثاني.rar

إن شاء الله ان توفر الوقت ساقوم بالمحاولة

السلام عليكم استبدل هذا السطر Sheets("MyDate").Cells(Sheets("MyDate").[C10000].End(xlUp).Row + 1, 3) = ComboBox1 & " " & Format(Date, "yyyy/mm/dd") بهذا Sheets("MyDate").Cells(Sheets("MyDate").[C10000].End(xlUp).Row + 1, 3) = ComboBox1 & " " & Format(Now(), "yyyy/mm/dd hh:mm")

اللهم آمين وان شاء الله أجر وعافية

العفو أخي أبو سارة ولم اقم الا بواجبي حسب الاستطاعة

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

السلام عليكم استبدل هذا الجزء من الكود Private Sub Abu_Ahmed_AfterUpdate() If LR = T Then Cells(LR + 1, 13).Value = Me.Controls("TextBox" & T).Value End Sub بهذا Private Sub Abu_Ahmed_AfterUpdate() If LR = T Then Cells(LR + 1, 13).Value = Me.Controls("TextBox" & T).Value If LR = T + 1 Then Cells(LR, 13).Value = Me.Controls("TextBox" & T).Value End Sub

بارك االله فيك اخي ابو نصار لمزيد من الفائدة اليكم هذا الرابط http://www.officena.net/ib/index.php?showtopic=30134&hl=

مرحبا بك بين اخوانك حللت اهلا ووطئت سهلا ابو احمد

ما نسخة الاكسل لديك