Belgeyi Makrosuz kaydetmek?

[prtkl]

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.

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

 

[Haluk]

Bir modül ekleyin ve aşağıdakileri, modülün içine yapıştırın...

Sub AutoClose()
    If ThisDocument.Path <> "" Then
        Set VBComps = ThisDocument.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