makronun çalışmasını sınırlandırma

[mpinal]

herhangi bir makronun örneğin 5 defa çalışıp birdaha çalışmamasını istiyorum.Böyle birşey mümkünmü?her çalıştığında ekranda bu makro 5 defa kullanılabilir. bu makro 4 defa kullanılabilir. bu makro 3 defa kullanılabilir.....bu makro artık kullanılamaz şeklinde mesaj vermesini ve bir daha makronun çalışmamasını isityorum mümkünmüdür? teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle uygulayıp denermisiniz.

Option Explicit
Public Say As Byte
 
Sub Auto_Open()
    Say = 5
End Sub
 
Sub TEST()
    If Say = 0 Then MsgBox "Bu makro artık çalışmaz !", vbCritical: Exit Sub
    Say = Say - 1
    MsgBox "Makro çalıştı."
    MsgBox "Bu makro " & Say & " defa daha kullanılabilir."
End Sub

 

[mpinal]

Korhan bey,

İlginize ve emeğinize teşekkür ederim.Makro istediğim gibi olmuş ancak ben bunu bir makronun içine yerleştirmek istiyorum.Çalışacak makronun sonuna mı eklemeliyim bu makroyu ? Yani makronun içinde bu makro nasıl çalışacak birde ondan bahsederseniz sevinirim.Bu arada amacım; yaptığım bir programın demosunu yapmaya çalışıyorum.Ticari değil sadece kısıtlamalar deniyorum bu konuda daha değişik fikirleriniz varsa dinlemeye hazırım.iyi çalışmalar.