ªð¦^¦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½ú±Ð±Ð§Ú

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

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD