macro ile hücre kilitleme ve açma?

[abcd_efe]

merhaba arkadaşlar
macro ile herhangi bir hücreyi kilitleyip açma nasıl olabilir
mesela bir butona tıkladığımda b6 hücresi macro ile kilitli hale gelecek ve hemen ardından yine açılacak
şimdiden teşekkür ederim

 

[Kemal Demir]

Sub sifrekoy()
Sheets("ahmet").Protect Password:="123456"
End Sub

Sub sifreiptal()
Sheets("ahmet").Unprotect Password:="123456"
End Sub

 

[Kemal Demir]

Bardon soruyu tam okumadım
Kod Sayfaya sifre koyar .
Cok cok Üzgünüm.Verdiğim Cevap Yanıltmasın

 

[mehmett]

Sn abcd_efe

Ekteki dosyada bir örnek var, inceleyin.

 

[abcd_efe]

arkadaşlar uğraşlarınız için çok teşekkür ederim.
iyi çalışmalar