باز کردن فایل excel دیگر به صورت ایمن

[user11]

سلام.
دوستان من میخوام یک فایل اکسل دیگه رو باز کنم و از اطلاعاتش استفاده کنم. فقط چون فایل اصلی خیلی خیلی مهم هست میخوام که فایل به صورت خیلی امن و بصورت فقط خواندی باز بشه. و هنگ نکنه
کدی که استفاده میکنم به صورت زیره:

Private Sub CommandButton1_Click()
     Dim a As Workbook
     Set a = Workbooks.Open("Book2.xlsx")
     
     Sheet1.Cells(1, 1) = a.Worksheets("Sheet1").Cells(2, 2).Value
     a.Close
     
End Sub

درضمن الان وقتی فایل باز هست و کد اجرا میشه پیغام میده که فایل بازه. میخوام چک کنه اگه فایل بازه دیگه بازش نکنه و آخره کار نبندتش...

[ahmad.khanifar]

شما باید قبل از بازکردن فایل یک شرط قرار بدی که باز بودن یا نبودن فایل را کنترل کنه این نمونه کد را مشاهده کنید مشکل شما را حل میکند

Sub DoIt() 
    Dim WbookCheck As Workbook 
     
    On Error Resume Next 
    Set WbookCheck = Workbooks("Time Sheets.xls") 
    On Error Goto 0 
     
    If WbookCheck Is Nothing Then 'Closed
        Workbooks.Open "d:\clients\time sheets\Time Sheets.xls" 
    ElseIf Application.ActiveWorkbook.Name = WbookCheck.Name Then 
        WbookCheck.Close SaveChanges:=True 
    Else 
        WbookCheck.Activate 
    End If 
End Sub