Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32252 / 76734

←次へ　｜　前へ→


	【49721】Re:プロジェクト保護と解除

もとあし - 07/6/18(月) 17:00 -


	引用なし

	パスワード

このすぐ後、
ＨＴＴＰ://homepage2.nifty.com/kmado/ke_m7.htm

の「マクロでVBEプロジェクトの保護をする」を見て、保護はできたように思います。
が、解除がなかなか出来ません。

Sub Prj_Protec()
　　Dim BName
　　Dim PassW
　　
　　BName = ActiveWorkbook.Name
　　PassW = "system"
　　
　　With Workbooks(BName)
　　　　.VBProject.VBComponents(1).CodeModule.CodePane.Window.Visible = True
　　　　SendKeys "%TE^{TAB} {TAB}" & PassW & "{TAB}" & PassW & "{TAB}{ENTER}", True
　　End With
End Sub

6 hits

▼

【49719】プロジェクト保護と解除 もとあし 07/6/18(月) 16:07