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

[µo°Ý] ¥t¦s·sÀÉ¥[±K

[µo°Ý] ¥t¦s·sÀÉ¥[±K

¦U¦ì¤j¤j
½Ð°Ý­n¦p¦ó¨Ï¥ÎVBA¥t¦s·sÀɪº®É­Ô¥[±K
¥H¤U¬O§Úªºµ{¦¡½X

Sub full_calc()
Application.CalculateFullRebuild

Application.DisplayAlerts = False 'Ãö³¬´£¥Ü

  'ActiveWorkbook.Save 'Àx¦sÀÉ®×
  
    'ActiveWorkbook.SaveAs filename:= _
        '"\\SMK.com\LF\¹ï¥~¶}©ñ¸ê®Æ\·|ij«Ç¸ê°T\¨C¤é¦­·|°O¿ý.xlsm" '¥t¦s¨ì«ü©w¸ô®|
        
Application.DisplayAlerts = True '¶}±Ò´£¥Ü

'Workbooks("«æ¥ó±M®×ª¬ºA°lÂÜ_v1_9_¦Û°ÊÀx¦s.xlsm").Close 'Ãö³¬«æ¥ó±M®×ª¬ºA°lÂÜ_v1_9_¦Û°ÊÀx¦s
  
End Sub

¦^´_ 4# Andy2483

¦¨¥\¤F
«D±`·PÁÂAndy2483¤j¤jªº¸Ñµª

TOP

¦^´_ 3# cowww


    ÁÂÁ«e½ú¦A¦^´_
«á¾Ç¬ã¨s¥i°ßŪ¶}±Òªº¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

ActiveWorkbook.SaveAs filename:= _
        '"\\SMK.com\LF\¹ï¥~¶}©ñ¸ê®Æ\·|ij«Ç¸ê°T\¨C¤é¦­·|°O¿ý.xlsm" , WriteResPassword:="1234"
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483

«D±`·PÁÂAndy2483¤j¤jªº¸Ñµª
¦ý¬O³o¬q»yªk¦n¹³µLªk¨Ï¥Î"°ßŪ"ªº¤è¦¡¶}±Ò
½Ð°Ý¬O§_¦³¿ìªk"µL¿é¤J±K½Xªº®É­Ô¥i¥H¨Ï¥Î°ßŪ"ªº¤è¦¡¶}±Ò
±K½X¶}±Ò.PNG

TOP

¦^´_ 1# cowww


    ÁÂÁ«e½úµoªí¦¹¥DÃD
«á¾Ç¾Ç²ß¨ì¥H¤U¤è®×,½Ð«e½ú°Ñ¦Ò
ActiveWorkbook.SaveAs filename:= _
        '"\\SMK.com\LF\¹ï¥~¶}©ñ¸ê®Æ\·|ij«Ç¸ê°T\¨C¤é¦­·|°O¿ý.xlsm" , Password:="1234"
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD