Sayfa Gözüksün Ama Seçilemesin !!

[baydeniro]

Merhaba arkadaşlar. Bir excel dosyası içindeki belirli bazı sayfalar gizlenmesin, ama seçilmesin veya parola ile seçilsin !!! Bu mümkün mü ?

 

[uzmanamele]

merhaba
seçilmesinden kastınız nedir? üzerinde işlem yapılamasın mı, taşınamasın mı, kopyalanamasın mı, silinemesin mi?

 

[baydeniro]

Merhaba uzmanamele. taşınamasın, kopyalanamasın, silinemesin de olabilir. Yani altta gözüksünler ama tıklayınca o sayfa seçilemesin veya sadece tek bir hücresi seçilebilsin !!

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu kendinize uyarlayın...

İlgili Sayfanın kod penceresine;

Private Sub Worksheet_Activate()
MsgBox "Bu sayfa Salt okunurdur, değişiklik yapamazsınız..."
Sheets("Sayfa2").Select
End Sub

 

[baydeniro]

Sayın Ayhan Ercan ilginize çok teşekkür ederim. Söz konusu sayfalarda Makro ile işlem yapılıyor. Ancak ben bu sayfaların seçilememesini tercih ediyorum. Veya parola ile seçilebilsin !!!

 

[Ayhan Ercan]

Tekrar Merhaba

Şifrenin "excel" olduğunu varsayalım;

Private Sub Worksheet_Activate()
sifre = InputBox("Şifrenizi giriniz...")
If sifre <> "excel" Then
Sheets("Sayfa2").Select
End If
End Sub

 

[baydeniro]

Sayın Ayhan Ercan, ilginiz için çok teşekkür ederim.

 

[Ayhan Ercan]

Sayın Ayhan Ercan, ilginiz için çok teşekkür ederim.

Rica ederim.
İyi Çalışmalar... k::

 

[baydeniro]

Merhaba. Şöyle bir kod olur mu ?

Sheets("FILTRE").Select
Worksheet.Activate = True

 

[Ayhan Ercan]

Merhaba. Şöyle bir kod olur mu ?

Sheets("FILTRE").Select
Worksheet.Activate = True

Merhaba,

Böyle bir kodu neden düşündünüz?

"FILTRE" isimli sayfayı seçtiğinizde zaten O sayfaya ait "Worksheet_Activate()" prosedürünü aktif etmiş olacaksınız.

"FILTRE" isimli sayfanın kod penceresine o prosedürü yazdığınızda böyle veya buna benzer bir koda ihtiyaç duymayacaksınız...

 

[baydeniro]

Teşekkür ederim sayın Ayhan Ercan. Sağlıcakla kalın.