返回列表 上一主題 發帖

薪資拆分檔案後，如何加上開啟密碼

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
1# 跳轉到 »
發表於 2017-6-22 14:29 | 顯示全部帖子
回復 4# jsc0518
請參考。
Excel_VBA-拆分薪資-1.rar (21.46 KB)

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2017-6-25 21:46 | 顯示全部帖子
回復 9# jsc0518
1.先把 J 欄的密碼存入 pw 變數中。
pw = Sheets("Sheet1").Cells(r, 10).Value

2.將作用中的活頁簿存檔，同時把pw密碼放入到後面的Password參數中，以後開啟此活頁簿必須要輸入密碼才能開啟。
ActiveWorkbook.SaveAs mypath & myfilename & ".xlsx", Password:=pw

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題