kimbal

³o­Ó¬O¼ÒÀÀÁä½Lªº¤èªk:

1. Sub UnprotectVBProj(ByVal Pwd As String, wb As Workbook)
   
2.     Dim vbProj As Object
   
3.     Set vbProj = wb.VBProject
   
4.     If vbProj.Protection <> 1 Then Exit Sub ' already unprotected
   
5.     Set Application.VBE.ActiveVBProject = vbProj
   
6.     SendKeys Pwd & "~~"
   
7.     Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
   
8. End Sub

½Æ»s¥N½X

¥Îªk "ABC" ¬°±K½X, wb¬°¹ï¤è¬¡­¶Ã¯
CALL UnprotectVBProj("ABC", wb)