kod neden çalışmıyor

[euphrates55]

Sub msj()

MsgBox "alttaki açıklamaları okuyunuz", vbExclamation, "notlar"

End Sub

bu çalışma kitabı sayfası kısmına yazıyorum kodu ama excel dosyasını açınca uyarı vermiyor. yanlış mı acaba.

 

[Ömer BARAN]

Forum'un ARAMA işlevini (sayfaların üst orta kısmında) daha sık kullanmanızı öneriyorum.

Cevabınız aşağıdaki konu sayfasında.
excel açılış mesajı
.

 

[euphrates55]

emin olun ki okudum, bir çok örnek buldum, uyguladım ama olmuyor. sorun kodda değil de başka birşeyde sanırım. çözemedim.

 

[Ömer BARAN]

Kod'un uygulandığı belgeyi MAKRO İÇEREN belge olarak kaydedin ve belgeyi kapatıp tekrar açın.
Ekteki belgede işlem uygulandı, belgeyi ilk kez açarken MAKROLARI ETKİNLEŞTİRin.
Belgeye buraya tıklayarak erişebilirsiniz.
.

 

[euphrates55]

hepsini yaptım. en iyisi dosyayı göndermek sanırım. ben de sorun var, dosyada mı bakabilir misiniz.
https://drive.google.com/open?id=0B0yXS8RObFusQTFadmRfRjQxUEU

 

[Ömer BARAN]

Verdiğiniz bağlantıdan dosyayı indiremedim.
Şahsi e-posta adresimi vereyim oraya gönderin, bakayım.
baran.omer@gmail.com
.

 

[euphrates55]

Verdiğiniz bağlantıdan dosyayı indiremedim.
Şahsi e-posta adresimi vereyim oraya gönderin, bakayım.
baran.omer@gmail.com
.

ilginiz için sağolun. gönderdim mailinize

 

[Ömer BARAN]

E-postanız GMAIL tarafından SPAM klasörüne taşındığından geç fark ettim.

Dosyanız açıkken ALT+F11'e basarak VBA ekranını açın,
Sol tarafta BuÇalışmaKitabı (ThisWorkbook) kısmında mevcut msj adlı kod'u silip bunun yerine aşağıdakini yapıştırın.
.

[B]Private Sub Workbook_Open()[/B]
    MsgBox "Bugün - " & Date & Chr(10) & _
           "Saat -  " & Format(Now, "hh:mm") & Chr(10) & _
        "Hoşgeldiniz", vbInformation, "MERHABA"
[B]End Sub[/B]

 

[euphrates55]

evet oldu. teşekkürler. bu arada başka sorun daha çıktı sayfaya koruma yaptığımda;
Sub AUTO_OPEN()
Set s = Sheets("hesap")
'Hücrenin yanıp sönmesi
s.Range("b4:c4").Interior.ColorIndex = 1

son satır hata veriyor. koruma kalkınca sıkıntı olmuyor. size zahmet bunu da cevaplar mısınız.

 

[euphrates55]

onu da hallettim. başına sonuna kodlar ekledim, fakat şimdi de yanıp sönerken excel de yanıp sönüyor sanki.
kod şu şekilde

Sub AUTO_OPEN()
Worksheets("hesap").Unprotect "0082"
Set s = Sheets("hesap")
'Hücrenin yanıp sönmesi
s.Range("b4:c4").Interior.ColorIndex = 1
Application.OnTime Now + TimeValue("00:00:01"), "yanson"
s.Range("b4:c4").Interior.ColorIndex = 2
Worksheets("hesap").Protect "0082"
End Sub
Sub yanson()
Worksheets("hesap").Unprotect "0082"
Set s = Sheets("hesap")
s.Range("b4:c4").Interior.ColorIndex = 1
Application.OnTime Now + TimeValue("00:00:01"), "Auto_open"
Worksheets("hesap").Protect "0082"
End Sub