Sayfayı Kilitlemek için Şifre Koyma

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

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.

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.

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

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

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