» 遊客:  加入 | 登入 (帳號有問題請連絡TWed2k@gmail.com)


 


 TWed2k » 軟體求助討論區 » [求助]有很多個excel活頁薄要加保護密碼，有程式可以處理嗎？ RSS   



  可打印版本 | 推薦給朋友 | 訂閱主題 | 收藏主題 | 純文字版  


 

 
主題: [求助] [求助]有很多個excel活頁薄要加保護密碼，有程式可以處理嗎？   字型大小：小|中|大|巨  ← →
dennischerry
青銅驢友
等級： 11等級： 11等級： 11等級： 11


 ． 積分： 217
 ． 文章： 644
 ． 收花： 1551 支
 ． 送花： 406 支
 ． 比例： 0.26
 ． 在線： 1604 小時
 ． 瀏覽： 35871 頁
 ． 註冊： 7230 天
 ． 失蹤： 1 天
#1 : 2012-1-5 08:52 AM     全部回覆 送鮮花給本文章，以表示喜愛之意，點花數可看送花者名單送花 (0) 引言回覆
把您錄的巨集改一下, 就可以用了!!

Sub Trans()
            Me.File1.Path = "您的資料夾路徑"
            Me.File1.Pattern = ".xls"
            Me.File1.Refresh
            For I=0 to Me.File1.ListCount-1
                 AddPassword(Me.File1.Path & "\ " & Me.File1.List(I))
            Next I
End Sub

Sub AddPassword(byval Pathfile as string)
    Workbooks.Open Filename:=Pathfile
    ActiveWorkbook.SaveAs Filename:=Pathfile , _
        FileFormat:=xlNormal, Password:="1234", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
End Sub

[dennischerry 在  2012-1-5 09:02 AM 作了最後編輯]


[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]
本文連接  
檢閱個人資料  訪問主頁  發私人訊息  Blog  快速回覆 新增/修改 爬文標記

   

快速回覆
表情符號

更多 Smilies

字型大小 : 小|中|大|巨      [完成後可按 Ctrl+Enter 發佈]        

溫馨提示：本區開放遊客瀏覽。
選項:
關閉 URL 識別    關閉 表情符號    關閉 Discuz! 代碼    使用個人簽名    接收新回覆信件通知
發表時自動複製內容   [立即複製] (IE only)


 



所在時區為 GMT+8, 現在時間是 2024-11-22 06:58 AM		 清除 Cookies - 連絡我們 - TWed2k © 2001-2046 - 純文字版 - 說明
Discuz! 0.1 | Processed in 0.015522 second(s), 7 queries , Qzip disabled