Derleme Hatası Şifreli Makro Olduğu İçin mi bu hatayı Veriyor

[nurluali]

İyi akşamlar diliyorum. Kodun silinmesini önlemek içi şifreleyince bu hatayı veriyor. Kod Aşağıdaki gibi
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [B4:B374,A1:AG6,A34:AG38,A63:AG68,A94:AG99,A125:AG130,A155:AG160,A186:AG191,A217:AG222,A248:AG253,A279:AG284,A310:AG315,A341:AG346]) Is Nothing Then
'If sifre = False Then
'c = InputBox("Şifre yazınız. (şifre : 123 )", "Onay şifresi")
If c <> 123 Then
Application.Undo
Else
sifre = True
End If
End If
End If
Application.EnableEvents = True
End Sub

 

[TayfunKaya]

Hata yazısını direk yazar mısınız buraya? Ve evet makro işlem yapan sayfamı bende korumaya alınca makro atanan tuşlar debug verdi. Üstelik makronun işlem yapacağı alanlar da kilitli değildi.

 

[nurluali]

İlginize teşekkür ediyorum, yaptığım çalışmayı ekte gönderiyorum bir okul için öğretmenlerin nöbet günleri planlaması olarak tasarladım. az önce denedim herhangi bir hata almadım. fakat daha önce gönderdiğim diyalog penceresindeki hata ile birkaç kez karşılaştım. Çalışmam ekte çalışmayı kullanmaya değer bulan herkese açıktır. Teşekkür ediyorum

 

[TayfunKaya]

altın üye deilim eki göremiyorum lütfen upload sitelerine yükleyin

 

[nurluali]

Mail adresinize gönderebilirim

 

[TayfunKaya]

Forum kuralına uygun mudur bilmiyorum, Tayfunlogistic@hotmail.com mail bu. Uygun değilse editörler lütfen uyarsın.

 

[nurluali]

gönderdim