şifresiz sheet yedekleme!...

[Amaxx]

selam arkadaşlar, sitede bazı örnekler forumlar bulmama rağmen yapamadım kafam karıştı. Yaptığım excel çalışmasındaki sheet4 ü (K12 hücre + bugün tarihi) ismiyle O:\01 UYGULAMALAR\" klasörüne şifresiz ve formülsüz kopyalamak istiyorum. bunu nasıl yaparım.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları kullanabilirsiniz

Const yol As String = "O:\01 UYGULAMALAR\"
Sub Sheet_Kaydet()
Dim wb As Workbook
ThisWorkbook.Sheets("Sheet4").Copy
Set wb = ActiveWorkbook
Application.DisplayAlerts = False
With wb
    With .ActiveSheet
        .Unprotect "Şifrem" [COLOR=green]'Siz şifrenizi yazınız
[/COLOR]        .Cells.Copy
        .Range("A1").PasteSpecial Paste:=xlPasteValues
    End With
    Application.DisplayAlerts = False
    .SaveAs yol & .ActiveSheet.Range("K12").Text & "-" & Date & ".xls"
    .Close 0
    Application.DisplayAlerts = True
End With
Set wb = Nothing
End Sub

 

[Amaxx]

Ferhat bey eliniz sağlık, çok teşekkürler...