|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub Macro1()
Dim sh As Worksheet, p$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
p = ThisWorkbook.Path & "\"
For Each sh In Worksheets
If sh.Visible = xlSheetVisible And sh.Name <> "首页" Then
sh.Copy
ActiveSheet.Unprotect ("000000")
With ActiveSheet.UsedRange
.Value = .Value
End With
For Each shp In ActiveSheet.Shapes
shp.Delete
Next
ActiveSheet.Protect ("000000")
ActiveWorkbook.Close True, p & sh.Name & ".xls"
End If
Next
Application.ScreenUpdating = True
MsgBox "保存完毕"
End Sub
效果:这段代码如何改成保存A1:P100
|
|