Çözüldü Çalışma Sayfalarına Koruma Parolası Yazma

@teyadih

İsteğinizi TAM olarak anlamamış olabilirim.

teyadih' Alıntı:

her hangi bir sayfada düzeltme yapmak istediğimde şifre girip sayfa korumasını kaldıracak

Genişletmek için tıklayın ...

Diyorsanız ki;
-- KURAL her sayfanın KİLİTLİ olması
-- Her sayfaya birer tane DÜĞME ekleyip, bu düğmeye tıklama sonucunda ŞİFRE sorulması, şifre doğru ise sayfa korumasının kaldırılması ve sayfaya veri girişinin serbest hale gelmesi,
-- Başka sayfaya geçildiğinde ise, ayrıldığınız sayfaya şifreli sayfa korumasının otomatik olarak uygulanması,

şeklinde istiyorsanız;

-- Sayfalardan birine METİN KUTUSU/ŞEKİL/DÜĞME gibi bir nesne ekleyin,
-- GENEL ve KONTROL sayfasının kod bölümünde ve MODULE1'de yer alan tüm kodları silin,
-- ThisWorkbook (BuÇalışmaKitabı) bölümüne aşağıdaki kodları yapıştırın,
-- Sayfaya eklediğiniz NESNEye fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Karşınıza gelecek küçük ekranda SIFRE_AC makrosunun adını seçerek işlemi onaylayın,
-- Sayfaya eklediğiniz NESNEyi kopyalayın ve diğer sayfaların tümüne yapıştırın.

Teşekkür ederim sayın Baran.
Evet kural her sayfanın kilitli olması.
Örnek dosyada bazı sayfalarda gizleme ve kilitleme var bazılarında ise yok. Hiç kilitleme olmayan çalışma kitaplarını düşünerek gizleme bilgilerinin içinde olmadığı sadece sayfaları kilitleyecek bir makro olabilir mi?

Teşekkür ederim sayın Baran kod tamam elinize sağlık