Sayfayi Kİlİtleyİnce Bu Fonksİyon ÇaliŞmiyor

[mehteroglu1]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, [E:E) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Target.TextToColumns Destination:=Target.Offset(0, 30), DataType:=xlFixedWidth
deg1 = Evaluate("=PROPER(" & """" & Target.Offset(0, 30) & """" & ")")
deg2 = Evaluate("=PROPER(" & """" & Target.Offset(0, 31) & """" & ")")
deg3 = Evaluate("=UPPER(" & """" & Target.Offset(0, 32) & """" & ")")
If deg3 = "" Then deg2 = Evaluate("=UPPER(" & """" & Target.Offset(0, 31) & """" & ")")
Target = deg1 & " " & deg2 & " " & deg3
Range(Target.Offset(0, 30), Target.Offset(0, 32)).ClearContents
Application.EnableEvents = True
End Sub

HERKESE SAYGILARIMLA BU FONKSİYONU SAYFA 1 İN WORKSHEE BÖLÜMÜNE YAZIYORUM VE SAYFAYI KİLİTLİYORUM OLAN KİLİTTEN SONRA OLUYOR VE ÇALIŞMIYOR AMA E SUTUNUNU ÇOĞU YERİ NİN KİLİDİ AÇIK PROBLEMİ ÇÖZERSENİZ SEVİNİRİM SAYGILARIMLA

 

[Mahmut Kök]

makronun başında sayfa kilidini açtırıp, makro bitiminde sayfaya tekrar kilit koydurabilirsiniz. Örnekleri forumda mevcut.

 

[AS3434]

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
.Kodlarınız
.
.
.

ActiveSheet.Protect
End Sub

Kodlara mavi kısmı ilave edin.

 

[mehteroglu1]

Elİnİze SaĞlik

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
.Kodlarınız
.
.
.

ActiveSheet.Protect
End Sub

Kodlara mavi kısmı ilave edin.

TEŞEKKÜR EDERİM İŞE YARADI