كتب صديق في هذا المنتدى بأنه لديه ملف يشتغل عادي بس لما بتنسخو يطالبك بكلمة مرور
أنا جربت هادا الكود على الفيجوال 6 بس لما بعملو ملف exe بيطلعلي ارور Set srange = Range("f100:f2000")
ممكن حدا يساعدني أرجوكم
ممكن واحد يشرح لنا ما هي الخطوات بالتفصيل ؟!
Private Sub CommandButton1_Click()
On Error Resume Next
sheet1.Visible = xlSheetVisible
'Application.AutomationSecurity = msoAutomationSecurityLow
Dim c, srange As Object
Dim countv As Integer
countv = 0
'Set srange = Application.InputBox(prompt:="enter name to search ", Title:="input range", Type:=8)
Set srange = Range("f100:f2000")
'Dim x As String
start:
X = InputBox("تم حفظ كلمة السر بالنيابة عنك لسهولة الدخول للبرنامج يمكنك استخدام البرنامج الان اضغط موافق لبدأ الاستخدام", "", GetSerialNumber("c"))
'X = InputBox(prompt:="من فضلك أدخل كلمة السر التى حصلت عليها عبر بريدك الالكتروني ")
For Each c In srange.Cells
If IsEmpty(c.Value) Then GoTo 11:
If IsNumeric(c.Value) And Val(c.Value) = Val(X) Then
countv = countv + 1
c.Activate
'Dim h As String
'h = MsgBox("مرحبا بك يمكنك إستخدام البرنامج", vbOKOnly + vbInformation, "")
'Sheet3.Range("a2").Value = "hello "
'hide un hide data
Range("f100:f2000").Select
Selection.EntireColumn.Hidden = True
Selection.EntireRow.Hidden = True
Me.Hide
sheet1.Range("a1").Select
Exit Sub '
Else
If c.Value = X Then
countv = countv + 1
c.Activate
MsgBox "continue"
sheet3.Range("a2").Value = "hello "
ElseIf c.Value <> X Then
'Application.Quit
End If
End If
11: Next c
Dim f As String
f = MsgBox("كلمة المرور غير صحيحة من فضلك حاول مرة أخرى ", vbOKOnly + vbInformation, "تحذير")
'Application.Quit
Dim tempa As Integer
tempa = tempa + 1
If tempa >= 3 Then
GoTo fin:
Else
GoTo start:
End If
fin:
Application.Quit
End Sub