Sayfayı Makro ile Kilitleme ve Gizleme

ERMAN.SAYINALP

Kullanıcı
Katılım
3 Eki 2017
Mesajlar
108
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

Excel Çalışma Kitabında, içinde değerli bilgiler olan bir sayfayı Makro ile Kilitlemek ve Gizlemek (şifre olmaksızın görünür olamaz) istiyorum.

Excel'in bu konuda verdiği imkan olan;

Giriş > Biçim > Gizle Göster > Sayfayı Gizle (Sayfayı Göster)

Yönteminden daha farklı ve daha güçlü bir Gizleme yöntemi ( Makro ile ) için değerli yardımlarınızı rica ederim.

Saygılarımla.
 
hakki83
Boş Hücrelerdeki Açıklamaları Bulma
Run Time Error 9 Hatasını Çözme
Tarihe göre sırala Oylamaya göre sırala
Aşağıdaki kodu bir butona ekleyiniz. Tıkladığınızda sizden şifre isteyecektir şifreyi girerseniz gizlemek istediğiniz sayfa görünür hale gelecektir.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(9 satır)

Aşağıdaki kodu ise gizlemek istediğiniz sayfaya sağ tıklayıp "Kod Görüntüle" diyip açılan ekrana yapıştırın. Sayfadan çıktığınız anda gizlenecek.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)
 
Oyla 0 Olumsuz oyla
@ERMAN.SAYINALP , @Sahin01

-- Excel belgesinde en 1 adet sayfanın özelliğinin .... .Visible = True olması gerekeceğinden;
işlem için sayfa adetinin kontrol edilmesinde yarar var.

-- Sayfanın Visible özelliğiyle ilgili 3 seçenek mevcut GÖRÜNÜR/GİZLİ/ÇOK GİZLİ.
Bu seçeneklerin rakamsal karşılıkları ise aynı sırayla -1/0/2 şeklinde ve
Sheets(XXXX).Visible = -1 veya Sheets(XXXX).Visible = 0 veya Sheets(XXXX).Visible = 2 şeklinde kullanılır.

-- Gizleme sonrasında, alt tarafta sayfa adlarını gördüğünüz alanda fareyle sağ tıklayıp
GÖSTER seçeneğini seçtiğinizde göreceğiniz gizli sayfa(lar) listesinde,
gizlenen sayfanın adının görünmesini de istemiyorsanız verilen kodlardaki .... .Visible = False veya .... .Visible = 0 yerine
..... .Visible = xlSheetVeriyHidden veya ..... .Visible = 2 olarak kullanılması gerekir.

-- Önerilen/kullanılan kodlarda ..... .Select ibaresinin kullanılmasını önermiyorum.
Zira bir sayfa gizlendiğinde diğer sayfalardan biri (duruma göre gizlenen sayfanın sağındaki/solundaki/kalan tek sayfa)
kendiliğinden aktif sayfa haline gelecektir.
 
Oyla 0 Olumsuz oyla
@ERMAN.SAYINALP , @Sahin01

-- Excel belgesinde en 1 adet sayfanın özelliğinin .... .Visible = True olması gerekeceğinden;
işlem için sayfa adetinin kontrol edilmesinde yarar var.

-- Sayfanın Visible özelliğiyle ilgili 3 seçenek mevcut GÖRÜNÜR/GİZLİ/ÇOK GİZLİ.
Bu seçeneklerin rakamsal karşılıkları ise aynı sırayla -1/0/2 şeklinde ve
Sheets(XXXX).Visible = -1 veya Sheets(XXXX).Visible = 0 veya Sheets(XXXX).Visible = 2 şeklinde kullanılır.

-- Gizleme sonrasında, alt tarafta sayfa adlarını gördüğünüz alanda fareyle sağ tıklayıp
GÖSTER seçeneğini seçtiğinizde göreceğiniz gizli sayfa(lar) listesinde,
gizlenen sayfanın adının görünmesini de istemiyorsanız verilen kodlardaki .... .Visible = False veya .... .Visible = 0 yerine
..... .Visible = xlSheetVeriyHidden veya ..... .Visible = 2 olarak kullanılması gerekir.

-- Önerilen/kullanılan kodlarda ..... .Select ibaresinin kullanılmasını önermiyorum.
Zira bir sayfa gizlendiğinde diğer sayfalardan biri (duruma göre gizlenen sayfanın sağındaki/solundaki/kalan tek sayfa)
kendiliğinden aktif sayfa haline gelecektir.
 
Oyla 0 Olumsuz oyla
Sahin01' Alıntı:
Aşağıdaki kodu bir butona ekleyiniz. Tıkladığınızda sizden şifre isteyecektir şifreyi girerseniz gizlemek istediğiniz sayfa görünür hale gelecektir.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(9 satır)

Aşağıdaki kodu ise gizlemek istediğiniz sayfaya sağ tıklayıp "Kod Görüntüle" diyip açılan ekrana yapıştırın. Sayfadan çıktığınız anda gizlenecek.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(3 satır)
Genişletmek için tıklayın ...
Tekrar merhaba,

