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

[µo°Ý] vbaµ{¦¡¨D±Ï

[µo°Ý] vbaµ{¦¡¨D±Ï

¦U¦ì¤j¤j¡A½ÐÀ°§Ú½T»{¤U­±µ{¦¡­þ§A¦³¿ù»~¡A¬°¦ó§Ú¨C¤Ñ­«·s¶}¾÷«áµ{¦¡´NµLªk°õ¦æ
½ÐÀ°¦£§Ú¡AÁÂÁÂ!
--------------------------------------------------------------------------------------------------
Sub Sample5()
    With CommandBars("Cell").Controls.Add
         .Caption = "´ú¸Õ"
         .OnAction = "¥t¦s"
    End With
End Sub
------------------------------------------------------------------------------------------------------------------------
Sub ¥t¦s()
   
     ActiveWorkbook.SaveAs Filename:="C:\Users\QAUSER1\Documents\¥[¯Z¸ê®Æ\«~«O½Ò¥[¯Z³æ²Î­p.xlsm"
   
    ActiveSheet.Protect Password:="0304"
   
    ActiveWorkbook.SaveAs Filename:="\\Hp110g3\«~«Oqa\¥[¯Z¬ö¿ý\«~«O½Ò¥[¯Z³æ²Î­p.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   
   
   
End Sub
--------------------------------------------------------------------------------------------------------

¥t¦s.jpg (73.08 KB)

¥t¦s.jpg

stone

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD