المدير1122

الكود غير مفعل في البرنامج بحيث انه بيشتغل علي اي جهاز وانا عايزه يشتغل علي جهاز واحد فقط

بارك الله في حضرتك طيب ممكن تشرحلي في حالة هذا الكود اضع العلامة ولا احذفها حتي يتم تفعيل الكود العلامة هي ' Sub check_hard() On Error Resume Next With CreateObject("Scripting.FileSystemObject") Da.[bb19].Value = Hex(.Drives.Item("c:").SerialNumber) End With If Da.Range("bb19").Value = "" Then GoTo 1 For Each c In Da.Range("bb21:bb35") If c.Text = Da.Range("bb19").Text Then Exit Sub Next 1 MsgBox " عفوا البرنامج غير مخصص لهذا الجهاز ", vbCritical + vbMsgBoxRight, "المدير 1122 " Application.DisplayFullScreen = False Application.DisplayAlerts = False Application.Quit ThisWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub

On Error Resume Next وما معني وضع العلامة دي امام الجملة حيث ان لونها يتغير للون الاخضر '

On Error Resume Next وما معني وضع العلامة دي امام الجملة حيث ان لونها يتغير للون الاخضر '

اريد ان اربط ملف مبيعات برقم سيريال الهارد - افيدوني ما الخطا في هذا الكود لا يتم تفعيلة Sub check_hard() On Error Resume Next If Da.Range("bb19").Value = "" Then GoTo 1 For Each c In Da.Range("bb21:bb35") If c.Text = Da.Range("bb19").Text Then Exit Sub Next 1 MsgBox " عفوا البرنامج غير مخصص لهذا الجهاز ", vbCritical + vbMsgBoxRight, "mahmoud " Application.DisplayFullScreen = False Application.DisplayAlerts = False Application.Quit ThisWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub

اريد ان اربط ملف مبيعات برقم سيريال الهارد - افيدوني ما الخطا في هذا الكود لا يتم تفعيلة Sub check_hard() On Error Resume Next If Da.Range("bb19").Value = "" Then GoTo 1 For Each c In Da.Range("bb21:bb35") If c.Text = Da.Range("bb19").Text Then Exit Sub Next 1 MsgBox " عفوا البرنامج غير مخصص لهذا الجهاز ", vbCritical + vbMsgBoxRight, "mahmoud " Application.DisplayFullScreen = False Application.DisplayAlerts = False Application.Quit ThisWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub

لدي برنامج علي الاكسيل مبيعات وعايز البرنامج يشتغل علي سيريال نمبر الهاردومش عارف الخطا فين في الكود ده برجاء المساعدة وشكرا On Error Resume Next If Da.Range("bb19").Value = "" Then GoTo 1 For Each c In Da.Range("bb21:bb35") If c.Text = Da.Range("bb19").Text Then Exit Sub Next 1 MsgBox " عفوا البرنامج غير مخصص لهذا الجهاز ", vbCritical + vbMsgBoxRight, "الامير " Application.DisplayFullScreen = False Application.DisplayAlerts = False Application.Quit ThisWorkbook.Close savechanges:=False Application.DisplayAlerts = True End Sub

برجاء افادتي عن تفادي مشكلة انتهت الفترة التجريبية للبرنامج