ابن الملك قام بنشر سبتمبر 26, 2015 قام بنشر سبتمبر 26, 2015 اساتذتى الكرام البقيه في حياتكم فى وفاه الاستاذ الكبير عماد الحسامى وسبحان من له الدوام يرجى المساعده فى الملف المرفق وشكرا Passwords.rar
عادل حنفي قام بنشر سبتمبر 26, 2015 قام بنشر سبتمبر 26, 2015 اخي الفاضل لانملك الا الدعاء لاخينا الحسامي بالرحمة والمغفرة انه قريب سميع اخي نرجوا توضيح طلبك ما المطلوب بالضبط حتي لا يكون المجهود بدون نتيجة تحياتي 1
سلطان مختار قام بنشر سبتمبر 27, 2015 قام بنشر سبتمبر 27, 2015 اخي الفاضل تفحص المرفق Passwords1.rar 3
ابن الملك قام بنشر سبتمبر 27, 2015 الكاتب قام بنشر سبتمبر 27, 2015 اخي الفاضل لانملك الا الدعاء لاخينا الحسامي بالرحمة والمغفرة انه قريب سميع اخي نرجوا توضيح طلبك ما المطلوب بالضبط حتي لا يكون المجهود بدون نتيجة تحياتي أخى الفاض الاستاذ عادل حنفى كل ما أريده كود فيجوال يفعل التالى حينما تكون صندوق الاختيار الموجود اذا كان ليس به علامه صح يجعل محتوى الخليه F غير مرئى أو نجوم ***** أو ان عليها Mask لانها باسورد يجب ان تكون غير مرئية اما أذا كانت به علامه صح يكون محتوى الخلية مرئى لقد توصلت لحل هو جعل فورمات الخلايا للعمود F " ;;; " هذا الرمز يخفى محتوى الخلية ولكن لا أعرف كيف اجعله ينفذ بالفيجوال وشكرا اخي الفاضل تفحص المرفق Passwords1.rar اخى سلطان مختار كل التحية لمجهود حضرتك الكريم ولكن انا أتسائل هل يمكن التنفيذ فى نفس المكان أى اننى لا احتاج الى تغيير مكان البيانات الموجود بالعمود F وشكرا جزيلا لحضرتك
عبد العزيز البسكري قام بنشر سبتمبر 27, 2015 قام بنشر سبتمبر 27, 2015 السّلام عليكم و رحمة الله و بركاته أخي ابن الملك إجابة الأخ الكريم سلطان مختار تفي تمامًا بالغرض .. أين المشكلة إذن !!؟؟ خالص احتراماتي 1
ابن الملك قام بنشر سبتمبر 27, 2015 الكاتب قام بنشر سبتمبر 27, 2015 السّلام عليكم و رحمة الله و بركاته أخي ابن الملك إجابة الأخ الكريم سلطان مختار تفي تمامًا بالغرض .. أين المشكلة إذن !!؟؟ خالص احتراماتي الاستاذ عبد العزيز خالص تحياتى لاهل الجزائر وسلام الله عليكم ورحمته وبركاته أنا أتسائل هل يمكن أن لا أقوم بنسخ البينات من العمود F الى أى مكان أخر الاستاذ سلطان تعب معايا انا اعلم ولكن هل هناك طريقه اخرى بدون نسخ البيانات الى مكان اخر وشكرا جزيلا لمرور حضرتك العطر 1
سلطان مختار قام بنشر سبتمبر 27, 2015 قام بنشر سبتمبر 27, 2015 اعتقد وفي نفس هذه المواضيع الخاصة بالباسوورد يتم عمل صفحة مخفية لادخال بيانات المستخدم واخرى ظاهرة لدخول المستخدمين تعتمد على البيانات المخفية 1
سليم حاصبيا قام بنشر سبتمبر 28, 2015 قام بنشر سبتمبر 28, 2015 السلام غليكم جرب عذا الملف /لا حاجة الى صندوق الاختيار فقط اكتب حرف n او حرف y لظهور الباسورد و اي شيء اخر لا يفعل اي شيء الباسورد مرتبط الصفحة 2 و اذا ذهبت اليها لا تجد شيئاً Passwords1 salim.zip 1
ابن الملك قام بنشر سبتمبر 28, 2015 الكاتب قام بنشر سبتمبر 28, 2015 السلام غليكم جرب عذا الملف /لا حاجة الى صندوق الاختيار فقط اكتب حرف n او حرف y لظهور الباسورد و اي شيء اخر لا يفعل اي شيء الباسورد مرتبط الصفحة 2 و اذا ذهبت اليها لا تجد شيئاً Passwords1 salim.zip هذه الفكرة جميله ورائعه ولكن كيف عندما أدخل الى الصفحه الثانية لا اجد بيانات ؟؟؟ بمعنى عندما اقوم بادخال البيانات اين اسجلها فى شيت 2 أم اين ؟؟؟؟ شكرا أخى الكريم لمجهودك
سليم حاصبيا قام بنشر سبتمبر 28, 2015 قام بنشر سبتمبر 28, 2015 1-اذهب الى الصفحة رقم 2 2- أضغط Alt+F11 يظهر لك الكود التابع لهذه الصفحة (هناك كودين) 3- في الكود الثاني اختر النطاق المناسب (في حالة الملف بين يديك من A6:A13) 4- قم بتعبئتة على هذا الشكل Range("a6") = "الباسورد الاول" Range("a7") = "الباسورد الثاني" Range("a8") = "الباسورد الثالث" و هكذا الى النهاية ثم احفظ الملف وهذا كل شيء 1
ياسر خليل أبو البراء قام بنشر سبتمبر 28, 2015 قام بنشر سبتمبر 28, 2015 أخي الكريم جرب الكود التالي Sub AddCheckboxes() Dim Cell As Long, LRow As Long Dim chkbx As CheckBox Dim MyLeft As Single, MyTop As Single, MyHeight As Single, MyWidth As Single Application.ScreenUpdating = False LRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row For Cell = 2 To LRow If Cells(Cell, "A").Value <> "" Then MyLeft = Cells(Cell, "G").Left MyTop = Cells(Cell, "G").Top MyHeight = Cells(Cell, "G").Height MyWidth = Cells(Cell, "G").Width Cells(Cell, "F").NumberFormat = ";;;""****""" With ActiveSheet.CheckBoxes.Add(MyLeft, MyTop, MyWidth, MyHeight) .Caption = "" .Value = xlOff .Display3DShading = False .OnAction = "CheckBox_Click" End With End If Next Cell Application.ScreenUpdating = True End Sub Sub RemoveCheckboxes() ActiveSheet.CheckBoxes.Delete End Sub Private Sub CheckBox_Click() With ActiveSheet.Shapes(Application.Caller) .TopLeftCell.EntireRow.Range("F1").NumberFormat = IIf(.ControlFormat.Value = xlOn, "general", ";;;""*****""") End With End Sub 2
عبد العزيز البسكري قام بنشر سبتمبر 28, 2015 قام بنشر سبتمبر 28, 2015 السّلام عليكم و رحمة الله و بركاته في نهاية المطاف يمكن أن نجرب حل أستاذنا القدير ياسر خليل أبو البراء .. بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله خالص احتراماتي 2
عادل حنفي قام بنشر سبتمبر 29, 2015 قام بنشر سبتمبر 29, 2015 السلام عليكم اخواني الموضوع جميل ويحتمل افكار كتير وكذلك يمكن الدمج بين اكثر من فكرة وانا اخترت هذا الاخير فقمت بادماج عمل اخي سلطان مختار مع ادخال التكست بوكس في هذا العمل والتغيير في خاصية PasswordChar وهذا يحل موضوع حفظ الباسورد في مكان اخر ارجو التجربة اخباري النتيجة تحياتي Passwords1.rar 4
عبد العزيز البسكري قام بنشر سبتمبر 29, 2015 قام بنشر سبتمبر 29, 2015 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الفاضل عادل حنفي .. على الاضافة المميّزة .. بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله .. خالص احتراماتي 2
عادل حنفي قام بنشر سبتمبر 29, 2015 قام بنشر سبتمبر 29, 2015 وبارك الله فيك اخي عبد العزيز شاكرا لمرورك تحياتي 1
ابن الملك قام بنشر سبتمبر 29, 2015 الكاتب قام بنشر سبتمبر 29, 2015 السلام عليكم ورحمة الله وبركاته كل الشكر والتقدير لكل اللى شاركوا فى مساعدتى بجد أنا متشكر جدا جدا لقد تم أثراء الموضوع بحلول متعددة انا محتار اختار مين افضل اجابه ؟؟؟؟ ينفع اختارهم كلهم والسلام عليكم 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.