yedek alma sadece değerler

[fkalelinet]

bir konu ve çözüm var ancak sormak istediğim. onlarca sayfadan oluşan bazıları gizli bazıları sayfa kilitli sayfalardan oluşan kitaı formülle olmadan o anki değerler ilekaydetmem mükünmü hani kopyala yapıştır sadece değerler dediğimiz gibi.
formüller ve bağlantılar gelir ise bağlantılı dosyalar bi nedenle ulaşılamaz ise aylık rapor dosyamı geriye dönük görmem mümkün olmuyor. bir nevi fotokopisini çekmiş gibi.

Private Sub CommandButton1_Click()
Dim Kdosya, Hdosya, Kyol, Hyol As String
ThisWorkbook.Save
Kyol = ThisWorkbook.Path & "\"
Kdosya = ThisWorkbook.Name
Hdosya = Replace(Kdosya, ".xlsm", "_") & Format(Now, "ddmmyyyyhhmm") & ".xlsm"
Hyol = "d:\"

ThisWorkbook.SaveCopyAs Hyol & Hdosya

End Sub

bu kodla hızlı bir şekilde yedekliyorum ancak tüm kitap ve sayfalar sadece değerler yani formülsüz bağlantısısz kaydedilebilirmi?

 

[Korhan Ayhan]

Böyle bir özellik yok.

Tüm sayfaları döngüye alıp tüm formüllü hücreler değere çevrilerek sonuca gidilebilir.

 

[fkalelinet]

onlarca sayfa var bazıları gizli bazıları kilitli. az önce bişey denedim. dosyada birden fazla dış bağlantı var diğer excel sayfalarına. bağlantıları kaldır dediğinde bağlantılar gidiyor sadece değerler kalıyor. buradan yola çıkarak bir makro ile tüm sayfaların korumalarını kaldır.-gizliler yine gizli kalsın- diyerek tüm veri bağlantıları düzenlede görünen tüm bağlantıları kes şeklinde bişey yapılabilir mi acaba. yoksa dediğiniz gibi tüm sayfalardaki korumalar kaldırılacak vs. tüm sayfalar deyip yeni kitap oluştur deyip tüm sayfaları kopyala yapıştır sadece değerler ve biçimler diye bir makro yazılamaz mı acaba?
biçim sorunları için ya tüm kitabım bir kopyasını alıp tüm sayfaları açıp tüm korumaları kaldırıp tüm içerikler için içerik sil yapıp kaydedip. sablon olarak kullanarak dediğniz gibi bir döngü oluşturmak gerekecek sanırım.

 

[Korhan Ayhan]

Eğer bütün formüller başka dosyaya olan bağlantılardan oluşuyorsa aşağıdaki kod işinize yarayacaktır.

Public Sub RemoveLinks()
Dim Link As Variant
For Each Link In ActiveWorkbook.LinkSources
MsgBox ("Link name is " & Link)
ActiveWorkbook.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks
Next
End Sub

 

[fkalelinet]

Sub KorumaKaldir()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect ("....")
Next
End Sub



Public Sub RemoveLinks()
Dim Link As Variant
For Each Link In ActiveWorkbook.LinkSources
MsgBox ("Link name is " & Link)
ActiveWorkbook.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks
Next
End Sub

Private Sub CommandButton1_Click()
Dim Kdosya, Hdosya, Kyol, Hyol As String
ThisWorkbook.Save
Kyol = ThisWorkbook.Path & "\"
Kdosya = ThisWorkbook.Name
Hdosya = Replace(Kdosya, ".xlsm", "_") & Format(Now, "ddmmyyyyhhmm") & ".xlsm"
Hyol = "d:\"

ThisWorkbook.SaveCopyAs Hyol & Hdosya

End Sub

Sub KorumaKoy()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect ("....")
Next
End Sub

koruma kaldır link kaldır farklı kaydet hallolacak sanırım. teşekkürler.
veri bağlantıları kalktı sadece değerler kaldı. teşekkürler