ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±Ð¦U¦ì«e½ú~Ãö©ó­­¨î¦C¦L¤À­¶½d³òªº°ÝÃD

½Ð±Ð¦U¦ì«e½ú~Ãö©ó­­¨î¦C¦L¤À­¶½d³òªº°ÝÃD

¤½¥qªºEXCEL³øªí¤W ¦³Sheet1~40 ¦@¦³(40­Ó¤À­¶)
¥Ø«e¬O¥Î±K½X­­¨î¦C¦L(»yªk½X¦p¤U)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pss As String
pss = InputBox("½Ð¿é¤J¦C¦L±K½X")
If pss <> "***" Then '"***"=±K½X
MsgBox "±K½X¿ù»~ µLªk¦C¦L¡I", vbInformation + vbOKOnly, "¨t²Î´£¥Ü"
Cancel = True
End If
End Sub
--------------------
°ÝÃD¨Ó¤F!¥Ñ©ó¨ä¥L¤H­û¤]­n¦C¦L¨ì¨ä¤¤ªºsheet20¸òsheet40 ³o¨â­Ó¤À­¶¤¤ªº(A107:G146)
³o°ÝÃDªº»yªk¸Ó«ç»ò¼g©O?³Â·Ð¦U¦ì«e½ú±Ð±Ð§Ú

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥i¥H¤F!!¦n¼F®`
¨º­n¥[¤J¦C¦L½d³ò¸Ó«ç»ò°µ©O

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD