|
ブックを開いた際、まずシートの保護を解除し⇒処理⇒また保護
という流れにしたいのですが、保護の解除が出来ません。
(特にエラーメッセージもない)
「test.xla」単独で動かすとちゃんと保護を解除するのですが、
application.runで動かすと何も起こりません。
何が原因なのでしょうか。よろしくお願い致します。
============
Private Const cnsADDIN = "test.xla" ' アドインファイル名
Private objWBK As Workbook
Private Sub Auto_Open()
Dim strFILENAME As String
Set objWBK = ThisWorkbook ' 本ブック
' 初期処理マクロの起動(引数は本ブック名)
Application.Run "'" & cnsADDIN & "'!Auto_Open1()", objWBK.Name
End Sub
↓「test.xla」の標準モジュールに記載しているコード
Private Sub Auto_Open1()
Sheets("test").Select
Sheets("test").Unprotect
ActiveSheet.Range("A1").Value = "AAA"
End Sub
|
|