Farklı kaydet'de Macroları kaydetmesin..

[cocoa35]

Arkadaşlar;Aşağıdaki kod'lar ile çalışma kitabıfarklı kaydediliyor, benim isteğim çalışma kitabındaki macrolar hariç kaydedilsin , bu mümkünmü aşağıdaki kod'lar macrolar hariç kayded şekilde nasıl düzenlenebilir..
Sub Enregistre_Sous2()
Réponse = MsgBox("Dosyanızı Farklı Kaydetmek İstiyormusunuz ?", vbYesNo)
If Réponse = vbYes Then

Dim nom As String
Do While nom = ""
'Répète l'instruction tant qu'aucun nom est donné
nom = InputBox("Lütfen Farklı Dosya Adı Giriniz !" & Chr(13) & "Exemple: Rapport")
Loop

ChDrive "c"
ChDir "c:\" 'Indiquez le répertoire
ActiveWorkbook.SaveAs Filename:=(nom)
Application.Dialogs(xlDialogSaveAs).Show
'pour afficher la boîte Enregistrer sous
End If
End Sub

 

[Ömer]

Merhaba,

Linki inceleyiniz.

Makroları silerek farklı kaydetmek

.

 

[Murat OSMA]

Sn. Erman Sekitmez Bey'in bu kodunu öneririm;

Sub Deneme()
ThisWorkbook.SaveAs Environ("USERPROFILE") & "\DESKTOP\EVN_TEST.XLS"
        Set VBProj = ThisWorkbook.VBProject
        For Each VBComp In VBProj.VBComponents
            If VBComp.Type = 100 Then
                Set CodeMod = VBComp.CodeModule
                With CodeMod
                    .DeleteLines 1, .CountOfLines
                End With
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp
End Sub

 

[mancubus]

Tools/References: Microsoft Visual Basic for Applications Extensibility... işaretlenmelidir.

Sub Makrosuz_Kaydet()

Dim wb As Workbook
Dim nom As String
Dim cevap

On Error GoTo hata

cevap = MsgBox("Dosyanızı Farklı Kaydetmek İstiyor musunuz?", vbYesNo)
If cevap = vbYes Then
    Do While nom = ""
        nom = InputBox("Lütfen Farklı Dosya Adı Giriniz!")
    Loop
    ChDrive "H"
    ChDir "H:\"
    ActiveWorkbook.SaveAs Filename:=(nom)
    Application.Dialogs(xlDialogSaveAs).Show
End If

'http://www.cpearson.com/excel/vbe.aspx
'Tools/References: Microsoft Visual Basic for Applications Extensibility...
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule

Set VBProj = ActiveWorkbook.VBProject
For Each VBComp In VBProj.VBComponents
    If VBComp.Type = vbext_ct_Document Then
        Set CodeMod = VBComp.CodeModule
        With CodeMod
            .DeleteLines 1, .CountOfLines
        End With
    Else
        VBProj.VBComponents.Remove VBComp
    End If
Next VBComp
ActiveWorkbook.Save
Exit Sub

hata:
MsgBox Err.Description, vbExclamation, "HATA"

End Sub

 

[halit3]

Alternatif linkler

http://www.excel.web.tr/f48/makrolary-silerek-farkly-kaydetmek-t112600.html

http://www.excel.web.tr/f133/klasor-ve-dosya-olu-turma-secenekleri-t68040.html

 

[uzmanamele]

Merhaba

Excel 2007 için en basiti; farklı kaydet, dosya türü .xlsx

 

[cocoa35]

Çok teşekkür ederim arkadaşlar tüm öneriler işimi gördü..Aklınıza sağlık..