tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル編集のためロックについて
記事No16645
投稿日: 2022/05/31(Tue) 09:05
投稿者しん
お世話になります。

Windows10   Excel2019

VB6でVBAを起動します。

VB6
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Exap As Object
Dim Wbook As Object
Set Exap = CreateObject("Excel.application")
Exap.Workbooks.Open "C:\Users\User\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB"
Call Exap.Run("PERSONAL.XLSB!テスト")

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

VBA
'''''''''''''''''
Sub テスト()
  MsgBox"テスト"
End Sub

'''''''''''''''''

MsgBox"テスト"の確認後、デスクトップ上の他のExcel ファイルを開くとPERSONAL.XLSBは編集のためロックされていますとなります。
パソコン起動後、MsgBox"テスト"を行いました。

Excelの「コマンドボタン」からでは編集のためロックは無く動作します。

Private Sub CommandButton1_Click()
  Application.Run "PERSONAL.XLSB!テスト"
End Sub


VB6では編集のためロックが発生し、Excelでは編集のためロックが発生しない違いが分かりません。

ご教示願えますと幸いであります。

[ツリー表示へ]
タイトルRe: 編集のためロックについて
記事No16646
投稿日: 2022/05/31(Tue) 22:20
投稿者しん
以下のようにしましたら[編集のためロック]は表示しなくなりました。

'Exap.Workbooks.Open "C:\Users\User\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB"
            ↓
Exap.Workbooks.Open "C:\Users\User\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB",,1

お世話になりました。

[ツリー表示へ]