返回列表下一主題上一主題發帖

[發問] 另存新檔加密

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-4-10 11:02 | 顯示全部帖子

[發問] 另存新檔加密

各位大大
請問要如何使用VBA另存新檔的時候加密
以下是我的程式碼

Sub full_calc()
Application.CalculateFullRebuild

Application.DisplayAlerts = False '關閉提示

  'ActiveWorkbook.Save '儲存檔案

'ActiveWorkbook.SaveAs filename:= _
      '"\\SMK.com\LF\對外開放資料\會議室資訊\每日早會記錄.xlsm" '另存到指定路徑

Application.DisplayAlerts = True '開啟提示

'Workbooks("急件專案狀態追蹤_v1_9_自動儲存.xlsm").Close '關閉急件專案狀態追蹤_v1_9_自動儲存

End Sub