Dosya şifreleme makrosunu düzenleyemiyorum

[isarican]

Sub Makro1()
'
' Makro1 Makro
' Makro Agent_ tarafından 30/04/2009 tarihinde kaydedildi.
'

'
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Agent\Desktop\Kitap1.xls", FileFormat:=xlNormal _
        , Password:="1", WriteResPassword:="1", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

Makroyu çalıştırdığımda ilgili dosyayı şifrelemesini istiyorum.... Yapıyorum ancak busefer masaüstüne kitap1.xls dosyası oluşturuyor. Bu işlemi iptal etsin. Sadece şifreleme yapsın yeterli...

 

[Muzaffer Ali]

saveas save olmalı

Sub Makro1()

ActiveWorkbook.Save Filename:= _
"C:\Documents and Settings\Agent\Desktop\Kitap1.xls", FileFormat:=xlNormal _
, Password:="1", WriteResPassword:="1", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

 

[fedeal]

Calışma kitabını şifrelemek için alttaki kodu kullanabilirsiniz

ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="1"

sayaları şifrelemek için

Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="12345"
Next sht

sizin kodunuz farklı kaydet kodu zannedersem.

 

[isarican]

Calışma kitabını şifrelemek için alttaki kodu kullanabilirsiniz

ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="1"

sayaları şifrelemek için

Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="12345"
Next sht

sizin kodunuz farklı kaydet kodu zannedersem.

bu kodu kullandım. Fakat olmadı

 

[fedeal]

ekteki dosyayı inceleyin,iyi çalışmalar.