프린트 못하게 하기

Step 1: 색상 팔레트 바꾸기

그건 그렇고... 질문하신 것에 대한 답변을 드려야 겠군요.

라고 하셨는데 40가지 색상이 아니고 56가지 색상입니다. 그리고 이 색상 팔레트는 '도구-옵션' 메뉴에서 '색' 탭을 클릭하시면 대화상자가 나타납니다. 이 중에서 바꾸고자 하는 색을 하나 선택한 다음 '수정' 버튼을 클릭합니다.

아이엑셀러

그러면 다시 '색' 대화상자가 나타나는데 여러 색상 중에서 원하는 것을 선택하고 '확인' 버튼을 누르시면 됩니다.

아이엑셀러

Step 2: 암호를 모르면 인쇄 못하게 하기

이 파일을 열었을 때 Input Box가 나타났을 것입니다. 암호는 excel 입니다. 암호를 다른 것으로 입력한 다음 '미리보기'나 '인쇄'를 해 보세요. 아마 제대로 작동이 되지 않을 것입니다. 이것은 Workbook 오브젝트의 BeforePrint 이벤트를 사용한 것입니다.

(1) VB Editor를 활성화 시킵니다. (2) '프로젝트 탐색창'에서 ThisWorkbook 오브젝트를 더블클릭 합니다. 그러면 코드를 입력할 수 있는 '코드 창'이 나타나는데 여기에 아래의 코드를 삽입합니다.

Workbook_Open 이벤트

Option Explicit
Dim blnOK As Boolean
'//여러 프로시저에서 공통적으로 사용하기 위해 외부 변수로 선언하였습니다.

Private Sub Workbook_Open()
    Dim strUserName As String
    Dim Msg As String
    strUserName = Application.UserName
    '//현재 시스템에 세팅되어 있는 오피스 프로그램의 사용자 정보를 얻어낸 다음,
    '//strUserName 변수에 담습니다.

    Msg = Msg & "잘못된 암호입니다" & vbCr
    Msg = Msg & "따라서 작업은 계속할 수 있지만 출력은 할 수 없습니다."

    If InputBox("암호를 입력하세요!", "암호 입력//By Exceller") = "excel" Then
        MsgBox strUserName & "님은 정식 사용자입니다.", , "사용 인증//By Exceller"
        blnOK = False
    Else
        MsgBox Msg, , "암호 입력 오류//By Exceller"
        blnOK = True
    End If
    '//사용자가 입력한 암호가 excel이면 blnOK 변수의 값을 False로, 그렇지 않으면 True로
    '//지정합니다.
End Sub

여기까지가 입력받은 암호가 올바른 것인지의 여부를 확인하는 과정이었고 아래의 프로시저가 출력을 할 것인지 말 것인지를 결정합니다.

Workbook_BeforePrint 이벤트

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Msg As String
    Msg = Msg & "귀하는 사용권한이 없습니다." & vbCr
    Msg = Msg & "자세한 사항은 관리자에게 문의하세요."

    If blnOK Then
        MsgBox Msg, , "접근 거부//By Exceller"
        Cancel = True
    End If
End Sub

마무리

코드는 너무 간단해서 따로 설명드릴 것도 없군요. 이해가 안되는 부분은 질문하시고 많이 응용해 보시기를...

다음 시간에...

정리 — 인쇄 제한 핵심

자주 묻는 질문 (FAQ)

마치며

Workbook_Open과 BeforePrint 이벤트를 조합하면 인쇄 권한을 간단히 제어할 수 있습니다.