salahawwad90

شكرا كثير الله يجزيكم الخير

السلام عليكم هل يمكن المساعدة بجعل الرقم السري مخفي او اظهار * بدل الرقم السري حسب الصورة المرفقة وحسب الكود التالي مع الشكر Private Sub CommandButton9_Click() Dim lrow As Long Dim password As String Dim inputPassword As String Dim username As String Dim ws As Worksheet Set ws = list username = ws.Range("O2").Value lrow = ws.Cells(ws.Rows.Count, 12).End(xlUp).Row For i = 2 To lrow If ws.Cells(i, 12).Value = username Then password = ws.Cells(i, 13).Value Exit For End If Next i inputPassword = InputBox("يرجى إدخال كلمة السر:", "تحقق من كلمة السر") If inputPassword = password Then ' تعطيل التحديثات والأحداث والحسابات Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual ThisWorkbook.Save Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Me.Hide Application.Visible = True Else MsgBox "الرجاء التأكد من كلمة السر!" End If End Sub

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

السلام عليكم لدي ملف اكسيل فورم ل ارساله سائل نصية الكود يعمل بشكل صحيح ولكن لا يتم لص نص الرساله ارجو المساعدة Private Sub CommandButton1_Click() Dim contact As String Dim text As String ' contact = TextBox1.Value text = TextBox2.Value ' Google Messages ActiveWorkbook.FollowHyperlink Address:="https://messages.google.com" Application.Wait (Now + TimeValue("00:00:10")) ' Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) ' Call SendKeys(contact, True) Application.Wait (Now + TimeValue("00:00:04")) ' Call SendKeys("{TAB}", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys(text, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) ' Enter key Application.Wait (Now + TimeValue("00:00:04")) End Sub sms.xlsm

السلام عليكم احتاج كود vba للجمع بين تاريخين ل اسم زبون او اسم صنف في الاكسيل فورم ادخال و تعديل مرن مع الصور.xls

شكرا كثير مهند محسن

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