Excelde sutun kitlemesi

[Paksoy]

Merhaba Arkadaşlar...
Sizden Yardım isteme konum excelde sutun kitlemesi nasıl oluyor ?
örnek üst sıradan A - B - C - D sütünlerinin C sütününü Kilitlemek istiyorum nasıl yapmam lazım bilen arkadaşların yardımlarını bekliyorum.
Herkeze İyi Çalışmalar Dileklerimle.

 

[Levent Menteşoğlu]

D sütunun seçin ve pencere-bölmeleri donduru tıklayın.

 

[Paksoy]

Sayın levent bey ilginiz ve alakanız için teşekkür ederim.
benim anlatmak istediğimi ben tam anlatamadım galiba ama bu göndermiş olduğunuz bilgide gayet işime yaradı ben sutun kitlemek demek kastimle yani o
D sutunun da yazan yazıların veya formüllerin başkası veya yanlışlıkla silinmesini istemiyorum bu işlemi nasıl yapabilirim D sutun gözükecek ama müdehale yapılamıyacak yardımlarınız için şimdiden teşekkürler.
Saygılarımla..............

 

[Levent Menteşoğlu]

Bu durumda sayfaya koruma koymanız gerekecektir. Araçlar-koruma-sayfayı koru

 

[Paksoy]

Sayın Levent bey
uygulama yaptım ama bütün sayfaya müdahele ettirmiyor benim yapmak istediğim o sayfa içinde bir sutunu korumaya almak.
teşekkürler.

 

[hamitcan]

1-Bütün sayfayı seçin, (Biçim-hücreler-koruma-kilitli) tıkını kaldırın
2-Korumak istediğiniz sütunu seçin (Biçim-hücreler-koruma-kilitli) tıkını işaretleyin.
3-Araçlar-koruma-sayfayı koruyu seçin

 

[mehmett]

Sütun adlarının en solunda ve satır numaralarının en üstünde (A'nın solunda 1'in üstünde) yer alan küçük kareyi tıklayarak tüm sayfayı seçili hale getirin. Menülerden Biçim, Hücreler, Koruma komutlarını verin. Gelen pencerede Kilitli onay kutusundaki onayı iptal edin.

Şimdi D sütun adını tıklayarak D sütununu tamamen seçin. Menülerden Biçim, Hücreler, Koruma komutlarını verin. Gelen pencerede Kilitli onay kutusunu onaylayın.

Son olarak, menülerden Araçlar, Koruma, Sayfayı Koru, Tamam komutlarını verin.

 

[Paksoy]

Tüm arkadaşlara teşekkür edrim.
iyi günler dilerim.

 

[osimdsgg]

arkadaşlar güzel bişey miş teşekkür ederim

 

[Seyit Tiken]

Bu kodu kendinize uyarlamaya çalışın. Belki bir fikir verir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cancel = True
If Intersect(ActiveCell, [D]) Is Nothing Then
ActiveSheet.Unprotect "1234"
[D1].Columns.Hidden = 0
Exit Sub
End If
[D1].Columns.Hidden = 1
ActiveSheet.Protect "1234"
End Sub