Eklenen menüyü aktif yada inaktif yapmak

[unur]

Arkadaşlar
Aşağıdaki kodları, bir butonla daha önce işlem yapıldığını ve ikinci defa kodların çalıştırılmasını engellemek için kullanıyordum.
Aynı mantıkla yardımın hemen yanına eklenmiş menü bulunuyor bunun alt menüsünde Verileri Sil menüsü var.
Ona atanmış kodları bir kez çalıştırdığımda çeşitli işlemler yapıyor en sonunda A1 hücresine S.NU yazıyor.
Eğer A1 hücresinde S.NU yazıyorsa verileri sil menüsünü inaktif yapabilirmiyiz.

Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("M.VERİLER").Range("A1") = "S.NU" Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = "S.NU" Then
MenuBars(xlWorksheet).Menus(10).Enabled = 0
Else
MenuBars(xlWorksheet).Menus(10).Enabled = 1
End If
End Sub

 

[unur]

Seyit Bey uyguladım ancak herhangi bir değişiklik göremedim.Kodlara tekrar bakarmısınız?

Teşekkürler.

 

[Seyit Tiken]

 

[unur]

Seyit Emekleriniz için teşekkürler,
Biraz benim anlatımımdan kaynaklı olabilir.Bu yeni menünün altında 2 tane açılan menü var. Bahse konu menüden onlardan birisi.
Sabah sabah aklıma geldi, başka bir yöntem olarak da; eğer sayfa2 nin A1 hücresinde S.NU varsa daha önce işlem yaptınız diye mesaj verip herhangi bir işlem yapmasın, eğer S.NU yazmıyorsa kodların çalışmasını sağlayan if döngüsünü nasıl yaparız.
İkisinden biri artık hangisinin cevabı daha kolaysa yardımcı olursanız sevinirim.
Teşekkürler