Soru Sayfa Korumalı iken Macro Devreye girmiyor

[Porser]

Merhabe
Sayfaya bu kodu yazıyorum Çalışıyor.
1. Sorun: Sayfa açıldığında direkt kod çalışmıyor Sayfa 2 ye geçip sonra tekrar sayfa 1 e geçtiğimde çalışıyor. Ben İstiyorum ki Excel açıldığında direkt çalışsın
_Open denedim olmadı

2 : Sorun: Sayfanın belirli Hücrelerini korumak istiyorum ama Macro olduğu içi hata veriyor koruyor fakat makro hatası alıyorum

Private Sub Worksheet_Activate()
For k = 1 To 10
Cells(3, 14).Interior.ColorIndex = 4
basla = Timer
bekle = 1
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(3, 14).Interior.ColorIndex = xlNone
basla = Timer
bekle = 1
While Timer < basla + bekle
DoEvents '2 saniye bekle
Wend
Next k
End Sub

 

[Muzaffer Ali]

Merhaba.

BuÇalışmaKitabı adlı kod sayfasına aşağıdaki kodu kopyalayın.

Private Sub Workbook_Open()
    Worksheets("Sayfa1").Activate ' Buraya kendi dosyanızdaki sayfa adını yazın.
    Kodlar
End Sub

Sayfanın kod sayfasına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Activate()
    Kodlar
End Sub

Yeni bir Modüle ekleyin aşağıdaki kodu kopyalayın.

Sub Kodlar()
    ActiveSheet.Unprotect "Şifre"
    For k = 1 To 10
        Cells(3, 14).Interior.ColorIndex = 4
        basla = Timer
        bekle = 1
        While Timer < basla + bekle
            DoEvents '1 saniye bekle
        Wend
        Cells(3, 14).Interior.ColorIndex = xlNone
        basla = Timer
        bekle = 1
        While Timer < basla + bekle
            DoEvents '2 saniye bekle
        Wend
    Next k
    ActiveSheet.Protect "Şifre"
End Sub

 

[Porser]

Bende Yanıp sönem efektinden hariç bir makro daha var zoom yapıyor açılır pencereye. Sizin gönderdiğinizi denedim hata alıyorum acaba onun içinmi yapıyor
Bendeki dosya yı paylaşıyorum

Şunu yapmaya çalışıyorum.

Açılır pencereye zoom yapsın ( Makro çalışıyor )
Yanıp Sönme uyarı efekti olsun ( çalışıyor ama illa tetiklemem gerekli. Direkt aktif olsun istiyorum)
ve Sayfada belirlediğim yerleri korumak istiyorum fakat makro izin vermiyor koruyor ama makro çalışmıyor.

Tek sayfada işi çözebilirsem 12 sayfa çogaltacağım

Dosya Linki

İndir KitapMMM

Dosyayı indir KitapMMM

dosya.co

 

[Muzaffer Ali]

Sayfa koruması yapıyorsunuz ama hiçbir hücre kilitli değil.
Neden sayfa koruması yapıyorsunuz anlayamadım.
Her neyse dosyanız ekte kontrol ediniz.
Bir sayfa daha ekleyerek deneme yaptım sorunsuz çalışıyor.

KitapMMM.xlsm dosyasını indir - download

KitapMMM.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Porser]

Teşekkür ederim
Çünkü koruma yaptığımda makro hata veriyodu.
Şimdi korumak istiyorum ama her taraf kilitli

ve sayfaları çoğaltacagım oda kilitli

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[Porser]

Sorun Şu ki İşin içinden çıkamadım
Koruma koymuşsuznu 123 ama bunu nasıl çözecegim de sayfaları coğaltacağımda kilitlemeden önce korunacak yerleri belirleyeceğim

 

[Muzaffer Ali]

Kodlar 10 kere çalışacak şekilde yazılmış. Bekleyin kodlar çalışmasını bitirdikten sonra yapabilirsiniz.