Yedeklenen Sayfanın korumalı olması

[mehmetkoca]

Değerli arkadaşlar ;

Excelde çalışma sayfasını ağda başka bir bilgisayara yedekleme yapıyorum.Yalnız yedeklediğim dosya üzerinde değişiklik yapılmaması gerekiyor.
Pdf olsa daha iyi olurdu ama Excel 2003 te bu özellik yok sanırım.
Yedeklediğim çalışma sayfasının korumalı olarak yedeklenmesi için nasıl bir kod kullanmam gerekiyor.Ayrıca yedeklediğim dosya adı ile tekrar yedekleme yapılamayıp uyarı vermesi gerekiyor.Bununla ilgili nasıl bir kod yazılabilir.

Yardımlarınız için teşekkürler.
Saygılarımla...

Sub Yedek_Al()
Dim Dosya_Yolu As String, Dosya_Adı As String

Application.ScreenUpdating = False
Sheets("BİLDİRİM").Select
Sheets("BİLDİRİM").Copy

Dosya_Adı = Range("L1").Value & " " & Range("AD2").Value & " " & Range("AD3").Value & ".xls"
ActiveWorkbook.SaveCopyAs Filename:="\\Satinalma\DEPO" & Application.PathSeparator & Dosya_Adı
ActiveWorkbook.Close 0
Sheets("BİLDİRİM").Select
Application.ScreenUpdating = True
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[hamitcan]

Böyle deneyin.

Sub Yedek_Al3()
    Dim Dosya_Yolu As String, Dosya_Adı As String
    Application.ScreenUpdating = False
    Sheets("BİLDİRİM").Select
    Sheets("BİLDİRİM").Copy
    Dosya_Adı = Range("L1").Value & " " & Range("AD2").Value & " " & Range("AD3").Value & ".xls"
    [COLOR=RED]ActiveWorkbook.SaveAs "\\Satinalma\DEPO" & Application.PathSeparator & Dosya_Adı, , , , True[/COLOR]
    ActiveWorkbook.Close 0
    Sheets("BİLDİRİM").Select
    Application.ScreenUpdating = True
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[mehmetkoca]

Üstad verdiğiniz kodu denedim.Ama sayfa koruması şeklinde olmuyor malesef.
Sayfayı yedekliyor , ama salt okunur şekilde açıyor.sonuçta farklı kaydedilip dosya içeriği değiştirilmiş oluyor.
Yani benim istediğim yedeklenen sayfanın korumalı olması,yani içeriğinin görünmesi ama değiştirilememesi şeklinde.

Ayrıca aynı şekilde tekrar yedeklendiğinde dosya var şeklinde uyarı veriyor ama üzerine yazmaya izin veriyor , bundada kesinlikle aynı isimle 2.yedeklemeye izin vermemesi gerekiyor.

İlgilendiğiniz için teşekkür ederim Üstad.

 

[halit3]

Değerli arkadaşlar ;

Excelde çalışma sayfasını ağda başka bir bilgisayara yedekleme yapıyorum.Yalnız yedeklediğim dosya üzerinde değişiklik yapılmaması gerekiyor.
Pdf olsa daha iyi olurdu ama Excel 2003 te bu özellik yok sanırım.
Yedeklediğim çalışma sayfasının korumalı olarak yedeklenmesi için nasıl bir kod kullanmam gerekiyor.Ayrıca yedeklediğim dosya adı ile tekrar yedekleme yapılamayıp uyarı vermesi gerekiyor.Bununla ilgili nasıl bir kod yazılabilir.

Yardımlarınız için teşekkürler.
Saygılarımla...

Bu kodu denermisiniz.

Sub Yedek_Al()
Dim Dosya_Yolu As String, Dosya_Adı As String, yol As String
Dosya_Adı = Range("L1").Value & " " & Range("AD2").Value & " " & Range("AD3").Value & ".xls"
yol = "[URL="file://\\Satinalma\DEPO"]\\Satinalma\DEPO[/URL]" & Application.PathSeparator & Dosya_Adı

If CreateObject("Scripting.FileSystemObject").FileExists(yol) = True Then
MsgBox "Bu isimde bir dosya var"
Else
Application.ScreenUpdating = False
Sheets("BİLDİRİM").Select
Sheets("BİLDİRİM").Copy
ActiveSheet.DrawingObjects.Delete
Worksheets(ActiveSheet.Name).Protect Password:="10", Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Password:="10", Structure:=True
ActiveWorkbook.SaveCopyAs Filename:=yol
ActiveWorkbook.Close False
Sheets("BİLDİRİM").Select
Application.ScreenUpdating = True
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End If
End Sub

 

[mehmetkoca]

Teşekkür ederim Üstad.Bu kod ile sorun çözülmüştür.Emeğinize yüreğinize sağlık.
Saygılarımla....

 

[halit3]

Teşekkür ederim Üstad.Bu kod ile sorun çözülmüştür.Emeğinize yüreğinize sağlık.
Saygılarımla....

İyi çalışmalar