Vba exe yapmak ve şifreleme

[cemilk]

ö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.

 

[Orion1]

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.
not:exe yapmak derken exe uzantılı dosya yapmak istediğiniz anlıyorum.

 

[cemilk]

Evet öyle ama hani sadece excel açılıyor ve arka plana ulaşamıyorlar şifre ile ulaşılıyor. öyle bişey istiyorum.

 

[cemilk]

Bir de hazırladığım ekrana resim logo nasıl eklerim. Sabit kalacak excelin içine yapıştırdığım bir resim ekranda kalabilirmi.

 

[Orion1]

Evet öyle ama hani sadece excel açılıyor ve arka plana ulaşamıyorlar şifre ile ulaşılıyor. öyle bişey istiyorum.

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.

 

[Necdet]

Lütfen sorularınızı ilgili bölümde sorunuz.
Soru tarafımdan taşınmıştır.

 

[cemilk]

diğer sorularım konusunda yardımcı olabilirmisiniz.

 

[cemilk]

buhasebe programı olarak düşündüğümden buraya açtım.

 

[cemilk]

Hocam sana zahmet verdiğin kodu dosyaya ekleyebilirmisin.

 

[Orion1]

Hocam sana zahmet verdiğin kodu dosyaya ekleyebilirmisin.

Dosyanız ektedir.

 

[cemilk]

evren hocam küsürat ve tarih konusunu da düzeltebilirmisn.

 

[Orion1]

evren hocam küsürat ve tarih konusunu da düzeltebilirmisn.

Onların kodları nerede?

 

[cemilk]

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.

 

[Orion1]

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.

Binlik ayraçlı sayı formatı.:

TextBox18 = Format(Worksheets("TABLOM").Cells(i, 10).Value, "#,##0")

Tarih formatı:

TextBox26 = Format(Worksheets("TABLOM").Cells(i, 39).Value, "dd.mm.yyyy")

 

[cemilk]

Teşekkür ederim sana zahmet bir de bana rapor sayfasını yazdırmak için kod verirmisin.

 

[Orion1]

Teşekkür ederim sana zahmet bir de bana rapor sayfasını yazdırmak için kod verirmisin.

Rapor diye bir sayfa göremedim dosyanızda .İTE sayfasına yazdırma yaptırdım.Siz isterseniz değişitirin.

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 = ""

 

[cemilk]

Teşekkür ederim ben sonradan ekledim o sayfayı üstat. Sağol

 

[Orion1]

Teşekkür ederim ben sonradan ekledim o sayfayı üstat. Sağol

Rica ederim.
İyi bayramlar.

 

[cemilk]

Tamam hallettim

 

[Orion1]

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