Excel açılış

[mkonyalioglu]

excel açılışta bilgisayarda bulunan bir txt uzantılı dosyayı kontrol etsin yoksa açılmasın böyle bir şey gördüm forumda ama bulamadım bilen varsa gönderebilirmi
çok acemiyim kusura bakmayın

 

[Necdet]

Merhaba,

Aşağıdaki kodları kendinize göre düzenleyiniz.
Kodları Thisworkbook'un kod bölümünde olmalı
C sürücüsünde __Excel dizini aldında Kontrol.txt (gerektiğinde bu dosyayı gizli de yapabilirsiniz) dosyasını arar, bulamazsa kapanır.

Private Sub Workbook_Open()
    
    Dim Dosya   As String
    
    Dosya = Dir("C:\__Excel\Kontrol.txt", vbHidden)
    If Dosya = "" Then
        ThisWorkbook.Close Savechanges:=False
        Exit Sub
    End If
End Sub