Maaf Mr. Kid. Belum paham saya. Untuk no.2 apakah itu artinya harus buka file dulu sama seperti no. 1 ?
Terima kasih jawabannya. From: [email protected] [mailto:[email protected]] 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 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" Else Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai" End If wbkF.Close False 'cara 2 : Dim iFile As Integer Err.Clear On Error Resume Next iFile = FreeFile Open sFile For Binary Access Read Lock Read As iFile: Close iFile If Err.Number <> 0 Then Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain" Else Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai" End If Err.Clear On Error GoTo 0 'cara 3 : Dim sFBackup As String Err.Clear On Error Resume Next sFBackup = sFile & ".kid" FileCopy sFile, sFBackup Kill sFile If Err.Number <> 0 Then Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain" Else FileCopy sFBackup, sFile Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai" End If Kill sFBackup Err.Clear On Error GoTo 0 End Sub On Wed, Jan 30, 2019 at 7:37 AM Tio Ali [email protected]<mailto:[email protected]> [belajar-excel] <[email protected]<mailto:[email protected]>> wrote: Salqm Bexceller Saya 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 kapasitasnya sehingga jadi lama bukanya. Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error berarti file itu open Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file yang kita butuhkan ? Terima kasih. Tio _ ________________________________ Reply via web post<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45197;_ylc=X3oDMTJybTRwZW9hBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NDg3Mjc0ODc-?act=reply&messageNum=45197> • Reply to sender <mailto:[email protected]?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer> • Reply to group <mailto:[email protected]?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer> s<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45164;_ylc=X3oDMTM3aTc0Ym5oBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NDg3Mjc0ODcEdHBjSWQDNDUxNjQ-> ________________________________ Have you tried the highest rated email app?<https://yho.com/1wwmgg> With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage. ________________________________ ============================================================ Pojok Lowongan Kerja yang disediakan milis : http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html *** Posting lowongan kerja : ke link tersebut dan klik New Topic ============================================================ bergabung ke milis (subscribe), kirim mail kosong ke: [email protected]<mailto:[email protected]> posting ke milis, kirimkan ke: [email protected]<mailto:[email protected]> berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages melihat file archive / mendownload lampiran : http://www.mail-archive.com/[email protected]/ atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/ menghubungi moderators & owners: [email protected]<mailto:[email protected]> keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [email protected]<mailto:[email protected]> --------------------------------------------------------------------- Visit Your Group<https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmNDU3ZHA5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NDg3Mjc0ODc-> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> • Privacy • Unsubscribe • Terms of Use <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> SPONSORED LINKS<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> .<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw--> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
