jsc0518

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

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.

jsc0518

高中生 Rank: 3 Rank: 3

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

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

11^#

發表於 2017-6-26 18:34 | 只看該作者

回復 10# Kubi

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

Just do it.

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

10^#

發表於 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

jsc0518

高中生 Rank: 3 Rank: 3

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

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

9^#

發表於 2017-6-25 16:31 | 只看該作者

回復 6# Kubi

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

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

8^#

發表於 2017-6-23 08:15 | 只看該作者

回復 6# Kubi

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

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

7^#

發表於 2017-6-23 08:14 | 只看該作者

回復 5# macro0029

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

Just do it.

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

6^#

發表於 2017-6-22 14:29 | 只看該作者

回復 4# jsc0518
請參考。

Excel_VBA-拆分薪資-1.rar (21.46 KB)

TOP

macro0029

中學生 Rank: 2

帖子: 8
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WIN7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2017-3-14
最後登錄: 2023-8-21

5^#

發表於 2017-6-22 13:13 | 只看該作者

本帖最後由 macro0029 於 2017-6-22 13:18 編輯

回復 1# jsc0518
可以參考看看是不是你需要的
http://download.ithome.com.tw/article/index/id/2187

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2017-6-6 19:54 | 只看該作者

回復 2# eigen

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

Noname.jpg (29.8 KB)

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

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

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

3^#

發表於 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.

TOP