Merhaba arkadaşlar,
Ufak tefek kodlar hariç bir çoğuna yabancıyım. Sizlerin hazırladığı örnekleri inceleyerek ve hazır kodları kullanarak bir proje hazırlıyorum ve neredeyse sona geldim. Eksikleri de, basit sorularla sizi yormayacak şekilde tamamlamaya çalışıyorum. Umarım kızmıyorsunuzdur. Eğer rahatsızlık veriyorsam affola.
Şu anki sıkıntım. Belgenin macrosuz olarak kaydedilmesiyle ilgili. Usurform ile işim bitince üzerindeki farklı kaydet butonuna basıyorum ve belgeyi kaydediyorum ancak kaydedilen dosyayı açtığımda macrolarda haliyle devreye giriyor. İnternetten üzerindeki macroları silerek belgeyi kaydeden bir kod yumağı buldum ama excel için hazırlanış. Bunu worde göre düzenlerseniz yada farklı bir şekilde nasıl yapabileceğimin yolunu gösterirseniz çok sevinirim.
İyi çalışmalar.
Ufak tefek kodlar hariç bir çoğuna yabancıyım. Sizlerin hazırladığı örnekleri inceleyerek ve hazır kodları kullanarak bir proje hazırlıyorum ve neredeyse sona geldim. Eksikleri de, basit sorularla sizi yormayacak şekilde tamamlamaya çalışıyorum. Umarım kızmıyorsunuzdur. Eğer rahatsızlık veriyorsam affola.
Şu anki sıkıntım. Belgenin macrosuz olarak kaydedilmesiyle ilgili. Usurform ile işim bitince üzerindeki farklı kaydet butonuna basıyorum ve belgeyi kaydediyorum ancak kaydedilen dosyayı açtığımda macrolarda haliyle devreye giriyor. İnternetten üzerindeki macroları silerek belgeyi kaydeden bir kod yumağı buldum ama excel için hazırlanış. Bunu worde göre düzenlerseniz yada farklı bir şekilde nasıl yapabileceğimin yolunu gösterirseniz çok sevinirim.
İyi çalışmalar.
Kod:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Path <> "" And SaveAsUI Then
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
Set VBComps = Nothing
End If
End Sub