الحماية من النسخ

الأخ ( المستفيد نت ) قال بأن لديه مشكلة

عنده ملف على الكمبيوتر بيشتغل عادي بس لما ينسخه الملف يطالبو بكلمة مرور

و كتب الكود بهذا الشكل :

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

أنا أريد أن أصنع ملف بهذا الشكل أو أضيف هذه الحماية على ملف عندي على الكمبيوتر يعني الملف يشتغل عادي بس لما تنسخه يطالبك بكلمة مرور

بس كيف ؟ عن طريق أي لغات البرمجو تقدر تسويها

بلييييز أي واحد يساعدني

مع ألف تحية لكل الأخوان في المنتدى