User Form İle Lisans Girme

[Orion1]

Dosya gizleme kodları aşağıdadır.
Not: Klasöe seçeneklerinden gizli dosyaları göster seçeneği seçilirse , Bu kod yazılsa bile gizli dosyaları dolayısı ile bu dosyayı gösterir.

Sub dosya_gizle()
Dim ds As Object, yol As String, a
Set ds = CreateObject("Scripting.FileSystemObject")
yol = CreateObject("wscript.shell").SpecialFolders(16)
Set a = ds.GetFile(yol & "\VeriEkle.txt")
a.Attributes = a.Attributes + 2
End Sub

 

[__TR__]

Sayın Orion1 size ve diğer arkadaşlara yardımlarınızdan dolayı çok teşekkür ederim. Evet dediğiniz gibi "Gizli Dosyaları Göster" aktif edildiğinde dosya görünecektir, ama ilk mesajımda da bahsettiğim gibi bu uygulama küçük çaplı bir koruma tedbiridir.

Hazırlanmış olan çalışmanın son halini aşağıdaki linkten indirebilirsiniz. Açılacak olan Userform üzerindeki Textbox3 iptal edilmemiştir, siz dilediğiniz gibi değiştirebilir iptal edebilirsiniz. Userformu kapatmak için hesapla denip çıkan sonuç Lisans bölümüne girildikten sonra kaydet demek yeterlidir.
Çok fazla kod bilgim yok eksik veya uzunca yazılmış kodlar olabilir siz isterseniz kendinize göre düzenleyebilirsiniz vba bu yüzden şifrelenmedi.

Dosyayı Buradan İndirebilirsiniz.

 

[cem yılmaz]

Private Declare PtrSafe Function GetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Ben programıma uyguladığımda bu kısım kırmızı ile hata veriyor. İşletim sistemim win 7 64bit - office 2007. Neyi aktifleştirmem gerek?

 

[Korhan Ayhan]

Ofisiniz 32 bit olduğu için hata alıyorsunuz.

"PtrSafe" ifadelerini silip deneyin.

 

[cem yılmaz]

Ofisiniz 32 bit olduğu için hata alıyorsunuz.

"PtrSafe" ifadelerini silip deneyin.

Teşekkür ederim. Hata çözüldü.

 

[__TR__]

Sayın Korhan Ayhan rica etsem ekli dosyayı sadece üyelere özel şekilde değiştirebilirmisiniz?

 

[Akşahin]

Güzel bir çalışma olmuş emeği geçen her kezden Allah razı olsun lakin son halini indiremedim açlılan sayfada ( File has been removed due to inactivity ) Hareketsizlik nedeniyle dosya kaldırıldı mesajı veriyor rica etsem tekrar yükleme yapabilirmisiniz

 

[Endless033]

Sayın Orion1 size ve diğer arkadaşlara yardımlarınızdan dolayı çok teşekkür ederim. Evet dediğiniz gibi "Gizli Dosyaları Göster" aktif edildiğinde dosya görünecektir, ama ilk mesajımda da bahsettiğim gibi bu uygulama küçük çaplı bir koruma tedbiridir.

Hazırlanmış olan çalışmanın son halini aşağıdaki linkten indirebilirsiniz. Açılacak olan Userform üzerindeki Textbox3 iptal edilmemiştir, siz dilediğiniz gibi değiştirebilir iptal edebilirsiniz. Userformu kapatmak için hesapla denip çıkan sonuç Lisans bölümüne girildikten sonra kaydet demek yeterlidir.
Çok fazla kod bilgim yok eksik veya uzunca yazılmış kodlar olabilir siz isterseniz kendinize göre düzenleyebilirsiniz vba bu yüzden şifrelenmedi.

Dosyayı Buradan İndirebilirsiniz.

indirme yapamadık tekrar ekleme yapa bilir misiniz .emeğinize sağlık

 

[ibere]

Sayın Orion1 size ve diğer arkadaşlara yardımlarınızdan dolayı çok teşekkür ederim. Evet dediğiniz gibi "Gizli Dosyaları Göster" aktif edildiğinde dosya görünecektir, ama ilk mesajımda da bahsettiğim gibi bu uygulama küçük çaplı bir koruma tedbiridir.

Hazırlanmış olan çalışmanın son halini aşağıdaki linkten indirebilirsiniz. Açılacak olan Userform üzerindeki Textbox3 iptal edilmemiştir, siz dilediğiniz gibi değiştirebilir iptal edebilirsiniz. Userformu kapatmak için hesapla denip çıkan sonuç Lisans bölümüne girildikten sonra kaydet demek yeterlidir.
Çok fazla kod bilgim yok eksik veya uzunca yazılmış kodlar olabilir siz isterseniz kendinize göre düzenleyebilirsiniz vba bu yüzden şifrelenmedi.

Dosyayı Buradan İndirebilirsiniz.

Elinize sağlık, dosya linki ölmüş. Tekrar yükleme imkanınız var mı acaba ?