Ağda açık olan excel dosyasını nasıl kapatırım?

[MERDAG]

Ağda açık olan excel dosyasını diğer bilgisayardan nasıl kapatırım?
Yardımlarınız için şimdiden teşekkürler...

 

[Murat OSMA]

Deneyiniz;

Workbooks("doya yolu ve dosya ismi").close

 

[MERDAG]

Makro olarak
Workbooks("\\Serkan26\YEDEK\DELİORMAN STOK.xls").Close
şu şekilde ekledim aşağıdaki hatayı verdi
Run-time error '9':
Subscript out of range

 

[ffff7]

"DELİORMAN STOK" yazımındaki boşluk (space) işini bozuyor.
Boşluksuz isimlerle dene.

 

[MERDAG]

Yine aynı hatayı veriyor fark yok.

 

[ffff7]

Pardon. Soruyu yanlış okumuşum. Ağda açık kalmış, takılı kalmış excel dosyalarını mı kapatmak istiyorsunuz?
Excel bunu yapamaz diye biliyorum.
Ağ yöneticiniz açık ve paylaşımda olan dosyaları görüp, sistemden kapatabilir ancak.

 

[MERDAG]

Benim dosyayı diğer bilgisayara yedekleyip oradada başka kullanıcı tarafından kullanılmasını sağlıyorum Ama dosya açık kalınca yedekleme yapamıyorum yedekleme yaparken dosyanın kapatılması ve yedekleme yapılmasını istiyorum (normalde yedekleme yapıyorum)...

 

[ffff7]

Başka bir bilgisayardaki dosyaya kapan komutunu verdirmek yapılabilir mi bilmiyorum. Mutlaka yapılabilir ama zor olacaktır. Ayrıca veri kaybı olabilir.
Bence yedeğini alacağın dosyaları bir klasöre kopyala...
(açık dosyayı kopyalamak için bu kodu kullanabilirsin.)

Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
      (ByVal lpExistingFileName As String, _
      ByVal lpNewFileName As String, _
      ByVal bFailIfExists As Long) As Long

Sub CopyFileEvenIfOpen(SourceFile As String, DestFile As String)
  Dim Result As Long
   If Dir(SourceFile) = "" Then
     MsgBox Chr(34) & SourceFile & Chr(34) & " is not valid file name."
   Else
     Result = apiCopyFile(SourceFile, DestFile, False)
   End If
End Sub

'yukarıdaki kodun kullanım şekli
CopyFileEvenIfOpen "C:\Users\da\Docs\1.xlsx","C:\Users\da\Docs\1\1-" & date & ".xlsx"

orada da hepsinin yedeğini al. (Zaten almış da oluyorsun)

Kullanıcı dosyanın son halini kaydetmeden alacağın yedeklerin yetkinliğinin az olacağını unutma.