c dosya varsa calışşın

[yldrm_06]

excell dosyası, C:\****.txt dosyasının olup olmamasına göre çalışsın gibi birşey yapabilirmiyiz.

birde lisans ekleye bilirmiyiz lisans süresi (örnek: 01.04.2010-15.06.2010 tarihleri arasında çalışsın dosya) zamanı geldiğinde dosya hata msj verip dursun yanı sadece ctrl+alt+de ıle kapatılsın excell gıbı bır makro varmı bılgısayarın sıstem saatını gerı alıncada çalışmasın dosya yada

bır nevı 100 kullanıma izin versin ve 101den sonra herzman hata versın gibi birşeyde olabilir..

şimdiden tsk ederım arkadaslar

 

[Necdet]

Merhaba,

Dosya kontrolüne yanıt vereyim.
Aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_Open()
dosya = Dir("c:\abcd.txt")
If dosya = "" Then
    MsgBox "Canım Çalışmak İstemiyor, Naparsın İşte ....."
    ActiveWorkbook.Close Savechanges:=False
    Application.Quit
End If
End Sub

 

[yldrm_06]

merabalar,

cevabınız için tsk ederım. bırde ıkı soruma daha cevap verırmısınız acaba

1-dosya 15.04.2010-15.06.2010 tarıhlerı arasında çalışşın gibi bir makro

2-dosya 100 kere kullanılsın 101den sonra çalışmasın gibi bir makro

cevaplarınız ıcın sımdıden tsk ederım..

 

[Ayhan Ercan]

Merhaba

Bu tarz bir işlem yapmak için bir çok değişik uygulamalar yapılabilir.
Güvenliği ise pek sağlıklı olmayabilir.

Basit bir örnek;

Çalışma sayfanızda görünür olmayan ve kullanılmayan herhangi bir hücre belirleyin. Ben örnek olarak a1 hücresini kullanacağım. (3 defa kullanma sınırılı)

Private Sub Workbook_Open()
[A1] = [A1] + 1
If [A1] > 3 Then
ActiveWorkbook.Close True
Application.Quit
End If
End Sub

Tarih aralığı içince;

Private Sub Workbook_Open()
Dim bas As Date, son As Date
bas = "15.04.2010"
son = "15.06.2010"
If Not Date > bas And Date < son Then
ActiveWorkbook.Close True
Application.Quit
End If
End Sub

 

[yldrm_06]

merhabalar,
pekı burada yazan 3 kodu birleştirme yapabilirmisiniz... yada nasıl bırlestırebılrım.

---

Private Sub Workbook_Open()
dosya = Dir("c:\abcd.txt")
If dosya = "" Then
MsgBox "Canım Çalışmak İstemiyor, Naparsın İşte ....."
ActiveWorkbook.Close Savechanges:=False
Application.Quit
End If
End Sub

----

Private Sub Workbook_Open()
[A1] = [A1] + 1
If [A1] > 3 Then
ActiveWorkbook.Close True
Application.Quit
End If
End Sub

---
Private Sub Workbook_Open()
Dim bas As Date, son As Date
bas = "15.04.2010"
son = "15.06.2010"
If Not Date > bas And Date < son Then
ActiveWorkbook.Close True
Application.Quit
End If
End Sub

 

[Ayhan Ercan]

merhabalar,
pekı burada yazan 3 kodu birleştirme yapabilirmisiniz... yada nasıl bırlestırebılrım.

---

Private Sub Workbook_Open()
dosya = Dir("c:\abcd.txt")
If dosya = "" Then
MsgBox "Canım Çalışmak İstemiyor, Naparsın İşte ....."
ActiveWorkbook.Close Savechanges:=False
Application.Quit
End If
End Sub

----

Private Sub Workbook_Open()
[A1] = [A1] + 1
If [A1] > 3 Then
ActiveWorkbook.Close True
Application.Quit
End If
End Sub

---
Private Sub Workbook_Open()
Dim bas As Date, son As Date
bas = "15.04.2010"
son = "15.06.2010"
If Not Date > bas And Date < son Then
ActiveWorkbook.Close True
Application.Quit
End If
End Sub

Tekrar Merhaba

Pek sık siteye giriş yapamadığım için sorunuza yanıtı gecikmiş olarak veriyorum;

Private Sub Workbook_Open()
Dim dosya, bas As Date, son As Date
dosya = Dir("c:\abcd.txt")
bas = "15.04.2010"
son = "15.06.2010"
[A1] = [A1] + 1
If dosya = "" Or [A1] > 3 Or Not Date > bas And Date < son Then
MsgBox "Canım Çalışmak İstemiyor, Naparsın İşte ....."
Application.Quit
ActiveWorkbook.Close True
End If
End Sub