Bir excel sayfasında belirli sütunları veya belirli hücreleri kilitleyebilirmiyiz.

[ferhatgurbuz]

Hücredeki formülleri ve formüllerin olduğu hücreleir kilitlemek istiyorum.

 

[Ali]

Tüm sayfayı seçersin ve sağ tuş-Hücre biçimlendir-Koruma kısmından Kilit kısmındaki onayı kaldırıp tamam deyip çıkarsınız.Sonra yine tam sayfayı seçersiniz.CTRL+G tuşuna basarsınız-Özel-Formüller kısmını seçersiniz tamam deyip çıkarsınız sadece formül olan hücreleri seçmiş oldunuz.Şimdi
sağ tuş-Hücre biçimlendir-Koruma kısmından Kilit kısmını onaylayın ve Araçlar-Koruma-Sayfayı koru seçeneğinden bir şifre verip sayfayı koruyunuz.

 

[Seyit Tiken]

Ben alternatif sunuyorum. Formül bulunan hücrelerde imlece izin verilmiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then Target.Offset(1).Select: _
MsgBox "Hücrede Formül Var, İşlem Yapamazsınız": Exit Sub
End Sub

 

[ferhatgurbuz]

Sayın Seyit Tiken biraz daha açarmısınız bu kodu nereye yazacağım

 

[Seyit Tiken]

Sayın Seyit Tiken biraz daha açarmısınız bu kodu nereye yazacağım

Aktif Sayfa Sekmesini sağ tıklayın > Kod Görüntüle'yi tıklayın(yada Alt + F11 tıklayın) Sol üste yer alan ilgili sayfanın üstünü çift çıklayın. Sağ tarafta çıkan pencereye ilgili kodu kopyalayın > Çalışma sayfasına dönün ve formüllü bir hücreye giriş yaptıktan sonra sonucunu gözlemleyiniz.

 

[Mehmetcag]

Bu işlemi yapıp girdiğimde sürekli olarak bu hata mesajını veriyor ama hata mesajını kapatıp sayfaya geri dönemiyorum. ctrl+alt+delete yapıp programı oradan kapatmam gerekiyor.yardımcı olur musunuz?

Aktif Sayfa Sekmesini sağ tıklayın > Kod Görüntüle'yi tıklayın(yada Alt + F11 tıklayın) Sol üste yer alan ilgili sayfanın üstünü çift çıklayın. Sağ tarafta çıkan pencereye ilgili kodu kopyalayın > Çalışma sayfasına dönün ve formüllü bir hücreye giriş yaptıktan sonra sonucunu gözlemleyiniz.

 

[ferhatgurbuz]

evet kopyalamayı başardım ama uyarıdan kurtulamıyorum. Yani tamam diyorum kapanmıyor ve hiçbir şey yapamıyorum.

 

[abtani]

Ben alternatif sunuyorum. Formül bulunan hücrelerde imlece izin verilmiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then Target.Offset(1).Select: _
MsgBox "Hücrede Formül Var, İşlem Yapamazsınız": Exit Sub
End Sub

Sanırım bu çalışma bir sayfa için değilde içinde onlarca sayfa bulunan bir excel belgesi için geliştirilebilir.Bunun için bu kod nasıl düzenlenmeli.

 

[abtani]

evet kopyalamayı başardım ama uyarıdan kurtulamıyorum. Yani tamam diyorum kapanmıyor ve hiçbir şey yapamıyorum.

Sanırım bir yerlerde hata yapıyorsunuz,yani vermesi gereken hata dışında bir hata vermiyor.
Şimdi başka bir dosyada benimde başıma geldi,bende bir yerlerde yanlış yaptım herhalde...

 

[ferhatgurbuz]

Tekrar Tekrar denedim ama olmadı.Ve olmayacak galiba

 

[Ali]

Tüm sayfayı seçersin ve sağ tuş-Hücre biçimlendir-Koruma kısmından Kilit kısmındaki onayı kaldırıp tamam deyip çıkarsınız.Sonra yine tam sayfayı seçersiniz.CTRL+G tuşuna basarsınız-Özel-Formüller kısmını seçersiniz tamam deyip çıkarsınız sadece formül olan hücreleri seçmiş oldunuz.Şimdi
sağ tuş-Hücre biçimlendir-Koruma kısmından Kilit kısmını onaylayın ve Araçlar-Koruma-Sayfayı koru seçeneğinden bir şifre verip sayfayı koruyunuz.

Bunu yapmak çokmu zor?

 

[N.Ziya Hiçdurmaz]

yanıt

Ali bey bu zorluğu gidermek için önerinizi makroya bağlayalım.

Sub test()
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[Seyit Tiken]

Sorun çözülmemiş kanaatini getirerek; dosya ekliyorum. Renkli hücrelere giriş yapıp sonucu gözlemleyin.

 

[abtani]

Sayın Seyit Tiken ;
Kendime ait bazı dosyalara uyguladım,kapanmama gibi sorun çıkmıştı,neden olmuş olabilir.Ayrıca;
a)Formülde düzenleme gerekirse kodu silme dışında bir şey yapılabirmi?
b)Tüm sayfalarda kodun geçerli olabilmesi için nasıl bir düzenleme gerekir?

 

[Ali]

Sorun çözülmemiş kanaatini getirerek; dosya ekliyorum. Renkli hücrelere giriş yapıp sonucu gözlemleyin.

Bu durumda mouse ile alan seçemezsiniz.

 

[Seyit Tiken]

Kodu ThisWorkbook bölümüne kopyalayın.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveCell.Select
If Target.HasFormula Then Target.Offset(1).Select: _
MsgBox "Hücrede Formül Var, İşlem Yapamazsınız": Exit Sub
End Sub

Ali bey, formül silinmesin diye "ActiveCell.Select" kod satırı eklenmiş. Kodu test ederek gönderiyorum, bir engelle karşılaşmış değilim.

 

[Ali]

Target kullanmışsınız ActiveCell'i kullanmaya gerek yok.Formül silinmemesi için olsa olur,olmasada olur.

Sn Seyit Tiken, Mouse ile A1:B10 gibi bir aralık seçmeye çalıştığınızda bunu yapamazsınız, bunun için ActiveCell.Select satırını silmeniz gerekir.

 

[ferhatgurbuz]

Tüm sayfayı seçersin ve sağ tuş-Hücre biçimlendir-Koruma kısmından Kilit kısmındaki onayı kaldırıp tamam deyip çıkarsınız.Sonra yine tam sayfayı seçersiniz.CTRL+G tuşuna basarsınız-Özel-Formüller kısmını seçersiniz tamam deyip çıkarsınız sadece formül olan hücreleri seçmiş oldunuz.Şimdi
sağ tuş-Hücre biçimlendir-Koruma kısmından Kilit kısmını onaylayın ve Araçlar-Koruma-Sayfayı koru seçeneğinden bir şifre verip sayfayı koruyunuz.

Sayın Ali haklısınız bunu yapmak çok mu zor demiştiniz ben baya bir uğraştıktan sonra (CTRL+G tuşuna basarsınız-Özel-Formüller) zor buldum. teşekkür ederim.

 

[worldda]

arkadaşlar ;
ellerinize sağlık bu çok işime yaradı.
çok teşekkürler.

 

[SKAYA25]

arkadaşlar üzerine tıklandığında değilde herhangi bir tuşa basıldığında bu mesaj gelse kullanıcı açısından daha iyiolur ben komple bir sutunu formul olarak kullanıyorum formülün üzerinde yön tuşları ile geçmiyor.

şimdiden ilgilenen arkadaşlara kolaygelsin herkese selam [yeni üye]