lpk187

¦^´_ 1# PKKO

¬O­n³]©w¡A§A¹Ï¤¤Åv­­ªº±K½X¡H¦pªG¬O«h¬O³]workbookÄÝ©Ê.Password´N¥i¥H¤F
¦p¤U½d¨Ò¡G

1. Sub Ex()
   
2. Dim Bk As Workbook
   
3. Dim nFile As String
   
4.     mPath = ThisWorkbook.Path & "\"
   
5.     nFile = Dir(mPath)
   
6.     Do While Len(nFile)
   
7.         If nFile <> "¥Dµ{¦¡.xlsm" Then
   
8.             Set Bk = Workbooks.Open(mPath & nFile)
   
9.             Bk.Password = "12345"
   
10.             Bk.Close True
    
11.         End If
    
12.         nFile = Dir
    
13.     Loop
    
14. End Sub

½Æ»s¥N½X