Excel Formül Sorusu Sor

Bir Excel formülüne dair sorunuz varsa, bu alanı kullanarak bize iletin.

Excel Makro Sorusu Sor

Bir Excel VBA koduna dair sorunuz varsa, bu alanı kullanarak bize iletin.

Genel Excel Sorusu Sor

Excel'in ön sayfasındaki FORMÜL haricinde olan sorularınızı buradan sorabilirsiniz.

Soru Sayfayı Makro ile Kilitleme ve Gizleme

ERMAN.SAYINALP

Normal Üye

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.
 
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:
Görüntülemek için giriş yapmalısınız.
(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:
Görüntülemek için giriş yapmalısınız.
(3 satır)
 
@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.
 
@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.
 
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:
Görüntülemek için giriş yapmalısınız.
(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:
Görüntülemek için giriş yapmalısınız.
(3 satır)
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.
 
@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.
Ö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...
 
Şu kodu kullanın Sn. @ERMAN.SAYINALP .

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

VBA:
Görüntülemek için giriş yapmalısınız.
(15 satır)
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 ?
 
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.
 
@ERMAN.SAYINALP

Şu kodu kullanın.

VBA:
Görüntülemek için giriş yapmalısınız.
(17 satır)
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.
 
DMCA.com Protection Status
Konuyu başlatan
Normal Üye
Katılım
Konu Bilgi
Durum
Soru 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
11
Geri
Üst