Dosya istenilen adreste değilse kodlar çalışmasın

[acolkesen1]

Merhaba Arkadaşlar,
ThisWorkbooka yazacağım kodlarla açılan dosya olması istenilen yerde değilse mesaj verdirmek istiyorum. Örneğin D deçalışması istenilen bir dosya başka bir sürücüde ise açıldığı zaman auto_open a yazılacak kodla mesaj versin. Yardımcı olacak arkadaşlara teşekkürler. İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Workbook_Open()
    If Left(ThisWorkbook.Path, 1) <> "[COLOR=red]C[/COLOR]" Then
    MsgBox "Dosya hatalı sürücüde bulunmaktadır!" & Chr(10) & "Lütfen uygun sürücüye taşıyınız.", vbCritical
    Application.Quit
    End If
End Sub

 

[acolkesen1]

Merhaba Sayın Korhan Ayhan,
İlginiz ve yardımlarınız için çok teşekkür ederim.Esenkalın..(Kullanacak arkadaşlar için;Mevcut şekliyle dosya masaüstündeyken mesaj vermiyor. Sanırım dekstop c içinde olduğundan. Ben dosyayı D içine kuracağım için koddaki yolu D olarak değiştirdim, masaüstündeyken de mesaj veriyor.)