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

jsc0518

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

下載 (33.82 KB)

2017-6-6 12:44

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

下載次數: 8

2017-6-6 12:45

eigen

回復 1# jsc0518


    自己錄一下巨集，操作一下密碼保護，就會有類似

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' AMD945 在 2017/6/6 錄製的巨集
   
5. '
   
6. 
   
7. '
   
8.     ActiveWorkbook.Password = "abcd"
   
9.     ActiveWorkbook.RemovePersonalInformation = True
   
10.     ChDir "C:\Users\AMD945\Desktop"
    
11.     ActiveWorkbook.SaveAs Filename:="C:\Users\AMD945\Desktop\1111.xls", _
    
12.         FileFormat:=xlNormal, Password:="abcd", WriteResPassword:="", _
    
13.         ReadOnlyRecommended:=False, CreateBackup:=False
    
14. End Sub

複製代碼

的code

接下來就很容易改了

將這行改成這樣就可以
dst_book.SaveAs "d:\" & Cells(i, 2).Value & ".xls", _
        FileFormat:=xlNormal, Password:="abcd", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

'保存在d:\，文件名是單元格(i,2)的內容，副檔名 .xlsx

jsc0518

回復 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

jsc0518

回復 2# eigen

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





   

下載 (29.8 KB)

2017-6-6 19:50

macro0029

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

Kubi

回復 4# jsc0518
請參考。
Excel_VBA-拆分薪資-1.rar (21.46 KB)

下載次數: 18

2017-6-22 14:29

jsc0518

回復 5# macro0029

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

jsc0518

回復 6# Kubi

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

jsc0518

回復 6# Kubi


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

Kubi

回復 9# jsc0518
1.先把 J 欄的密碼存入 pw 變數中。
pw = Sheets("Sheet1").Cells(r, 10).Value

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