返回列表 上一主題 發帖

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

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

各位大大, 我有下列將工作部內的工作表另存獨立WORKBOOK, 但想另存後的工作表是已受保護的工作表, 解除PASSWORD是1, 請賜教?
  1. Sub Splitbook()
  2. 'Updateby20140612
  3. Dim xPath As String
  4. xPath = Application.ActiveWorkbook.Path
  5. Application.ScreenUpdating = False
  6. Application.DisplayAlerts = False
  7. For Each xWs In ThisWorkbook.Sheets
  8.     xWs.Copy
  9.     Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" [color=Red](問題, 如何另存新檔後, 每個檔案都已保護了工作表, PASSWORD 是"1")[/color]
  10.     Application.ActiveWorkbook.Close False
  11. Next
  12. Application.DisplayAlerts = True
  13. Application.ScreenUpdating = True
  14. End Sub
複製代碼
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

回復 1# missbb
  1. Sub Splitbook()
  2. XPath = Application.ActiveWorkbook.Path
  3. For Each xws In Sheets
  4. xws.Copy '複製
  5. ActiveSheet.Protect 1 '保護工作表密碼1
  6. With ActiveWorkbook
  7. .SaveAs XPath & "\" & xws.Name & ".xls", , 1  '另存新檔並保護活頁簿密碼1
  8. .Close '關閉檔案
  9. End With
  10. Next
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題