; *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 31 Januari 2019 14:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Cara cek file open dengan delete file
> dimqna file itu dibutuhkan
>
>
>
>
>
> Public Sub Cek
Maaf Mr. Kid. Belum paham saya.
Untuk no.2 apakah itu artinya harus buka file dulu sama seperti no. 1 ?
Terima kasih jawabannya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 31 Januari 2019 14:29
To: BeExcel
Subject: Re: [belajar-excel] Cara cek file open
Public Sub CekWbkInUse(Optional bState As Boolean = False)
Dim sFile As String
sFile = "D:\lib_links.xlsx"
'cara 1 :
Dim wbkF As Workbook
Set wbkF = Workbooks.Open(sFile, 2)
If wbkF.ReadOnly Then
Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
Salqm BexcellerSaya mau cek file apakah sedang open atau tidak. Kalau file itu
tutup, saya buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek
apakah file itu readonly atau tidak. Kalau tidak readoonly berarti file tutup.
Tapi itu akan jadi masalah kalau file itu sudah besar
4 matches
Mail list logo