şifresiz farklı kaydetme

[ynmcan]

Merhaba Arkadaşlar;

Ekteki örnek makro dosyası şifre ile açılıyor. (şifre: 123)

Aşağıdaki kod ile;

Makro içeren bu şifreli dosyayı "Farklı Kaydet" butonunu silip dosyayı "excel çalışma kitabı" olarak masa üstüne Farklı kayıt ediyor.

Benim yapmak istediğim, bu dosyayı farklı kayıt ederken açılış şifresinide kaldırsın. Farklı kaydedilen dosya açılırken şifre istemesin. ( Asıl makrolu dosyada bir değişiklik olmasın, açılış şifresi kalsın. )

Private Sub CommandButton1_Click()
ActiveSheet.Shapes.Range(Array("CommandButton1")).Select
    Selection.Delete
    ChDir "C:\Users\Yasar Can\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\Yasar Can\Desktop\Örnek Dosya.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ActiveSheet.Shapes.Range(Array("CommandButton1")).Delete
    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    ActiveWorkbook.SaveAs Filename:=Yol & "\Örnek Dosya.xlsx" _
    , FileFormat:=xlOpenXMLWorkbook, Password:="", CreateBackup:=False
    Application.Quit
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

[ynmcan]

Syn. Korhan AYHAN teşekkür ederim.
Kod istediğim gibi çalışıyor.