اريد شرح

[المدير1122]

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

[Ali Mohamed Ali]

أخى الكريم من فضلك لا تكرر نفس السؤال فى مشاركتين مختلفتين

بارك الله فيك

[المدير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

تم تعديل أغسطس 5, 2018 بواسطه المدير1122

[Ali Mohamed Ali]

يمكنك حذف العلامة ولا يؤثر ذلك على الكود

[المدير1122]

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