Excel VBA質問箱 IV

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

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


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

20839 / 76732

←次へ　｜　前へ→


	【61301】アドインでシートをプロテクト出来ないのでしょうか？

くどう

- 09/4/24(金) 15:01 -


	引用なし

	パスワード

ブックを開いた際、まずシートの保護を解除し⇒処理⇒また保護
という流れにしたいのですが、保護の解除が出来ません。
（特にエラーメッセージもない）
「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

0 hits

▼

【61301】アドインでシートをプロテクト出来ないのでしょうか？ くどう 09/4/24(金) 15:01

≪