Seçilen hücrelerin korunması ve formüllerinin görülmemesi

[1Al2Ver]

Merhabalar,

Sayfa1'deki A1:EZ150 arası hücrelerden (24000 adet) , seçilen hücreleri (250 kadar) korumak ve formüllerini gizlemek istemekteyim,

Veri girişine izin verilmek istenen hücreler ardışık olmadığından ve 24000 içinde 250'yi tespit etmek, bana göre daha kolay gibi görülmektedir,

Bir macro ile, bir çalışma sayfası içinde, veri girişi yapılmasına izin verilecek 250 kadar hücreyi koruma dışı bırakabilirmiyiz, olabiliyor ise bunun için gereken macroyu rica ediyorum, teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayabilirsiniz.

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

 

[ftekin]

EKteki örneği inceleyiniz.
Ayrıca bu tarz ihtiyaçlarınızda Sekreterya makrosu dediğimiz "Araçlar\Makro\Yeni Makro Kaydet" bölümünden yapmak istediklerinizi sırasıyla yapıp son olarak kaydetmeyi durdurup yapılmasını istediklerinizin Makro olarak kodunu elde edebilirsiniz.Şu an benim yaptığımda odur.Sadece bu kodlara bir kaç IF'li kontrol ilave ettim o kadar.

Kolay gelsin.

 

[1Al2Ver]

EKteki örneği inceleyiniz.
Ayrıca bu tarz ihtiyaçlarınızda Sekreterya makrosu dediğimiz "Araçlar\Makro\Yeni Makro Kaydet" bölümünden yapmak istediklerinizi sırasıyla yapıp son olarak kaydetmeyi durdurup yapılmasını istediklerinizin Makro olarak kodunu elde edebilirsiniz.Şu an benim yaptığımda odur.Sadece bu kodlara bir kaç IF'li kontrol ilave ettim o kadar.

Kolay gelsin.

Sayın ftekin, örnek dosya ve açıklamalar için teşekkür ederim, saygılarımla.

 

[1Al2Ver]

Merhaba,

Aşağıdaki kodları bir butona bağlayabilirsiniz.

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

Sayın Necdet Yeşertener, kodlar için teşekkür ederim, saygılarımla.

 

[1Al2Ver]

Merhaba,

Aşağıdaki kodları bir butona bağlayabilirsiniz.

Sub FormulKilitleGizle()
Range("A1:EZ150").Locked = False
Range("A1:EZ150").Select
Selection.SpecialCells(xlCellTypeFormulas, [COLOR="Red"]23[/COLOR]).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
[[COLOR="red"]A1[/COLOR]].Select
End Sub

Sayın Necdet Yeşertener, tekrar merhaba,

Zaman bulduğunuzda kodların işlevi açıklarsanız, kodun mantığını öğrenme adına çok memnun olacağım,

İşlem sırasına bakarak birşeyler kavradım ama kırmızı işaretlediğim karakterlerin işlevini çözemedim,

Teşekkür ederim, saygılarımla.

 

[Necdet]

Merhaba,

23 ün anlamı anlamak için excelde şu işleri yapmak gerek (Seçilen bölgede formüllü hücreleri seçmek).

• Seçilen Alanı Belirleyiniz
• F5,
• Özel
• Formüller
• Tamam

[A1].select --> Seçimin A1 hücresinde dursun diye yazılmış bir kod. Bir anlamdada Seçilen bölgeden kurtulmasını istedim.

 

[1Al2Ver]

Merhaba,

23 ün anlamı anlamak için excelde şu işleri yapmak gerek (Seçilen bölgede formüllü hücreleri seçmek).

• Seçilen Alanı Belirleyiniz
• F5,
• Özel
• Formüller
• Tamam

[A1].select --> Seçimin A1 hücresinde dursun diye yazılmış bir kod. Bir anlamdada Seçilen bölgeden kurtulmasını istedim.

Nezaketiniz için teşekkür ederim, saygılarımla.

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir

 

[1Al2Ver]

konu başlığına ait bulabildiğim dosya ektedir

Sayın cenderus, teşekkür ederim.