Şifreye bağlı veri girişi

[asiye_konya]

Değerli arkadaşlar. aşağıdaki formülde göreceğiniz üzere bazı aralıktaki hücrelere veri girişini şifreye bağlı yaptım. Ancak, Örnek AZ33:BZ33 aralığının yanısıra birkaç aralığı daha eklemek istiyorum. ama olmuyor aralık eklemek için aralıkları nasıl belirtmem lazım yardım edin lütfen.


Private Sub Worksheet_Change(ByVal Target As Range)
'B ve H SÜTUNLARINI ŞİFRELEME
Application.EnableEvents = False
If Not Intersect(Target, [AZ33:BZ33]) Is Nothing Then
If sor = False Then
i = InputBox("Bu alandaki değişikliği yapmaya yetkili değilsiniz... Yetkili iseniz Lütfen İdari İşler ile irtibata geçiniz...!!!")
If i <> 571632 Then
Application.Undo
Else
sor = True
End If: End If: End If
Application.EnableEvents = True
End Sub

 

[Husgvarna]

Merhaba.
Aşağıdaki kırmızı bölümler "," ile ekleyin veya değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
'B ve H SÜTUNLARINI ŞİFRELEME
Application.EnableEvents = False
If Not Intersect(Target, Range("AZ33:BZ33,[COLOR="Red"]A33:B33,C10:D20[/COLOR]")) Is Nothing Then
If sor = False Then