Msgbox Macrosunu çalıştırmak.

[Kenan Yaz]

If Application. = "KİTAP1" Then
Application.ScreenUpdating = False
Application.Visible = False
MsgBox "PROGRAMA HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"" & vbCrLf & vbCrLf & _
"BUGÜN" & Space(2) & ":" & Space(4) & Date & Space(4) & Format(Day(Date), "dddd") & Space(5) & "SAAT" & Space(2) & ":" & Space(4) & Time & vbCrLf & vbCrLf & _
"" & vbCrLf & vbCrLf & _
"LÜTFEN KAYDA BAŞLAMADAN ÖNCE DOSYAYI FARKLI KAYDEDİN." & vbCrLf & vbCrLf & _
"FARKLI KAYDETMİŞSENİZ BU UYARIYI DİKKATE ALMAYINIZ." & vbCrLf & vbCrLf & _
" ", vbInformation, "DENEME"
Else

ANAFORM.Show
End If

End Sub

Makro çalıştığında dosya ismi "kitap1" ise yukarıdaki şekilde uyarı versin. Eğer dosya ismi farklı ise uyarı vermeden form açılsin istiyorum. Formülde düzenleme yapabilir misiniz? saygılar.

 

[halit3]

If Application. = "KİTAP1" Then
Application.ScreenUpdating = False
Application.Visible = False
MsgBox "PROGRAMA HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"" & vbCrLf & vbCrLf & _
"BUGÜN" & Space(2) & ":" & Space(4) & Date & Space(4) & Format(Day(Date), "dddd") & Space(5) & "SAAT" & Space(2) & ":" & Space(4) & Time & vbCrLf & vbCrLf & _
"" & vbCrLf & vbCrLf & _
"LÜTFEN KAYDA BAŞLAMADAN ÖNCE DOSYAYI FARKLI KAYDEDİN." & vbCrLf & vbCrLf & _
"FARKLI KAYDETMİŞSENİZ BU UYARIYI DİKKATE ALMAYINIZ." & vbCrLf & vbCrLf & _
" ", vbInformation, "DENEME"
Else

ANAFORM.Show
End If

End Sub

Makro çalıştığında dosya ismi "kitap1" ise yukarıdaki şekilde uyarı versin. Eğer dosya ismi farklı ise uyarı vermeden form açılsin istiyorum. Formülde düzenleme yapabilir misiniz? saygılar.

kod

Sub auto_open()
dosya = CreateObject("Shell.Application").Namespace(ThisWorkbook.Path).ParseName(ActiveWorkbook.Name)
If dosya = "Kitap1" Then
MsgBox "PROGRAMA HOŞGELDİNİZ!" & vbCrLf & vbCrLf & _
"" & vbCrLf & vbCrLf & _
"BUGÜN" & Space(2) & ":" & Space(4) & Date & Space(4) & Format(Day(Date), "dddd") & Space(5) & "SAAT" & Space(2) & ":" & Space(4) & Time & vbCrLf & vbCrLf & _
"" & vbCrLf & vbCrLf & _
"LÜTFEN KAYDA BAŞLAMADAN ÖNCE DOSYAYI FARKLI KAYDEDİN." & vbCrLf & vbCrLf & _
" ", vbInformation, "DENEME"

a = Application.FindFile
If a = False Then
MsgBox "Dosya seçme işlemini yapmadınız.", vbInformation, "DİKKAT"
ThisWorkbook.Close SaveChanges:=False
End If

Else
ANAFORM.Show
End If
End Sub

 

[halit3]

2 nolu mesajdaki kodda eksiklik olmuş düzelttim.

 

[Kenan Yaz]

Zahmet verdik. Teşekkürlerimizi kabul edin lütfen.
Kullanıma başlayınca şöyle bir eksiklik olduğunu gördüm.
Dosyamızı farklı kaydettikten sonra formun açılması, kaydetmeyi iptal ettiğimizde dosyanın tümden kapanmasını düzenleyebilir misiniz?. Teşekkürler

 

[halit3]

Zahmet verdik. Teşekkürlerimizi kabul edin lütfen.
Kullanıma başlayınca şöyle bir eksiklik olduğunu gördüm.
Dosyamızı farklı kaydettikten sonra formun açılması, kaydetmeyi iptal ettiğimizde dosyanın tümden kapanmasını düzenleyebilir misiniz?. Teşekkürler

2 nolu mesajdaki kodu yeniden düzenledim.

 

[Kenan Yaz]

Çok teşekkür ederim. İyi çalışmalar