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

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

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

¦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

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD