返回列表 上一主題 發帖

[發問] 另存新檔加密

cowww

帖子
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
收藏 分享

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
5#
發表於 2023-4-10 16:17 | 只看該作者
回復 4# Andy2483

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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
4#
發表於 2023-4-10 15:38 | 只看該作者
回復 3# cowww


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

ActiveWorkbook.SaveAs filename:= _
        '"\\SMK.com\LF\對外開放資料\會議室資訊\每日早會記錄.xlsm" , WriteResPassword:="1234"
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
3#
發表於 2023-4-10 14:35 | 只看該作者
回復 2# Andy2483

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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
2#
發表於 2023-4-10 14:16 | 只看該作者
回復 1# cowww


    謝謝前輩發表此主題
後學學習到以下方案,請前輩參考
ActiveWorkbook.SaveAs filename:= _
        '"\\SMK.com\LF\對外開放資料\會議室資訊\每日早會記錄.xlsm" , Password:="1234"
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題