| |
いつも大変お世話になっています。ありがとうございます。
実は、マクロ付のエクセルを別のマクロ（.xla）で削除、追加、差替等をしたいのですが、
そのエクセルブックにはプロジェクト保護がされています。
またそのブックは、書類の様式の原本となっており、そのエクセルをいろいろな
会社の人間がコピーして、必要事項を記入し、自由な名前で保存しています。
そのいろいろな人が所有するエクセルのマクロをアドインで更新したいのです。
いろいろなチャレンジをしたのですが、どうしてもプロジェクト解除と再保護の
方法が分からないので、投稿しました。
よろしくお願いします。
'保護解除
Sub Prj_Rlse()
'特にここ（下）のインデックスをどうしたらいいのか分かりません。
With ActiveWorkbook.VBProject.VBE.Windows(1)
.SetFocus
SendKeys "%T"
SendKeys "E"
SendKeys "system" & "{ENTER}{ENTER}"
End With
ActiveWorkbook.VBProject.VBE.MainWindow.Visible = False
End Sub
'保護設定
Sub Prj_Regist()
With ActiveWorkbook.VBProject.VBE.Windows(1)
.SetFocus
SendKeys "%TE^{TAB} {TAB}" & "system" & _
"{TAB}" & "system" & "{TAB}{ENTER}", True
End With
ActiveWorkbook.VBProject.VBE.MainWindow.Visible = False
End Sub
|
|
もとあし
- 07/6/18(月) 16:07 -
