VBA Şifrelemede özellik ekleme

[mavi674]

Selam
makro ile sayfa kitleme yapıyorum ancak
istediğim 2 özellik de olmasını istiyorum ama bunu yapamadım
1-KİLİTİ AÇILMIŞ HÜCRELERİ SEÇ
2-OTOMATİK FLİTRE KULLAN
özelliğinin de aktif olmasını istiyorum


Sub kilitle()
Sheets("GİRİŞ").Protect Password:="1234"
1-
2-
End Sub

Teşekkürlerr....

 

[Muzaffer Ali]

Merhaba.

    Sheets("GİRİŞ").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

Kilitli hücreleri de seçmek isterseniz aşağıdaki satırı da ekleyin.

    Sheets("GİRİŞ").EnableSelection = xlUnlockedCells

 

[mavi674]

Çok teşekkürler
ellerinize sağlık çok güzel çalışıyor...