麻辣家族討論版版 » Excel程式區 » 薪資拆分檔案後，如何加上開啟密碼

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

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

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 12
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-1-19

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-6-6 12:45 | 顯示全部帖子

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

各位先進大家好，
我在網路上有找到一個將薪資拆分成各個檔案
我是想問是否可以依據欄位(J)，作為設定每個拆分後的EXCEL檔案，一開啟時就要輸入它本身的密碼
是否可以請各位先進協助看一下
Thanks!

Excel_VBA-拆分薪資.rar (13.36 KB)

樓主熱帖

收藏

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 12
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-1-19

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

2^#

發表於 2017-6-6 19:48 | 顯示全部帖子

回復 2# eigen

感謝您的回覆
我把程式碼改成

'dst_book.SaveAs "d:\" & Cells(i, 2).Value & ".xlsx" '保存在d:\，文件名是單元格(i,2)的內容，副檔名 .xlsx
dst_book.SaveAs "d:\" & Cells(i, 2).Value & ".xlsx", _
FileFormat:=xlNormal, Password:="abcd", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

dst_book.Close '總表中每行第2個單元格數據為「姓名」，以這個人的「姓名」為導出文件名，比如「張三.xlsx」

但出現錯誤訊息 --> 400

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 12
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-1-19

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2017-6-6 19:54 | 顯示全部帖子

回復 2# eigen

另外，我是想說再分拆excel另存新的檔案時
excel VBA 是可以幫我順便加上"J欄"內的密碼
如 : excel 存成"泰錦.xlsx"，當我一開啟"泰錦.xlsx"時，他會叫我輸入密碼"123456789"

Noname.jpg (29.8 KB)

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 12
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-1-19

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

4^#

發表於 2017-6-23 08:14 | 顯示全部帖子

回復 5# macro0029

Hi 感謝您的回復即提供的網址，我在試試看

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 12
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-1-19

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

5^#

發表於 2017-6-23 08:15 | 顯示全部帖子

回復 6# Kubi

Hi 你的語法確定可以拆分檔案及加密
真的太棒了，謝謝你!

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 12
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-1-19

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

6^#

發表於 2017-6-25 16:31 | 顯示全部帖子

回復 6# Kubi

Hi 想跟您請教，是哪一段語法是可以加上密碼的?
感恩!

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 12
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-1-19

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

7^#

發表於 2017-6-26 18:34 | 顯示全部帖子

回復 10# Kubi

了解囉，謝謝你的熱心指導!

Just do it.

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

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