標題: [發問] 另存新檔加密 [打印本頁]

---

作者: cowww    時間: 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

---

作者: Andy2483    時間: 2023-4-10 14:16

回復 1# cowww


    謝謝前輩發表此主題
後學學習到以下方案,請前輩參考
ActiveWorkbook.SaveAs filename:= _
        '"\\SMK.com\LF\對外開放資料\會議室資訊\每日早會記錄.xlsm" , Password:="1234"

---

作者: cowww    時間: 2023-4-10 14:35

回復 2# Andy2483

非常感謝Andy2483大大的解答
但是這段語法好像無法使用"唯讀"的方式開啟
請問是否有辦法"無輸入密碼的時候可以使用唯讀"的方式開啟
[attach]36107[/attach]

---

作者: Andy2483    時間: 2023-4-10 15:38

回復 3# cowww


    謝謝前輩再回復
後學研究可唯讀開啟的方案如下,請前輩參考

ActiveWorkbook.SaveAs filename:= _
        '"\\SMK.com\LF\對外開放資料\會議室資訊\每日早會記錄.xlsm" , WriteResPassword:="1234"

---

作者: cowww    時間: 2023-4-10 16:17

回復 4# Andy2483

成功了
非常感謝Andy2483大大的解答

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)