[µo°Ý] ¤u§@ªí¥t¦sÀɮפγQ«OÅ@¤u§@ªí

missbb

¦U¦ì¤j¤j, §Ú¦³¤U¦C±N¤u§@³¡¤ºªº¤u§@ªí¥t¦s¿W¥ßWORKBOOK, ¦ý·Q¥t¦s«áªº¤u§@ªí¬O¤w¨ü«OÅ@ªº¤u§@ªí, ¸Ñ°£PASSWORD¬O1, ½Ð½ç±Ð?

1. Sub Splitbook()
   
2. 'Updateby20140612
   
3. Dim xPath As String
   
4. xPath = Application.ActiveWorkbook.Path
   
5. Application.ScreenUpdating = False
   
6. Application.DisplayAlerts = False
   
7. For Each xWs In ThisWorkbook.Sheets
   
8.     xWs.Copy
   
9.     Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" [color=Red](°ÝÃD, ¦p¦ó¥t¦s·sÀÉ«á, ¨C­ÓÀɮ׳£¤w«OÅ@¤F¤u§@ªí, PASSWORD ¬O"1")[/color]
   
10.     Application.ActiveWorkbook.Close False
    
11. Next
    
12. Application.DisplayAlerts = True
    
13. Application.ScreenUpdating = True
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 1# missbb

1. Sub Splitbook()
   
2. XPath = Application.ActiveWorkbook.Path
   
3. For Each xws In Sheets
   
4. xws.Copy '½Æ»s
   
5. ActiveSheet.Protect 1 '«OÅ@¤u§@ªí±K½X1
   
6. With ActiveWorkbook
   
7. .SaveAs XPath & "\" & xws.Name & ".xls", , 1  '¥t¦s·sÀɨëOÅ@¬¡­¶Ã¯±K½X1
   
8. .Close 'Ãö³¬ÀÉ®×
   
9. End With
   
10. Next
    
11. End Sub

½Æ»s¥N½X