آموزش ساخت لایسنس برای فایل های اکسل(ماکرونویسی)

مفتخریم که با یک مطلب آموزشی دیگر در زمینه ماکرونویسی در محیط اکسل خدمت شما عزیزان و همراهان همیشگی سایت آموزشی اکسل لرن هستیم ، در این پست قصد داریم شمارا با دستوراتی آشنا کنیم که با استفاده از آنها قادر به ساخت کلید و یا به اصطلاح لایسنس (منظور از لایسنس چیست ؟ ) برای اجرای فایل های اکسل خود خواهید بود .

بهترین گزینه برای ایجاد لایسنس(کلید) چیست ؟

اولین چیزی که در ایجاد لایسنس(کلید) به ذهن هرکدام از ما میرسد استفاده از یک شناسه یکتا است که تنها مختص یک سیستم (موبایل ، کامپیوتر ، لپ تاپ ) تعریف شده باشد ( مانند کدملی هرشخص ) از این رو میتوان نتیجه گرفت که بهترین گزینه برای ایجاد لایسنس ، استفاده از IP Address ( منظور از IP Address چیست ؟ ) است.

رویه کار به چه صورت خواهد بود ؟

رویه کار کاملا مشخص است ، ابتدا می بایست IP Address سیستم مجاز را پیدا و ثبت کنیم و سپس شرط تعریف کنیم که اگر IP Address سیستم مورد استفاده برابر با IP Address سیستم مجاز بود ، اجازه استفاده از فایل اکسل را دارد و در غیر اینصورت فایل اکسل بسته خواهد شد .

آموزش قدم به قدم ایجاد لایسنس(کلید) برای فایل های اکسل

ابتدا یک ماژول ایجاد و دستورات زیر را داخل ماژول Copy&Paste می نماییم .

Sub test()
	'www.excellearn.ir
    Debug.Print GetIPAddress
End Sub

Function GetIPAddress()
    Const strComputer As String = "."
    Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
    Dim strIPAddress As String

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

    For Each IPConfig In IPConfigSet
        IPAddress = IPConfig.IPAddress
        If Not IsNull(IPAddress) Then
            strIPAddress = strIPAddress & Join(IPAddress, ", ")
        End If
    Next

    GetIPAddress = strIPAddress

End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

Sub test()

'www.excellearn.ir

Debug.Print GetIPAddress

End Sub

Function GetIPAddress()

Const strComputer As String = "."

Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i

Dim strIPAddress As String

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig In IPConfigSet

IPAddress = IPConfig.IPAddress

If Not IsNull(IPAddress) Then

strIPAddress = strIPAddress & Join(IPAddress, ", ")

End If

End Function

سپس دستورات زیر را در قسمت ThisWorkbook داخل Open درج میکنیم :

Dim PermittedUsers, sComp As String
	'www.excellearn.ir     
    PermittedUsers = Array("192.168.1.5, fe80::c038:65a1:d538:c305", "??????????", "-??????????")

    If IsError(Application.Match(GetIPAddress, PermittedUsers, 0)) Then
        MsgBox "This computer is not registered to open " & ThisWorkbook.Name
        ThisWorkbook.Close 0
    End If

1

2

3

4

5

6

7

8

Dim PermittedUsers, sComp As String

'www.excellearn.ir

PermittedUsers = Array("192.168.1.5, fe80::c038:65a1:d538:c305", "??????????", "-??????????")

If IsError(Application.Match(GetIPAddress, PermittedUsers, 0)) Then

MsgBox "This computer is not registered to open " & ThisWorkbook.Name

ThisWorkbook.Close 0

End If

برای یادگیری بهتر شما عزیزان یک کلیپ آموزشی تهیه گردیده است که میتوانید در ادامه آن را مشاهده و دانلود نمایید.

منتظر انتقادات و پیشنهادات سازنده شما عزیزان در زمینه مطلب آموزشی ” آموزش ساخت لایسنس برای فایل های اکسل(ماکرونویسی) ” در قسمت نظرات همین پست هستیم ، همچنین در صورت داشتن هرگونه سوال میتوانید آن را در گروه پرسش و پاسخ ما در گروه تلگرامی و یا تالار گفتمان مطرح تا در اسرع وقت توسط کارشناسان پاسخ داده شود.

پیشنهاد : اگر به دنبال آموزش های بیشتر در زمینه ماکرونویسی در محیط اکسل هستید میتوانید از مجموعه آموزشی و رایگان ماکرونویسی در محیط اکسل و یا آرشیو ماکرونویسی سایت استفاده نمایید .