sütunları şifreleme

[limanC34]

Selam Arkadaşlar
Dosyada B ve H sütunlarını arasını şifrelemede hata veriyor.Çözemedim.Yardım ederseniz sevinirim.
Teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

'HÜCREYE BOŞLUK VEREREK VEYA NOKTALAMA İLE YAZAMA
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Left(Target.Value, 1) = " " Or Left(Target.Value, 1) = "." Then
Target.Value = Empty
cancel = True
Target.Select
MsgBox "Yazdığınız Veride Boşluk Veya Nokta olamaz..!!", vbCritical
Exit Sub
End If
hata:
'B ve H SÜTUNLARINI ŞİFRELEME
Application.EnableEvents = False
If Not Intersect(Target, [B:H]) Is Nothing Then
If sor = False Then
i = InputBox("DEĞİŞİKLİK YAPMAYA YETKİLİ İSEN ŞİFREYİ YAZ BAKALIM...!!!")
If i <> 123 Then
Application.Undo
Else
sor = True
End If: End If: End If
Application.EnableEvents = True
End Sub

 

[limanC34]

Sayın N.Ziya Hiçdurmaz
Mükemmel çözümünüz için çok teşekkürler.
Saygılarımla.