[發問] 工作表另存檔案及被保護工作表

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-12-3 21:37 | 顯示全部帖子

各位大大, 我有下列將工作部內的工作表另存獨立WORKBOOK, 但想另存後的工作表是已受保護的工作表, 解除PASSWORD是1, 請賜教?

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" [color=Red](問題, 如何另存新檔後, 每個檔案都已保護了工作表, PASSWORD 是"1")[/color]
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

複製代碼

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。