(09/07/2019, 09:06)halily yazdı: hangi sayfa?

visual basic ekranında bu çalışma kitabı kısmına ilk açılışta sayfa1 e eğer olursa sayfa3 e de yoksa sayfa1 deki butonun içine ekledim onun ile olursa ona ?

(09/07/2019, 09:17)halily yazdı: siz mesaj'2 de gönderilen kodları, kodsuz sayfada denediniz mi?

evet üstat onları sizin eklediğiniz buton ile denedim oluyor ama kodların olduğu modüle sayda sayfa kısım içine alınca sıkıntı oldu.

(08/07/2019, 16:33)comp_wolf yazdı: '________________________SAYFA 1 KULLANIM ALANI KISITLAMA KODU ________________
If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect "123"
  With ActiveSheet
    .UsedRange.Locked = True
    .Range("B:J").Locked = False
    .EnableSelection = xlUnlockedCells
  End With
ActiveSheet.Protect "123"
'________________________SAYFA 1 KULLANIM ALANI KISITLAMA KODU BİTTİ________________

range sınıfının locked özelliği kurulamıyor hatası veriyor.
neden bu hatayı veriyor bunu aşabilirsek eğer diğer sayfalarda da aynı şekilde sınırlama yapmak istiyorum da ?

yukardaki kodda yer alan  .Range("B:J").Locked = False <== "B" sütunu birleşik hücrelerden oluşuyor hata B sütunundan kaynaklanıyor. birleşik hücrelerin kilidi nasıl açılır onu araştırıyorum

(09/07/2019, 13:22)halily yazdı: yukardaki kodda yer alan  .Range("B:J").Locked = False <== "B" sütunu birleşik hücrelerden oluşuyor hata B sütunundan kaynaklanıyor. birleşik hücrelerin kilidi nasıl açılır onu araştırıyorum

üstat günaydın, bi sonuca ulaşabildiniz mi acaba ?

birleştirilmiş hücreler için tüm aralığı seçmek gerekiyormuş)
mesela "j" sütunundakiler bağımsız olduğu için "range("J2")" demek yeterliyken
"B" sütunundaki çift hücreler alttaki tek hücreyle birleştiği için "range("B2:B3")" demek gerekiyormuş

With Sayfa1

If .ProtectContents = True Then .Unprotect "1453"

    For x = 4 To 10002 Step 2

        .Range("j" & x).Locked = False

        .Range("B" & x & ":B" & x + 1).Locked = False

    Next

   .Protect "1453"

End With

sayın @comp_wolf
önce sayfa koruması varsa kaldırılacak

If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect "Şifre"

_______________o0o______________
bütün alanları kilitlemek için gerekli kod:

sheets("SayfaAdı").Cells.Locked = True

_______________o0o______________
kullanılan alanları kilitlemek için gerekli kod:
Not: veri olan ilk hücre ile son hücre arasını

sheets("SayfaAdı").UsedRange.Locked  = True

_______________o0o______________
belirli bir alanın kilidini kaldırma

With Sheets("SayfaAdı")

    .Range("B5:Y20").Locked = False 'B5:Y20 arasında birleştirilmiş/merged hücreler yok

    .Range("B3").Locked = False 'tek Hücre

    .Range("B1:C2").Locked = False 'B1:C2 birleştirilmiş/merged hücre

    .Range("halil").Locked = False 'isimlendirilmiş bölge

End With

_______________o0o______________
belli bir bölge dışındaki hücrelerinin değişmesini engellemek için gerekli kod:
Not: sayfa koruması olmak zorunda değil, sayfa korumasız olsa da içerik korunur

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Target, Range("J:J")) Is Nothing Then

 Else

    Application.EnableEvents = False

    Application.Undo

    Application.EnableEvents = True

 End If

'diğer komutlar

End Sub

dilerim işinize yarar