Kodlama işe yaramadı, zira sayfanın gizlenmesi için değil sayfanın görünür olması için ŞİFRE'ye ihtiyaç var.

* Giriş > Biçim > Gizle Göster > Sayfayı Gizle (Sayfayı Göster) ile yada
* Sayfa Adı > Göster > "İlgili Sayfa"

yöntemiyle rahatlıkla ve şifresiz Sayfaya ulaşılabiliyor.

Oysa benim istediğim;

Makro Komutuyla, Sayfa Gizlenir olacak, GÖSTER İletişim Kutusunda görülmeyecek, Makro Komutuyla Şifre isteyerek Görünür olacak.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@ERMAN.SAYINALP , @Sahin01

-- Excel belgesinde en 1 adet sayfanın özelliğinin .... .Visible = True olması gerekeceğinden;
işlem için sayfa adetinin kontrol edilmesinde yarar var.

-- Sayfanın Visible özelliğiyle ilgili 3 seçenek mevcut GÖRÜNÜR/GİZLİ/ÇOK GİZLİ.
Bu seçeneklerin rakamsal karşılıkları ise aynı sırayla -1/0/2 şeklinde ve
Sheets(XXXX).Visible = -1 veya Sheets(XXXX).Visible = 0 veya Sheets(XXXX).Visible = 2 şeklinde kullanılır.

-- Gizleme sonrasında, alt tarafta sayfa adlarını gördüğünüz alanda fareyle sağ tıklayıp
GÖSTER seçeneğini seçtiğinizde göreceğiniz gizli sayfa(lar) listesinde,
gizlenen sayfanın adının görünmesini de istemiyorsanız verilen kodlardaki .... .Visible = False veya .... .Visible = 0 yerine
..... .Visible = xlSheetVeriyHidden veya ..... .Visible = 2 olarak kullanılması gerekir.

-- Önerilen/kullanılan kodlarda ..... .Select ibaresinin kullanılmasını önermiyorum.
Zira bir sayfa gizlendiğinde diğer sayfalardan biri (duruma göre gizlenen sayfanın sağındaki/solundaki/kalan tek sayfa)
kendiliğinden aktif sayfa haline gelecektir.
Genişletmek için tıklayın ...
Ömer bey merhaba,

Esasen MAKRO Komutlarına ulaşılabilen;

Geliştirici > Makrolar > Makro (iletişim kutusu) > "İlgili" Makro >Çalıştır

Yöntemiyle, istenilen Makro kolayca çalıştırılabiliyor, Örneğin benim tüm sayfaları tek seferde Şifreli Kilitleyebilen / Şifreli Açabilen Makro'larım var ama yukarıdaki silsile ile Şifreleme/Kilitleme de anlamsızlaşıyor.

Aslolan, Makro (iletişim kutusu)'nun PASİF hale getirilmesi ve Makrolara ulaşılamaz olması (Ulaşılabilirlik sadece VBA Sayfasından olabilmeli)

Buna ilişkin bir çözümünüz olabilir mi ?

Selamlar...
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Şu kodu kullanın Sn. @ERMAN.SAYINALP .

VBA kısmını ayrıca şifrelemelisiniz. Yoksa her türlü bilgiye erişilebilir.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(15 satır)
Genişletmek için tıklayın ...
Değerli Üstad,

BUDUR !

Teşekkürler ederim.

Makro İletişim Kutusunun yada en azından Çalıştır Düğmesinin PASİF edilmesine ilişkin bir yanıtınız da olabilir mi ?
 
Oyla 0 Olumsuz oyla
Sn.Ömer BARAN,

Kullandığım aşağıdaki KOD'u;

Sub Kilit ( )

For a = 1 To Sheets.Count
Sheets(a).Unprotect Password:="123" = True
Next
End Sub

Sayfa Gizleme / (Şifre şartı ile) Gösterme KOD'lamanız mantığında, ŞİFRE isteyecek şekilde çalışmasını sağlayacak bir KOD için yardımlarınızı rica edebilir miyim ?

Selamlar.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@ERMAN.SAYINALP

Şu kodu kullanın.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(17 satır)
Genişletmek için tıklayın ...
Sn. BARAN

Zahmetinize teşekkür ederim, lakin bir kısım sorun oluştu. Şöyle ki;

* Tetikleme için BUTON oluştursam da, Ctrl+Shift+(Harf) Kısayol oluştursam da 1 kez Sayfaları Kilitliyor, 1 kez de açıyor. Sondan 1 önceki sayfada işlemini tamamlıyor.
* Diğer sayfalardaki diğer işlemler için oluşturulmuş MAKRO'ları kullanmışsam eğer, dönüp Kilitleme işlemi için atadığım Buton yada Kısayol artık hata veriyor.

1663866486766.webp


Bu komutu ÇİFT amaçlı (kilitle/kilt aç) yerine, sadece KİLİT AÇ için Revize etsek daha iyi olur sanırım. Zira, tüm sayfaları Kilitlemek için

Sub Kilit ( )

For a = 1 To Sheets.Count
Sheets(a).Pprotect Password:="123" = True
Next
End Sub

kullanıyorum.

Selamlar.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt