Soru makro olan sayfayı koruma yapamıyorum

Sayfa çoğaltmak için;
Ocak ayı sekmesinin üzerinde sağ tıklayın,
"Taşı veya Kopya" tıklayın,
Çıkan iletişim kutusunda, Dosya adını, (sona taşı) ve kopya yı tıklayın.
Sayfanın adını Mart yapın.
E2 Hücresindeki tarihin ayını 3 yapın.

Private Sub Worksheet_Activate()
kodunuzdaki k=1 to 1000
makronun uzun süre çalışmasını
dolayısıyla diğer işlemlerin çalışmasını engelliyor
1000 yerine 10 yazarak sayfaya girildiğinde dikkat amaçlı olabilir

ayrıca bu çalışma sayfası koduna
eklerseniz sayfa1 de ocak sayfasına geleceği için
makro aktif hale gelir

Sorun Çözülemedi

Aylara ait sayfalar aktif olunca çalışan "efekti" çalıştıran kod var, bu kod sayfa aktif olunca çalışıyor bunda bir sorun göremedim.
Bu kod çalışınca sayfada bazı işlemleri kilitliyor, bunu aşmak için, örnek dosyada,1000 yerine 10 kere çalışıyor.. Yanıp sönme bitince hücre koruma işlemini yapabilirsiniz. her sayfada kod olmasına gerek yok, Kodları ThisworkBook modülüne aldım. Yeni sayfa eklemek için, ana sayfadaki "Yeni Sayfa" düğmesi ile çalışan bir kod var.
Sayfa sekmeleri ana, ocak, şubat..... şeklinde sıralı olmalı