zamana bağlı olarak formüllerin veriye dönüşmesi

[mybluecat]

Sub kontrol()
islemzamani = DateValue(Range("AL3"))
zaman = Date
If zaman > islemzamani Then
ActiveSheet.Unprotect "3452"
Sheets(1).Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Protect "3452"
End If
End Sub

Merhabalar,

Yukarıda ki kodu yaklaşık olarak 2 yıldır kullanıyorum. Forum katılımcıları sayesinde oluşturuldu ve başarılı bir şekilde korumalı bir sayfadaki formülleri kaldırıp verileri sabit hale getiriyor.
Ancak şu an da aynı kodu A sekmesi ve B sekmesi olarak iki sekme içeren bir excel sayfasında kullanmak istediğimde problem yaşıyorum. Excel sayfası açılmıyor veya kod hata veriyor. Sebebini kendimce araştırdığımda kodun tanımlı olduğu A sekmesi açılış anında aktif değil ise yani diğer B sekmesi aktif ise Excel sayfası açılmıyor veya kod hata veriyor.
Sorunu tam anlatabilmek için biraz uzun yazdım.
Bu problemi ortadan kaldırmak için kod içindeki "ActiveSheet" yerine birinci sekme,sayfa 1 veya kodun tanımlı olduğu sekmenin adı (Örneğin : A) tanımlanarak excel sayfası açıldığında hangi sekme aktif olursa olsun kodun çalışması sağlanabilir mi?
Yardımlarınızı bekliyorum.

Teşekkür ederim....

 

[Ömer BARAN]

Merhaba.
Moduldeki kodu aşağıdakiyle değiştirerek deneyiniz.

Sub kontrol()
If Date > DateValue(Sheets("Sayfa1").[AL3]) Then
    Sheets("Sayfa1").Unprotect "3452"
        Sheets("Sayfa1").UsedRange = Sheets("Sayfa1").UsedRange.Value
    Sheets("Sayfa1").Protect "3452"
End If
End Sub

 

[mybluecat]

Teşekkür ederim Ömer Baran. Yoğunluktan geç yanıt verdim Özür dilerim. Verdiğiniz kod problemi çözdü.