Sayfayı Kilitlemek İçin Şifre Koyma

[SilinenUye8231]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba, makro kaydet ile sayfaya şifre koymak istiyorum,
ama şifreleri yazmıyor, aşağıdaki koda şifre yazmaya çalışıyorum, bu seferde kod hata veriyor.

Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

Aşağdaki gibi yapınca sayfa korunuyor ama şifreli olmuyor.

Bu kodu görmek için giriş yapmanız gerekmektedir (3 satır). Giriş Yap

Yardımcı olur musunuz?

 

[SilinenUye8231]

Aşağıdaki kod ile sayfayı kilitlediğim de Otomatik filtre kullan'ın kutucuğu sürekli çentiği kendiliğinden hep kalkıyor.
G-H-I sütununda bulunan filtrelerde açılmıyor.

Sub ŞifreKoy1()
ActiveSheet.Protect 123
End Sub

Bunun içinde aşağıdaki kodu kullanıyorum bu seferde sayfayı kilitleme şifresiz oluyor.

Sub ŞifreKoy()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub

 

[SilinenUye8231]

Bu işlemi elle şifre yazarak ve Otomatik filtre kullan kutucuğunu da işaretlediğim de oluyor.
Filtrelerde çalışıyor.

Ancak kod ile yapamıyorum.

 

[Ömer BARAN]

Şöyle deneyin Sayın @SilinenUye8231

Bu kodu görmek için giriş yapmanız gerekmektedir (9 satır). Giriş Yap

 

[SilinenUye8231]

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum.

Kodu dosyama uyguladım, sayfadaki Gözden Geçir sekmesi altındaki Sayfayı Koru kısmına tıkladığımda şifre istemeden sayfa korumayı kaldırıyor.

 

[Ömer BARAN]

KORUMA UYGULA kodunda, With ... End with arasındaki iki satırın yerlerini değiştirin.

 

[Ömer BARAN]

Kodu güncelledim, sayfayı yenileyerek tekrar kontrol ediniz.

 

[SilinenUye8231]

Sayın Ömer Bey, tam istediğim gibi oldu, ellerinize sağlık çok teşekkür ediyorum.