makro + sayfa korumasi

[dennisf06]

merhaba

asagidaki kodlari sayfada koruma varken nasil sorunsuz calistirabilirim. kodlar (A1 hücresine 7+3 yazarsaniz A1 de 10, B1 de ikinci rakam olan 3 gösteriyor) seklinde diger hücreler icin uyarlanmistir. bazen hücreye 6+4 gibi bir örnek yazdigim zaman öylece takilip kaliyor. dosyayi acip kapayinca tekrar normale dönüyor.veya kodlarin sorunsuz calismasi icin yapmam gereken bir ayarlama var mi acaba ? ilginiz icin tesekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
Dim Bul As Integer
If Intersect(Target, [E:E,H:H,I:I,J:J,K:K,Y:Y,AD:AD,AE:AE,AF:AF,AG:AG]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Bul = InStr(1, Target, "+")
If Bul = 0 Then
Target.Offset(0, 50) = ""
Else
Target.Offset(0, 50) = Mid(Target, Bul + 1, Len(Target) - Bul + 1)
Target = "=" & Target
End If
Application.EnableEvents = True
son:
End Sub

 

[aliakgul]

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.UnProtect "şifre"
...
kodlar
...
ActiveSheet.Protect "şifre"
End Sub

Şeklinde düzenleyerek dener misin?

 

[dennisf06]

sifre dediginiz yerlere sayfa koruma sifresini yazmam gerekiyor degil mi ?

 

[aliakgul]

evet.....................

 

[aliakgul]

Private Sub Worksheet_Change(ByVal Target As Range)
Sayfa1.UnProtect "şifre"
...
kodlar
...
Sayfa1.Protect "şifre"
End Sub

Şeklinde de olabilir. Sayfa1 ifadesini kendi sayfa numaranıza göre uyarlayın.
Sayfa1.UnProtect "şifre" satırı sayfa korumasını kaldırır.
Koruması kaldırılmış olan sayfaya Kodlar uygulanır
Sayfa1.Protect "şifre" satırı ile sayfa korumaya alınır.

 

[dennisf06]

tesekkür ederim Aliakgul bey simdilik sorunsuz calisiyor. saglicakla kalin. saygilar.