userform kaydet ,yazdır, ön izleme sorunu

[samed32]

1-yaptıgım calışmada yazdır, önizleme, temizle,kaydet butonları ekleyip kod larını yazamadım forumdaki örnekleri baktım ama kendi calışmama uyarlayamadım bi bakarmısınız...

2- çalımayı .exe nasıl yaparız

3-makroları etkinleştir uyarısını engelleme yolu varmı (güvenlik ayarı dışında tabiii...)


teşekkürler...

 

[samed32]

yardım edecek yokmu

 

[Levent Menteşoğlu]

1-yaptıgım calışmada yazdır, önizleme, temizle,kaydet butonları ekleyip kod larını yazamadım forumdaki örnekleri baktım ama kendi calışmama uyarlayamadım bi bakarmısınız...

yazdır için,

sheets("sayfa1").printout

özinleme için,

Me.Hide
Sheets("sayfa1").PrintPreview
Me.Show

kaydet için,

Set s1 = Sheets("sayfa1")
s1.[b10] = TextBox1
s1.[b11] = TextBox4
.
.

Temizle için,

For a = 1 To Controls.Count - 1
If TypeName(Controls(a)) = "TextBox" Then Controls(a) = ""
Next

2- çalımayı .exe nasıl yaparız

Bunun için özel programlar var diye biliyorum, ancak hiç kulanmadım. Bence uğraşmaya değmez.

3-makroları etkinleştir uyarısını engelleme yolu varmı (güvenlik ayarı dışında tabiii...)

Hayır.

 

[Zeki Gürsoy]

2- çalımayı .exe nasıl yaparız

3-makroları etkinleştir uyarısını engelleme yolu varmı (güvenlik ayarı dışında tabiii...)


teşekkürler...

Dosyanızı .exe yapamazsınız ama dosya görünmeden exe tarzında çalıştırmanız mümkün.

http://www.excel.web.tr/showthread.php?t=36592

Ayrıca başlıktaki örnek VBScript ile açıldığı için makro uyarısının da önüne geçiyor.