投稿日 | : 2006/06/05(Mon) 16:13 |
投稿者 | : YK |
Eメール | : |
URL | : |
タイトル | : Re: SendKeysで苦戦 |
こんにちは。
こんな風でいけると思います。
If WB.VBProject.Protection Then
CodeProtect WB
End If
Private Function CodeProtect(WB As Workbook) As Boolean
WB.VBProject.VBE.Windows(1).SetFocus
DoEvents
SendKeys "%(TE)"
Application.Wait Now + TimeValue("00:00:01")
SendKeys "passward~"
Application.Wait Now + TimeValue("00:00:01")
SendKeys "~"
End Function