드로우홀릭 더베이직
개요
'액세스 2010 무작정 따라하기' 173쪽에 보면 '설정된 시작 옵션 무시하기'라는 따라하기가 있습니다. 응용프로그램 제목 / 아이콘, 탐색 창 표시, 시작 폼 등의 설정이 동작하게 하지 않도록 설정하는 따라하기입니다.
일반 사용자들에게는 시작 옵션이 적용된 상태로 사용할 수 있도록 해야 합니다. 하지만, 데이터베이스를 만드는 사람은 시작 옵션이 적용된 상태로 사용하는 것이 꽤나 불편할 수 있습니다. 그래서 이 때는 '시작 옵션'을 무시할 수 있어야 합니다.
이미 설정된 '시작 옵션'을 무시하는 방법은, 왼쪽 Shift 키를 누른 채로 해당 액세스 파일을 실행시키는 것입니다. 문제는 이 Shift 키를 누른 채로 실행하는 방법을 일반 사용자가 알게 되면, 데이터베이스를 만든 사람의 의도를 벗어난 행위를 할 수 있다는 점이지요.
(왼쪽 Shift 키를 바이패스 키(bypass key)라고 합니다.
그래서, 시작 옵션을 절대로 무시할 수 없는 방법을 소개할까 합니다. 이 방법을 적용하면, 데이터베이스를 만든 사람이라도 시작 옵션을 무시하게 할 수 없습니다.
시작 옵션 무시할 수 없도록 설정하기
1. 예제 파일 다운로드
2. 현재 상태 확인
3. 시작 옵션 무시하고 열어 보기
4. 특수 키 막기
5. 바이패스 키 막기
Sub 바이패스키_비활성화() On Error GoTo HError '바이패스 키를 비활성화 시키는 프로시저 '주의: 이 명령을 한 번 실행하면 되돌릴 수 없습니다. '반드시 백업 후 이 명령을 실행시키십시오. '작성자: 염기웅: carl@td21.com Dim objProperty As Object CurrentDb.Properties("AllowBypassKey") = False MsgBox "바이패스키를 비활성화 했습니다." Exit Sub HError: Select Case Err.Number Case 3270 '속성이 없을 경우: 새로 만든다. CurrentDb.Properties.Append CurrentDb.CreateProperty("AllowBypassKey", dbBoolean, False) Resume Next Case Else MsgBox "바이패스키를 비활성화할 수 없습니다." & vbNewLine & _ Err.Description & vbNewLine & _ Err.Number End Select End Sub
Public Sub 바이패스키_비활성화_ADP() '바이패스 키를 비활성화 시키는 프로시저 (ADP 전용) '주의: 이 명령을 한 번 실행하면 되돌릴 수 없습니다. '반드시 백업 후 이 명령을 실행시키십시오. '작성자: 염기웅: carl@td21.com On Error GoTo Herror CurrentProject.Properties("AllowBypassKey").Value = False MsgBox "바이패스키를 비활성화 했습니다." Exit Sub Herror: Select Case Err.Number Case 2455 'AllowBypassKey 속성이 없을 경우: 'AllowBypassKey' 속성에 유효하지 않은 참조를 사용하는 식을 입력했습니다. CurrentProject.Properties.Add "AllowBypassKey", False Resume Case Else MsgBox "바이패스키를 비활성화할 수 없습니다." & vbNewLine & _ Err.Description & vbNewLine & _ Err.Number End Select End Sub