• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Vba exe yapmak ve şifreleme

  • Konbuyu başlatan Konbuyu başlatan cemilk
  • Başlangıç tarihi Başlangıç tarihi
C

cemilk

Katılım
16 Eylül 2009
Mesajlar
166
Excel Vers. ve Dili
2010-2013
önceliklle herkesin cumhuriyet bayramı kutlu olsun.

Hocalarım ben vba da birazda yardım la birşeyler yaptım şimdi yapamadığım bir iki ufak şey kaldı yardımcı olursanız sevinirim yada nasıl yapacağımı gösterirmisiniz.

Excelden gelen verilerde ki küsüratları atıp binlik ayraç vermesi
*.exe yapmak ve şifrelemek şifre ile arka plandaki verilere ulaşılmasını istiyorum. Ama yapamadım.:)
vade tarih kısmına gün/ay/yıl olarak tarih gelebilirmi.

Ilginize teşekkür ederim.
 

Ekli dosyalar

xl'yi exe yapamazsınız.
Bunu yapan programlar var.Ama excel yüklü olmayan bir pc'de çalışmaz.Sadece güvenlik ayarı düşük olan excellerde çalışır.Başkada bir özelliği yok.Sonra ileride nasıl davranacağınıda bilemezsiniz.
Gelin bu xl'yi exe yapma sevdasından vazgeçin.Böyle mutlu şekilde yaşayıp gidelim.:cool:
not:exe yapmak derken exe uzantılı dosya yapmak istediğiniz anlıyorum.
 
Evet öyle ama hani sadece excel açılıyor ve arka plana ulaşamıyorlar şifre ile ulaşılıyor. öyle bişey istiyorum.
 
Bir de hazırladığım ekrana resim logo nasıl eklerim. Sabit kalacak excelin içine yapıştırdığım bir resim ekranda kalabilirmi.
 
cemilk' Alıntı:
Evet öyle ama hani sadece excel açılıyor ve arka plana ulaşamıyorlar şifre ile ulaşılıyor. öyle bişey istiyorum.
Genişletmek için tıkla ...
Ama o exe yapmak değil ki.Exceli gizleyip formlarla çalışmak.VBA ile formlar vasıtası ile çalışmak.İstersen execeli gizlersin istersen gizlemezsin.
gizleme: appliaction.visible=false
gösterme : application.visible=true
workbooks.open modülüne exeli gizleyen kodu yazın altınada istediğiniz userformu show edin.
kapatırkende exceli visible = true yapmayı unutmayın.:cool:
 
Lütfen sorularınızı ilgili bölümde sorunuz.
Soru tarafımdan taşınmıştır.
 
diğer sorularım konusunda yardımcı olabilirmisiniz.
 
buhasebe programı olarak düşündüğümden buraya açtım.
 
Hocam sana zahmet verdiğin kodu dosyaya ekleyebilirmisin.
 
evren hocam küsürat ve tarih konusunu da düzeltebilirmisn.
 
evren hocam verdiğim dosyanın içinde kodlar var ama doğru kodlarımı kullanarak excelden verileri alıyorum userforma. yalnız userform da ekrana gelen veriler küsüratlı olarak tarihler de ters geliyor ilk sorum daki eki incelerseniz combobox tan bir cari seçerseniz sorunları görebilirsiniz.
 
cemilk' Alıntı:
evren hocam verdiğim dosyanın içinde kodlar var ama doğru kodlarımı kullanarak excelden verileri alıyorum userforma. yalnız userform da ekrana gelen veriler küsüratlı olarak tarihler de ters geliyor ilk sorum daki eki incelerseniz combobox tan bir cari seçerseniz sorunları görebilirsiniz.
Genişletmek için tıkla ...
Binlik ayraçlı sayı formatı.:
Kod: 
TextBox18 = Format(Worksheets("TABLOM").Cells(i, 10).Value, "#,##0")
Tarih formatı:
Kod: 
TextBox26 = Format(Worksheets("TABLOM").Cells(i, 39).Value, "dd.mm.yyyy")
 
Teşekkür ederim sana zahmet bir de bana rapor sayfasını yazdırmak için kod verirmisin.
 
cemilk' Alıntı:
Teşekkür ederim sana zahmet bir de bana rapor sayfasını yazdırmak için kod verirmisin.
Genişletmek için tıkla ...
Rapor diye bir sayfa göremedim dosyanızda .İTE sayfasına yazdırma yaptırdım.Siz isterseniz değişitirin.
:cool:
Kod: 
Dim sonsat As Long
sonsat = Sheets("İTE").Cells(65536, "A").End(xlUp).Row
With Sheets("İTE").PageSetup
    .PrintArea = "İTE!A2:I" & sonsat
    'Kağıt Yatay Yazdırılıyor
    .Orientation = xlLandscape 'Dikey yazdırmak=.Orientation = xlPortrait
    .Zoom = 75
End With
Sheets("İTE").PrintOut
Sheets("İTE").PageSetup.PrintArea = ""
 
Teşekkür ederim ben sonradan ekledim o sayfayı üstat. Sağol
 
Aşağıdaki gibi.
Birde şunu ekleyim.
eğer yazdırma yapacaksanız ve ön izleme yapacaksanız ki bu kodlarda yapılıyor,eğer bunu userformda iken kullanmak istiyorrsanız userformu önce hide yapın.yazdırma bittikten sonra yine show yapın.
Private Sub CommandButton4_Click()
Dim sonsat As Long
sonsat = Sheets("RAPOR").Cells(36, "A").End(xlUp).Row
With Sheets("RAPOR").PageSetup
.PrintArea = "RAPOR!A1:L" & sonsat
'Kağıt Yatay Yazdırılıyor
.Orientation = xlLandscape 'Dikey yazdırmak=.Orientation = xlPortrait
.Zoom = 100
End With
Sheets("RAPOR").PrintOut
Sheets("RAPOR").PageSetup.PrintArea = ""
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst