[CODE]Private Sub id_chk() Dim FSO As Scripting.FileSystemObject Dim varserialnum As String Set FSO = New Scripting.FileSystemObject varserialnum = FSO.GetDrive(“C:”).SerialNumber MsgBox “ID는 ” & varserialnum & ” 입니다” end Sub Private Sub Workbook_Open() Dim FSO As Scripting.FileSystemObject Dim varserialnum, strTemp As String Dim response, access As Boolean Set FSO = New Scripting.FileSystemObject varserialnum = FSO.GetDrive(“C:”).SerialNumber Select Case varserialnum Case “xxxxxxxxxxxx” ‘ 여기에 시리얼을 넣어 주세요 access = True Case “xxxxxxxxxxxx” ‘ 여기에도 and so on access = True Case Else access = False ‘ 아니면 …퇴출 End Select strTemp = “” If access = True Then strTemp = “ID : ” & varserialnum & ” 로 이 컴퓨터는 ” & vbCr & vbCr strTemp = strTemp & “사용하도록 인증이 되었습니다 ” MsgBox strTemp Else strTemp = “인증되지 않은 컴퓨터입니다.” & vbCr & vbCr strTemp = strTemp & “인증암호를 하시겠습니까?” response = MsgBox(strTemp, vbYesNo) If response = vbYes Then ‘ 사용자가 예를 선택할 경우. varserialnum = InputBox(” 암호를 입력하세요! “, “암호입력”) If varserialnum <> “비밀번호” Then ‘혹시나 다른 컴에서 실행시 ‘암호를 지정하면 실행 가능함. ActiveWorkbook.Save Application.Quit End If ElseIf response = vbNo Then ‘사용자가 아니오를 선택할 경우. ActiveWorkbook.Save Application.Quit End If End If End Sub[/CODE]
이 코드를 엑셀에서 VBA편집기에서 Thisworkbook의 Workbook_open에 넣고 저장하면
다음부터는 계속적으로 승인 메시지가 나오며 승인되지 않음 컴퓨터에서는 열리지 않습니다.
혹시나 급하게 집에서나 다른 컴에서 실행하고자 하면 내용중의 비밀번호를 자기만
아는 번호로 넣어 저장하면 실행시 bypass가 가능하도록 되어 있습니다 .
혹시나 도움의 되었으면 댓글다는 센스를 ^^;;;
10월 27 2008
Excel 화일을 지정된 컴퓨터에서만 열게 하는 법
혹시나 회사에서 Excel을 사용하여 비밀문서?를 관리하시는 분이 계실 듯합니다.
보통 Excel의 비밀번호를 입력하여 사용자가 관리하는데 너무 열심이고 똑똑한 분이
가끔 암호를 자주 바꾸어 암호를 헷갈려 난감한 경우를 맞이하는 경우를 종종 봅니다.
(아무도 모르는 것으로 어렵게 한다고 자기도 모르는 것으로 바꾸지요^^;;)
그래서 저는 iExceller님의 팁을 이용하여 회사에서 비밀문서를 열어볼 수 있는
PC의 ID를 체크하여 지정되지 않은 PC에서는 열리지도 않도록 해서 사용합니다.
더 보안을 강화?할려면 기존의 암호 방식을 채택하면 이중 암호의 효과가 있겠지요.
원리는 간단합니다. 사용자 PC의 하드 디스크의 시리얼을 체크하여 체크 모듈에
넣어두고 문서를 읽을 때 체크하여 지정 PC가 아니면 퇴출시켜? 버리는 것입니다.
우선 사용자의 id 체크 루틴입니다. 이 루틴을 엑셀 파일에 직접 담거나 아니면
이 루틴만 실행시켜서 회사에서 사용되는 PC에서 한번만 실행시키 보여지는
id를 별도로 적어둡니다.
이 id를 workbook_open 함수의 case 문에 넣어서 검사를 진행시킵니다. 물론 배열이나
기타 등등의 체크 방법이 많이 있겠지만 기밀문서를 여러 사람이 볼 리도 없고?해서
case문으로 간단히 처리했습니다.
첨부 화일을 클릭하면 id를 체크해 줍니다. 매크로 보안관련 메시지가 나오는데
매크로 열기를 확인하면 됩니다. 혹시나 바이러스를 의심하시면 아래코드를 넣어서
진행하시면 됩니다. 초보자를 위하여 별도로 만들어 올렸습니다.
361739.zip
[CODE]Private Sub id_chk() Dim FSO As Scripting.FileSystemObject Dim varserialnum As String Set FSO = New Scripting.FileSystemObject varserialnum = FSO.GetDrive(“C:”).SerialNumber MsgBox “ID는 ” & varserialnum & ” 입니다” end Sub Private Sub Workbook_Open() Dim FSO As Scripting.FileSystemObject Dim varserialnum, strTemp As String Dim response, access As Boolean Set FSO = New Scripting.FileSystemObject varserialnum = FSO.GetDrive(“C:”).SerialNumber Select Case varserialnum Case “xxxxxxxxxxxx” ‘ 여기에 시리얼을 넣어 주세요 access = True Case “xxxxxxxxxxxx” ‘ 여기에도 and so on access = True Case Else access = False ‘ 아니면 …퇴출 End Select strTemp = “” If access = True Then strTemp = “ID : ” & varserialnum & ” 로 이 컴퓨터는 ” & vbCr & vbCr strTemp = strTemp & “사용하도록 인증이 되었습니다 ” MsgBox strTemp Else strTemp = “인증되지 않은 컴퓨터입니다.” & vbCr & vbCr strTemp = strTemp & “인증암호를 하시겠습니까?” response = MsgBox(strTemp, vbYesNo) If response = vbYes Then ‘ 사용자가 예를 선택할 경우. varserialnum = InputBox(” 암호를 입력하세요! “, “암호입력”) If varserialnum <> “비밀번호” Then ‘혹시나 다른 컴에서 실행시 ‘암호를 지정하면 실행 가능함. ActiveWorkbook.Save Application.Quit End If ElseIf response = vbNo Then ‘사용자가 아니오를 선택할 경우. ActiveWorkbook.Save Application.Quit End If End If End Sub[/CODE]
이 코드를 엑셀에서 VBA편집기에서 Thisworkbook의 Workbook_open에 넣고 저장하면
다음부터는 계속적으로 승인 메시지가 나오며 승인되지 않음 컴퓨터에서는 열리지 않습니다.
혹시나 급하게 집에서나 다른 컴에서 실행하고자 하면 내용중의 비밀번호를 자기만
아는 번호로 넣어 저장하면 실행시 bypass가 가능하도록 되어 있습니다 .
혹시나 도움의 되었으면 댓글다는 센스를 ^^;;;
첨부 화일 : IDchek
By vinipapa • 정 보 • 0