AccessTr.neT
Hücrelere Odaklanmayı Engellemek İstiyorum ??? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Hücrelere Odaklanmayı Engellemek İstiyorum ??? (/konu-hucrelere-odaklanmayi-engellemek-istiyorum.html)

Sayfalar: 1 2 3

Hücrelere Odaklanmayı Engellemek İstiyorum ??? - comp_wolf - 08/07/2019

(08/07/2019, 14:12)halily yazdı: "L" sütunu dışındaki hücrelere odaklanmayı engellemek mi istiyorsunuz, tam olarak anlamadım?
bir de korumasız normal Excel sayfası için mi olacak?
bir de son olarak farklı sorular için lütfen yeni konu açın.

1 yeni konu açayım hemen pardon üstat Img-grin
2 korumalı Excel sayfası için "L" sütunu dışındaki hücrelere odaklanmayı engellemek istiyorum.
hepsi bu kadar.

Cvp: Hücrelere Odaklanmayı Engellemek İstiyorum ??? - berduş - 08/07/2019

buton kodu:
Private Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect "123"

   With ActiveSheet

    .UsedRange.Locked = True

    .Range("L:L").Locked = False

    .EnableSelection = xlUnlockedCells

   End With

ActiveSheet.Protect "123"

End Sub
dilerim işinize yarar

RE: Hücrelere Odaklanmayı Engellemek İstiyorum ??? - comp_wolf - 08/07/2019

(08/07/2019, 14:58)halily yazdı: buton kodu:
Kod:
Private Sub CommandButton1_Click()
If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect "123"
   With ActiveSheet
    .UsedRange.Locked = True
    .Range("L:L").Locked = False
    .EnableSelection = xlUnlockedCells
   End With
ActiveSheet.Protect "123"
End Sub
dilerim işinize yarar

üstat teşekkür ederim. buton olunca çalışıyor ama ben aşağıdaki gibi yapmak istiyorum ?

Private Sub Workbook_Open()
    TimerValue = "00:00:01"

'________________________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 ?
nasıl yardımcı olabilirsiniz.

Cvp: Hücrelere Odaklanmayı Engellemek İstiyorum ??? - berduş - 08/07/2019

sayfanızın özelliğiyle yada arka planda kullandığınız kodlarla ilgili bir sorundan kaynaklanıyor olabilir.
yeni bir sayfa oluşturup orda deneyin eğer orada sorunsuz çalışıyorsa sorun mevcut sayfanızdaki kodlardan kaynaklanıyordur
örnek dosyayı ekleyip -eğer önceki soruda eklediğiniz dosya ise sadece- hangi sayfada olduğunu yazarsanız çözmeye çalışırım

Re: Hücrelere Odaklanmayı Engellemek İstiyorum ??? - comp_wolf - 09/07/2019

(08/07/2019, 17:55)halily yazdı: sayfanızın özelliğiyle yada arka planda kullandığınız kodlarla ilgili bir sorundan kaynaklanıyor olabilir.
yeni bir  sayfa oluşturup orda deneyin eğer orada sorunsuz çalışıyorsa sorun mevcut sayfanızdaki kodlardan kaynaklanıyordur
örnek dosyayı ekleyip -eğer önceki soruda eklediğiniz dosya ise sadece- hangi sayfada olduğunu yazarsanız çözmeye çalışırım

üstat dosyayı ekledim. kodları kullanıma kapattım siz bakarsınız ona.

Cvp: Hücrelere Odaklanmayı Engellemek İstiyorum ??? - berduş - 09/07/2019

hangi sayfa?
siz mesaj'2 de gönderilen kodları, kodsuz sayfada denediniz mi?