Kullanıcı Tanımlı Aralıkların Düzenlenmesine İzin Ver

[baydeniro]

Merhaba arkadaşlar. "Kullanıcı Tanımlı Aralıkların Düzenlenmesine İzin Ver" fonksiyonunda Aralık alanını hücreden belirleme olanağaı var mı ? Örnek kod şöyle :

Sub Makro1()

ActiveSheet.Protection.AllowEditRanges.Add Title:="Aralık1", Range:=Range([F1]), Password:="1"

End Sub
F1 hücresinde belirlenen alana göre tanımlama yapabilir miyiz ?

 

[hamitcan]

F1 hücresine A1:B1 şeklinde girip deneyiniz.

 

[baydeniro]

Teşekkürler sayın hamitcan. Denedim ancak olmadı. Makro o satırda hata veriyor.

 

[hamitcan]

Dosyanızı ekleyin, bir de bu şekilde bakalım.

 

[baydeniro]

Sayın hamitcan ilginize çok teşekkür ederim. Bu arada şöyle bir gelişme oldu. Aslında alanı hücreden alıyormuş. ancak aynı isimle değiştirme kayıtı (change) yapmıyor. Sorunun net tanımı bu. Örnek dosya ekte.

 

[hamitcan]

Bu satırı ekleyerek deneyin.

ActiveSheet.Protection.AllowEditRanges(1).Delete

 

[baydeniro]

Çok teşekkür ederim sayın hamitcan.

 

[comp_wolf]

Bu satırı ekleyerek deneyin.

ActiveSheet.Protection.AllowEditRanges(1).Delete

üstat kolay gelsin. bu konu ile ilgili bir soru sorabilir miyim? yine bu kodu kullanmak için.
ben şimdi sayfa koruması ile şifreliyorum belirli alanlarda değişiklik yapılmaması için.
J sutununa izin vermek istiyorum ama izin vereceğim satırlar
J4, J6, J8, .... J10002 e kadar bu satırlar kullanıma izin verilecek (Kullanıcıların Aralıkları Düzenlemesine İzin ver işlevi ile) diğerleri şifrelenecek.
acaba bunlar için nasıl yardımcı olabilirsiniz ???

 

[hamitcan]

Bu iş için koda gerek yok. Aşağıdaki yönergeleri takip etmeniz yeterli.

Tüm hücreleri seçin> Hücre Biçimlendir> Koruma>Kilitli tıkını kaldırın.
Hangi hücreleri kilitleyecekseniz o hücreleri seçin.
Hücre Biçimlendir> Koruma>Kilitli tıkını koyun.
Gözden Geçir tabından Sayfayı Koruyu seçin.

 

[comp_wolf]

Bu iş için koda gerek yok. Aşağıdaki yönergeleri takip etmeniz yeterli.

Tüm hücreleri seçin> Hücre Biçimlendir> Koruma>Kilitli tıkını kaldırın.
Hangi hücreleri kilitleyecekseniz o hücreleri seçin.
Hücre Biçimlendir> Koruma>Kilitli tıkını koyun.
Gözden Geçir tabından Sayfayı Koruyu seçin.

____________________________________________________
Sub BtnKilitle()
For x = 4 To 10002 Step 2
ActiveSheet.Range("J" & x).Locked = False
Next
MsgBox ("sadece çift hücrelerin kilitleri açıldı")
End Sub
____________________________________________________

üstat dediğin şekilde olmadı denedim ama başka bi form sitesinden bi arkadaş sağolsun bu kodu gönderdi.
ben bu form sitesinde 2 kere konu açtım ama cevap veren bile olması.
ama size çok teşekkür ederim ilginizden dolayı