GBKEE

¦^´_ 1# kc001314

1. Option Explicit
   
2. Private Sub Workbook_BeforePrint(Cancel As Boolean)
   
3.     Dim pss As String
   
4.     '¨ä¥L¤H­û¤]­n¦C¦L¨ì¨ä¤¤ªº sheet20~sheet40 ¤u§@ªí©ó¬¡­¶Ã¯ªº¦ì¸m¦³¨Ì§Ç±Æ¦C
   
5.     If ActiveSheet.Index >= 20 Then Exit Sub   '¤¹³\¦L¦C
   
6.     pss = InputBox("½Ð¿é¤J¦C¦L±K½X")
   
7.     If pss <> "***" Then '"***"=±K½X
   
8.         MsgBox "±K½X¿ù»~ µLªk¦C¦L¡I", vbInformation + vbOKOnly, "¨t²Î´£¥Ü"
   
9.         Cancel = True
   
10.     End If
    
11. End Sub

½Æ»s¥N½X