سلام.
دوستان من میخوام یک فایل اکسل دیگه رو باز کنم و از اطلاعاتش استفاده کنم. فقط چون فایل اصلی خیلی خیلی مهم هست میخوام که فایل به صورت خیلی امن و بصورت فقط خواندی باز بشه. و هنگ نکنه
کدی که استفاده میکنم به صورت زیره:
کد:
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
درضمن الان وقتی فایل باز هست و کد اجرا میشه پیغام میده که فایل بازه. میخوام چک کنه اگه فایل بازه دیگه بازش نکنه و آخره کار نبندتش...
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)