ابوزيد قام بنشر نوفمبر 28, 2015 مشاركة قام بنشر نوفمبر 28, 2015 السلام عليكم ممكن تغيير الدخول الى الملف برقم جديد كل ثلاث ايام ثلاثة ايام الاولى باسم : الحمد لله بعد ثلاث ايام باسم : الله اكبر وبعد ثلاث ايام باسم : سبحان الله وحاليا الدخول برقم : 123 شاشة دخول - تغيير الباسورد.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 28, 2015 مشاركة قام بنشر نوفمبر 28, 2015 بالامكان على مااضن بهذي الطريقه Private Const Dat_On As String = "2015/12/28" '' التاريخ الاولي الذي يبداء العد من بعده Private Function Pass_My() As String Dim Vl1 As Date Dim Vl2 As Date Dim Vl3 As Date Dim Ch_Date As Date Dim Dt_on As Date '********************************* Dt_on = Dat_On Vl1 = VBA.DateAdd("d", 3, Dt_on) Vl2 = VBA.DateAdd("d", 6, Dt_on) Vl3 = VBA.DateAdd("d", 9, Dt_on) Ch_Date = DateSerial(Year(Date), Month(Date), Day(Date)) If Ch_Date = Vl1 Then Pass_My = "الحمد لله" ElseIf Ch_Date = Vl2 Then Pass_My = "الله اكبر" ElseIf Ch_Date = Vl3 Then Pass_My = "سبحان الله" End If '********************************* End Function وتستدعي الدالة من السطر التالي If TextBox1.Text = "123" Then ليكون بالشكل التالي If TextBox1.Text = Pass_My Then ارجو ان يفي بالغرض تحياتي 2 رابط هذا التعليق شارك More sharing options...
ابوزيد قام بنشر نوفمبر 28, 2015 الكاتب مشاركة قام بنشر نوفمبر 28, 2015 (معدل) السلام عليكم وفقكم الله - اضفت الكود ، ولكن عند كتابة كلمة (الحمد لله) لا يقبل هذا الباسوررد ، وعند الضغط على كلوس (X) يدخل الى الملف ممكن اعزكم الله عمل الكود على الملف المرفق - اكون شاكر تم تعديل نوفمبر 28, 2015 بواسطه ابوزيد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 28, 2015 مشاركة قام بنشر نوفمبر 28, 2015 (معدل) لاتنسى انه لن يتفعل على شرط الا بعد التاريخ او الايام المضافه؟ لذا اذا تاريخ اليوم لايساوي التاريخ المحدد المضاف له 3 يوم او 6 يوم او 9 يوم سيكون الباسورد 123 اذا اردت ان تعرف مااقصد اذهب الى السطر التالي في الداله Ch_Date = DateSerial(Year(Date), Month(Date), Day(Date)) وغيره بهذا اي بعد مرور 3 ايام Ch_Date = "2015/12/31" بعد الحفظ وفتح الملف مره اخرى لن يقبل الا بالباسورد "الحمد لله" شاشة دخول - تغيير الباسورد_111.rar تم تعديل نوفمبر 28, 2015 بواسطه الـعيدروس 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر نوفمبر 28, 2015 مشاركة قام بنشر نوفمبر 28, 2015 السلام عليكم ورحمة الله بعد إذن استاذي الفاضل السيد علي العيدروس ولإثراء الموضوع هذا كلمة مرور برقم عشوائي يتغيٍر عند كل دخول وذلك علي الرابط أدناه تم وضعه بموضوع جديد للإستفاده عند البحث. http://www.officena.net/ib/topic/65226-تفضلوا-كلمة-مرور-عن-طريق-توليد-رقم-عشوائي/ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.