koruma sorunu

[mutluedenercan]

tabloda formül olan stunlar korunsun diye sayfa koruması yaptım...

bilgi girişi olan B ve C stunlardaki kilidi kaldırdım....

böylece B C hariç diğer stunlara müdahale olamıyacak ( ama o stunlarda formüllle
hasaplamalar yapılıyor)

Run - time error 1004 veriyor...... acaba neden

acaba korumalı stunlar formülle otomatik değer girişi yaptığı içinmi hata veriyor..

çözüm nedir ?

( B C stunları hariç diğer stunlarda ,formüller olduğu için, silme ve değişme olmuycak ama formülde çalışabilecek )

yardım edermisihz

 

[systran]

örneğinizi görmeden söylenecek sözler afaki kalır.

 

[mutluedenercan]

örneği nasıl yükliyeceğimi bilmiyorum....

formül olan stunları korumanın bir yolu lağzım

 

[systran]

formül olan sütunları korumak çok basit ancak sizin belgeyi incelemek gerekir. hata nedir, sıkıntı nerden kaynaklı onu bulmak için.
dosyanızıda lütfen Google Drive a yükleyin, diğer paylaşım sitelerine değil.

 

[mutluedenercan]

https://drive.google.com/folderview?id=0B2ySNM8DK9oMNU52Uzl4VHhUeW8&usp=sharing



inşallah doğru yüklemişimdir

 

[systran]

sayfanız korumalı olduğu için korumalı hücrelere değer yazmaya çalıştığınızda hata veriyor.
önce korumayı kaldırıp, işlemler bittikten sonra tekrar aktif edince sorun çözüldü.
eğer sayfa korumasını parolalı yaparsanız
Sayfa1.Unprotect ("123") 'korumayı kaldırır.
Sayfa1.Protect ("123") 'korumayı devreye sokar.
şeklinde kullanınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row < 3 Then Exit Sub
[COLOR="Red"][B]    Sayfa1.Unprotect [/B][/COLOR]
    Application.ScreenUpdating = False
    
    With Cells
        .RowHeight = 12.75
        .Font.Size = 12
    End With
    
    With Range("A" & Target.Row & ":Y" & Target.Row)
        .RowHeight = 30
        .Font.Size = 22
    End With
    
    Application.ScreenUpdating = True
    [COLOR="red"][B]Sayfa1.Protect[/B][/COLOR]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B3:B65500]) Is Nothing Then Exit Sub
    [COLOR="red"][B]Sayfa1.Unprotect[/B][/COLOR]
    With Target
        .Offset(0, 1).ClearContents
        If .Value = "" Then Exit Sub
        .Offset(0, 4) = Date
    End With
    [COLOR="red"][B]Sayfa1.Protect[/B][/COLOR]
End Sub

 

[mutluedenercan]

oldu hocam çok sağolun

peki hocam, tıklayınca büyüyorya aynı zamanda tıklanan yerin arka plan rengini nasıl değiştirirm