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

ªü©v

¦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
--------------------------------------------------------------------------------------------------------