如何以VBA設定開啟檔案的密碼 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何以VBA設定開啟檔案的密碼

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

[發問] 如何以VBA設定開啟檔案的密碼

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-10-27 08:24 | 顯示全部帖子

回復 1# PKKO

是要設定，你圖中權限的密碼？如果是則是設workbook屬性.Password就可以了
如下範例：

Sub Ex()
Dim Bk As Workbook
Dim nFile As String
mPath = ThisWorkbook.Path & "\"
nFile = Dir(mPath)
Do While Len(nFile)
If nFile <> "主程式.xlsm" Then
Set Bk = Workbooks.Open(mPath & nFile)
Bk.Password = "12345"
Bk.Close True
End If
nFile = Dir
Loop
End Sub

複製代碼

靜思自在 : 對父母要知恩，感恩、報恩。

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