Sadece ilk açılışta çalışan makro

[acolkesen1]

Merhaba arkadaşlar. Bir makronun dosya adı sabit kaldığı sürece, dosyanın ilk açılışında bir defa çalıştırılması mümkün müdür? Dosya adı değiştiğinde yine bir defaya mahsus olmak üzere ilk açılışta bir kez çalışacak. Yani bir nevii kurulum diyebiliriz.İlgilenen arkadaşlara teşekkür ederim..

 

[Orion1]

Aşağıdaki kodu boş bir modüle kopyalayınız.

Sub Auto_Open()
If Sheets("Sayfa1").Range("A1").Value <> ThisWorkbook.Name Then
    MsgBox "Makro 1 kere çalıştı."
    Sheets("Sayfa1").Range("A1").Value = ThisWorkbook.Name
End If
End Sub

 

[acolkesen1]

Değerli Evren Gizlen, ilginize çok teşekkür ederim.Kendi kodlarımı sizinkilerin içine yerleştirdim...Kodlarınız gerçekten çok işime yarıyor.Sizinle nasıl helalleşiriz bilmem..
Bir sorum daha olacak bu konuda, ikinci defa çalıştırıldığında bir uyarı mesajı verdirebilir miyiz?

 

[ceyrek]

Sub Auto_Open()
If Sheets("Sayfa1").Range("A1").Value <> ThisWorkbook.Name Then
    MsgBox "Makro 1 kere &#231;al&#305;&#351;t&#305;."
    Sheets("Sayfa1").Range("A1").Value = ThisWorkbook.Name
[COLOR="Red"]Else
    MsgBox "Makro daha &#246;nce &#231;al&#305;&#351;t&#305;r&#305;ld&#305;!"[/COLOR]
End If
End Sub

 

[acolkesen1]

Değerli ceyrek, ilginize çok teşekkür ederim. İyi günler dileklerimle sağlıcakla kalın..