Board logo

標題: 薪資拆分檔案後，如何加上開啟密碼 [打印本頁]
作者: jsc0518    時間: 2017-6-6 12:45     標題: 薪資拆分檔案後，如何加上開啟密碼

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


[attach]27289[/attach]
作者: eigen    時間: 2017-6-6 18:59

回復 1# jsc0518


    自己錄一下巨集，操作一下密碼保護，就會有類似
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' AMD945 在 2017/6/6 錄製的巨集
  5. '

  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    時間: 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
作者: jsc0518    時間: 2017-6-6 19:54

回復 2# eigen

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





    [attach]27292[/attach]
作者: macro0029    時間: 2017-6-22 13:13

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

回復 1# jsc0518
可以參考看看是不是你需要的
http://download.ithome.com.tw/article/index/id/2187
作者: Kubi    時間: 2017-6-22 14:29

回復 4# jsc0518
請參考。
[attach]27368[/attach]
作者: jsc0518    時間: 2017-6-23 08:14

回復 5# macro0029

Hi 感謝您的回復即提供的網址，我在試試看
作者: jsc0518    時間: 2017-6-23 08:15

回復 6# Kubi

Hi 你的語法確定可以拆分檔案及加密
真的太棒了，謝謝你!
作者: jsc0518    時間: 2017-6-25 16:31

回復 6# Kubi


Hi 想跟您請教，是哪一段語法是可以加上密碼的?
感恩!
作者: Kubi    時間: 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
作者: jsc0518    時間: 2017-6-26 18:34

回復 10# Kubi

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)