باز ماندن و اجرای تنها یک فایل اکسل

**golchehre** · 2018/08/21, 04:18

نوشته اصلی توسط golchehre

سلام میخوام وقتی فایل مورد نظر اکسل رو باز میکنم در صورتی که از قبل فایل های اکسل دیگری باز باشه ، بسته بشن و فقط فایل مورد نظر باز بمونه و تا زمانی که فایل بازه اجازه اجرا و باز کردن فایل اکسل دیگری همزمان با فایل مورد نظر نده این کار شدنیه؟ اگه میشه چه کدی باید نوشت
ممنون

**Alireza** · 2018/08/21, 09:16

نوشته اصلی توسط golchehre

سلام میخوام وقتی فایل مورد نظر اکسل رو باز میکنم در صورتی که از قبل فایل های اکسل دیگری باز باشه ، بسته بشن و فقط فایل مورد نظر باز بمونه و تا زمانی که فایل بازه اجازه اجرا و باز کردن فایل اکسل دیگری همزمان با فایل مورد نظر نده این کار شدنیه؟ اگه میشه چه کدی باید نوشت
ممنون

سلام هر رویدادی باید در ایونت open workbook قرار بدید

کد PHP:


Private Sub Workbook_Open()

' Put your code here

End Sub

**mokaram** · 2018/08/21, 09:58

علیرضا جان فکر کنم نوشتن کد تو این رویداد مشکل ایشون را حل نمیکنه چون این کدها هنگام باز شدن فایل جاری عمل میکنه و قاعدتا نباید تاثیری روی باز شدن فایل دیگه ای بزاره.

**golchehre** · 2018/08/21, 11:20

نوشته اصلی توسط mokaram

علیرضا جان فکر کنم نوشتن کد تو این رویداد مشکل ایشون را حل نمیکنه چون این کدها هنگام باز شدن فایل جاری عمل میکنه و قاعدتا نباید تاثیری روی باز شدن فایل دیگه ای بزاره.

دقیقا همینطوره

- - - Updated - - -

نوشته اصلی توسط Alireza

سلام هر رویدادی باید در ایونت open workbook قرار بدید

کد PHP:


Private Sub Workbook_Open()

' Put your code here

End Sub

ممنون کدی به نظرتون میرسه این کار انجام بشه؟

**Alireza** · 2018/08/22, 14:09

نوشته اصلی توسط golchehre

دقیقا همینطوره

- - - Updated - - -

ممنون کدی به نظرتون میرسه این کار انجام بشه؟

کد PHP:



Private Sub Workbook_Open()
Dim wb As Workbook   
 For Each wb In Application.Workbooks    
     If wb.Name <> ThisWorkbook.Name Then     
       wb.Close SaveChanges:=False   
     End If
  Next wb
End Sub

این کد رو تست کنید

**golchehre** · 2018/08/24, 17:48

نوشته اصلی توسط Alireza

کد PHP:



Private Sub Workbook_Open()
Dim wb As Workbook   
 For Each wb In Application.Workbooks    
     If wb.Name <> ThisWorkbook.Name Then     
       wb.Close SaveChanges:=False   
     End If
  Next wb
End Sub