Key İle Excel Dosyasını Açma

[hakki83]

Merhaba değerli hocalarımız,

Excel dosyalarımı aşağıdaki linkteki dosya gibi kullanmak istiyorum,

Üye paylaşmadığı için kodları bilemiyoruz ama aklıma not defterini key gibi kullanmak geldi,

Şöyle bir kod oluşturabilir miyiz,



Private Sub Workbook_Open()

If D diskinde deneme123.txt adlı bir dosya YOK ise, Then
MsgBox "Key Bulunamadı"
Application.Quit (Excel programı kapansın)


If D diskinde deneme123.txt adlı bir dosya VAR ise, Then
MsgBox "Key Bulundu"
ThisWorkbook.Worksheets("RAPORLAR") sayfası açılsın
Range("A2").Select (A2 hücresi seçilsin)

End Sub

Açılışta Workbook Gizleme

Merhabalar, Excel açılırken key kontrol ettiriyorum varsa açıyor yoksa açmıyor. Yok olduğu zaman mesaj kutusunda key yok yazılıyor. Buraya kadar her şey normal fakat mesaj kutusu çıktığı zaman kutunun arkasındaki worksheette gözüken datalarda gözüksün istemiyorum. Worksheet.visible ile...

www.excel.web.tr

 

[muygun]

Merhaba;
Dosyanın ThisWorkboox kısmına;

Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next

dosyaa = "D:\deneme123.txt"
If Dir(dosyaa, vbDirectory) = vbNullString Then
MsgBox dosyaa & " Key Bulunamadı"
Application.Quit
Exit Sub

Else
Sheets("RAPORLAR").Select
Sheets("RAPORLAR").Range("a2").Select
MsgBox ("Dosya mevcut")
End If

Application.ScreenUpdating = True
End Sub

Kodlarını yerleştirin. Dosyayı kaydedin ve tekrar açın.
İyi çalışmalar.

 

[hakki83]

Muygun hocamız emeğinize bilginize sağlık, bilgisayara geçince hemen deneyeceğim, bir sorun oluşursa arz ederim.