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

[µo°Ý] Ãö©óWorkbook_Open·|¤£·íIJµoNum Lock¨Ï¨äÃö³¬¡H

[µo°Ý] Ãö©óWorkbook_Open·|¤£·íIJµoNum Lock¨Ï¨äÃö³¬¡H

  1. Private Sub Workbook_Open()
  2.     On Error Resume Next
  3.     Application.SendKeys ("%{F11}") '«ö¤U Alt+F11 Áä
  4.    
  5.     With Application
  6.         With .VBE.MainWindow
  7.             .WindowState = vbext_ws_Minimize
  8.             .Visible = False
  9.         End With
  10.     End With
  11. End Sub
½Æ»s¥N½X
¥H¤W¦Û°Ê°õ¦æ«á·|ÅýNum Lockªº¿OÃö³¬¡H
¦p¦óÅý¥L¤£Ãö³¬Num Lockªº¿O¡A¦A¦¸·PÁ¡C

¦^´_ 2# luhpro


    Application.SendKeys("{NUMLOCK}")
¸Ñ¨M¤F§Úªº°ÝÃD¡A¨ü¯q¨}¦h¡A¦^¤å±ß¤F¡A¯u¬O©êºp¡I

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD