내컴퓨터에서만 실행되게 하기

Step 1: 드라이브 일련 번호 확인하기

아래의 버튼을 누르면 자기 PC의 하드 디스크 드라이브 Serial Number를 알려 줍니다. 잘 적어 두시기 바랍니다. 만약 잘못 입력하게 되면 엑셀을 종료하므로 주의하세요!

이 기능을 제대로 실행하기 위해서는 아래의 프로그램 중 하나가 있어야 합니다.

• 윈도우 98 또는 윈도우 2000
• 인터넷 익스플로러 5.0 이상
• MS Office 2000
• Visual Studio 6.0

Step 2: Microsoft Scripting Runtime 참조 설정

(1) 먼저, VB Editor 상태에서 '도구-참조' 메뉴를 선택합니다. (2) '사용 가능한 참조' 목록 중에서 Microsoft Scripting Runtime 항목을 클릭합니다.

아이엑셀러

Step 3: FindSerialNum 프로시저

(3) 아래와 같은 코드를 작성합니다.

Sub FindSerialNum()
    Dim FSO As Scripting.FileSystemObject
    Dim varSerialNum
    Dim strTemp As String
    Set FSO = New Scripting.FileSystemObject
    '//'도구-참조'를 통해 다른 라이브러리 파일을 참조해 주었으므로 외부 오브젝트를
    '//불러다가 사용할 수 있습니다.

    strTemp = strTemp & "일련 번호는 " & FSO.getdrive("C:").serialnumber & " 입니다" & vbCr
    strTemp = strTemp & "이 번호를 잘 기억해 두세요. 만약 잘못 입력하면 엑셀이 종료됩니다"
    MsgBox strTemp, , "주의!//By Exceller"
    strTemp = ""

    varSerialNum = InputBox("일련 번호를 입력하세요", "일련 번호 입력//By Exceller")
    '//사용자로부터 일련 번호를 입력받습니다.

    If CStr(FSO.GetDrive("C:").SerialNumber) <> Trim(CStr(varSerialNum)) Then
    '//만약 입력받은 번호가 Serial Number가 서로 다를 경우 Application.Quit 명령을
    '//사용하여 엑셀을 종료합니다.

        strTemp = strTemp & "잘못 입력하셨습니다!" & vbCr
        strTemp = strTemp & "엑셀을 종료합니다"
        MsgBox strTemp, , "입력 오류!//By Exceller"
        Application.Quit
    End If
End Sub

마무리

아주 간단한 코드지만 많이 응용해 보시기 바랍니다. 예를 들어 자신이 만든 Add-in 파일에 이 코드를 첨가 시킨다든지 아니면 auto_open 프로시저나 Workbook_open 이벤트 프로시저에 넣어두면 파일을 복사해 갈 수는 있겠지만 실행은 시킬 수가 없을 것입니다.

다음 시간에...

정리 — 일련 번호 제한 핵심

자주 묻는 질문 (FAQ)

마치며

드라이브 일련 번호를 확인하도록 만들면 복사한 파일이 다른 컴퓨터에서는 실행되지 않게 할 수 있습니다.