- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-1-4 19:37 ½s¿è
¦^´_ 35# missbb - Option Explicit
- Sub Ex2()
- Dim f$, fd$, fs$, A As Range, Wb As Workbook
- Set Wb = ThisWorkbook ' ¬¡¶Ã¯ :µ{¦¡½X©Ò¦bªº
- fd = Wb.Path & "\" ' ¦sÀɪº¸ô®|
- Application.DisplayAlerts = False
- Application.ScreenUpdating = False
- With Wb.Sheets("PASSWORD")
- For Each A In .Range(.[A2], .[A2].End(xlDown))
- f = CStr(A)
- fs = fd & f & ".xls"
- Wb.Sheets(f).UsedRange.Copy '¥ÎCOPY
- With Workbooks.Add(1)
- With .Sheets(1).Range("A1")
- .PasteSpecial xlPasteValues '¶K¤WÈ
- .PasteSpecial xlPasteColumnWidths '¶K¤WÄæ¼e
- .PasteSpecial xlPasteFormats '¶K¤W®æ¦¡
- '²Ä¤@«:«OÅ@¤u§@ªí
- .Parent.Protect Password:="9999", DrawingObjects:=True, Contents:=True, Scenarios:=True
- End With
- '²Ä¤G«:«OÅ@¬¡¶Ã¯¨Ï¨ästructure(µ²ºc:¤u§@ªí¤£¥i§R¼W)¡C
- .Protect Password:="9999", structure:=True, Windows:=False
- ' FileFormat:=xlExcel8 Excel 2003ª©¥» 56; xlExcel12 version 12, or 14, or 15 = Excel 2007, or 2010, or 2013.
- '²Ä¤T«: ¨î¨Ï¥ÎªÌ
- .SaveAs Filename:=fs, Password:=CStr(A.Offset(, 1)), WriteResPassword:="" , FileFormat:=xlExcel8
- .Close 0 ' Ãö³¬ "D:\A123.xls" ¬¡¶Ã¯¡B"D:\B456.xls" ¬¡¶Ã¯¡C
- End With ' ¥¿¦¡µ²§ô (Ãö³¬)¡C
- Next
- End With
- Application.DisplayAlerts = True
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|