|
yifei1357 发表于 2014-2-7 20:41
麻烦再给加个另存时可以自选路径的代码吧,十分感谢 - Sub Macro1()
- Dim sh As Worksheet, m&
- f = Application.GetSaveAsFilename("备份", fileFilter:="Microsoft Excel Files (*.xls),*.xls")
- If f = False Then Exit Sub
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- For Each sh In Worksheets
- If sh.Visible = xlSheetVisible And sh.Name <> "首页" Then
- m = m + 1
- If m = 1 Then sh.Select Else sh.Select False
- End If
- Next
- ActiveWindow.SelectedSheets.Copy
- For Each sh In Worksheets
- sh.Unprotect ("000000")
- With sh.UsedRange
- .Value = .Value
- End With
- sh.Protect ("000000")
- Next
- ActiveWorkbook.Close True, f
- Sheets("首页").Select
- Application.ScreenUpdating = True
- MsgBox "保存完毕"
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|