Çalışma Sayfalarına Koruma Parolası Yazma

  • Konuyu başlatan Konuyu başlatan teyadih
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

teyadih

Kullanıcı
Katılım
14 Eki 2019
Mesajlar
857
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Merhaba arkadaşlar. Ekli dosyada giriş sayfasını açılış sayfası yapacak makro kullanıyorum. Genel ve Makro sayfasında ise A sütunu boş olan satırları gizleyen ve sayfa koruması yapan makro kullanıyorum. Genel ve Makro sayfası dışındakileri de sayfa koruması yapmak istiyorum. Diğer sayfalar için ayrı ayrı sayfa koruması makrosu yazmak yerine tüm çalışma kitabını sayfa koruması yapıp, her hangi bir sayfada düzeltme yapmak istediğimde şifre girip sayfa korumasını kaldıracak ve başka sayfaya geçtiğimde o sayfayı otomatik olarak sayfa koruması yapacak bir makroya ihtiyacım var. Umarım anlatabilmişimdir. Teşekkür ederim.
 
VBA Out of Memory Hatası Alma
VBA Out of Memory Hatası Alma
Formüllerin Bozulmasınının Önüne Geçme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
@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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(33 satır)
 
Oyla 0 Olumsuz oyla
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?
 
Oyla 0 Olumsuz oyla
@teyadih
....Activate kodunu silin.
Ardından 1 defaya mahsus olmak üzere, sayfaların tümü arasında gezinti yapın.
KİLİTLEME işlemi SAYFADAN AYRILMA ile gerçekleşiyor durumda.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt