­ã´£³¡ªL

Sub EX()
Dim Sht As Worksheet, xB As Workbook, N%
Application.ScreenUpdating = False
Set xB = Workbooks.Add
ThisWorkbook.Activate
For Each Sht In Sheets(Array("³ø»ù³æ", "½Ð´Ú³æ"))
    With Sht.Cells: .Locked = True: .FormulaHidden = True: End With
    Sht.Protect: N = N + 1
    With xB.Sheets(N): Sht.Cells.Copy .[A1]: .Name = Sht.Name: End With
    Sht.Unprotect
Next
xB.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss") & [¬dªí!C4], CreateBackup:=False
xB.Close
End Sub

1)±NÀx¦s®æ®æ¦¡³]¬°¡GÂê©w(V)+ÁôÂÃ(V)
2)½Æ»s®É¡A±N¤u§@ªí³]¬°¡e«OÅ@¡f¡A§¹¦¨«á¦A¡e¸Ñ°£«OÅ@¡f
3)³o¼Ë¡A¤½¦¡¥u·|¶K¨ì­È¡A«ö¶sª«¥ó¤]¤£·|½Æ»s¹L¥h
¡@
¡@
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×

­ã´£³¡ªL

¦^´_ 5# kkooo15

¥i¯àª©¥»¤£¦PªºÃö«Y§a! §Ú¬O¥Î2000ª©,
¨º´N¦h¤@¦æ§Rª«¥ó:
Sub EX()
Dim Sht As Worksheet, xB As Workbook, N%
Application.ScreenUpdating = False
Set xB = Workbooks.Add
ThisWorkbook.Activate
For Each Sht In Sheets(Array("³ø»ù³æ", "½Ð´Ú³æ"))
    With Sht.Cells: .Locked = True: .FormulaHidden = True: End With
    Sht.Protect: N = N + 1
    With xB.Sheets(N)
         Sht.Cells.Copy .[A1]
        .Name = Sht.Name
        .DrawingObjects.Delete '§R°£ª«¥ó
    End With
    Sht.Unprotect
Next
xB.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss") & [¬dªí!C4], CreateBackup:=False
xB.Close
End Sub


==============================

­ã´£³¡ªL

Sub EX3()
Dim FN$, Sht As Worksheet, xB As Workbook
FN = ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss") & [¬dªí!C4]
Set xB = Workbooks.Add
For Each Sht In ThisWorkbook.Sheets(Array("³ø»ù³æ", "½Ð´Ú³æ"))
    Sht.Copy Before:=xB.Sheets(1)
    With xB.Sheets(1)
         .UsedRange.Value = .UsedRange.Value
         .DrawingObjects.Delete
    End With
Next
xB.SaveAs FN, CreateBackup:=False: xB.Close
End Sub


=================================