ARAÇ ÇUBUKLARIM PASİFLEŞTİ

[oerbas]

ARAÇ ÇUBUKLARIM PASÝFLEÞTÝ

EXCEL ilk açıldığında araç çubukları pasif olarak geliyor. Aktif yapmam için alt F1 tuşuna basıp vb ortamına geçiyorum oradanda reset düğmesini tıklamam gerekiyor. Sanırım ben yanlışlıklıkla ayarları değiştirdim bu sorun hakkında yardımlarınızı bekliyorum

 

[bedersu]

Hangi araç çubukları pasif söyleyebilir misiniz? Muhtemelen daha önce araç çubuklarını pasif hale getiren bir auto_open makrosu çalıştırmış ama auto_close dememişsiniz.Bu makroyu biliyorsanız auto_close ile sonlandırın ya da pasif çubukları yazın,kodları yollayalım.

 

[abazya]

Bu topiğin seni ilgilendirdiğini sanıyorum

http://www.excel.web.tr/viewtopic.php?t=5249&highlight=

 

[oerbas]

bedersu demişki

Muhtemelen daha önce araç çubuklarını pasif hale getiren bir auto_open makrosu çalıştırmış ama auto_close dememişsiniz.Bu makroyu biliyorsanız auto_close ile sonlandırın ya da pasif çubukları yazın,kodları yollayalım.

Sanırım haklısınız aşağıdaki kodddan kaynaklanan bir durum var herhalde bu kodun sorun çıkarmadan çılışması için yardımcı olabilirmisiniz.

KOD

Private Sub Workbook_Open()
ANA_FORM.Show
c = 0
Do
DoEvents
a = Format(Now(), "dd/mm/yyyy hh:mm")
b = Format("10.05.2005 14:07")
If c = 1 Then Exit Sub
If b >= a Then
c = 1
Call calis
End If
Loop
End Sub
Sub calis()
MsgBox ("MAKRONUN ÇALIÞMA ZAMANI GELDİ")
End Sub

Aslında bu kod yarım kalmıştı. Ben belli bir tarihe geldikten sonra bir makronun devreye girmesi amacıyla böyle bir kod yazmak istemiştim. Kısmen oldu ama tam değil. Þöyleki belirlenen tarihe gelinince ve bu tarihi geçtikten sonrada bu kod çalışsın istiyorum yani kullanıcıyı belirtilen tarih geçtikten bir hafta boyunca uyaracak bir makroya ihtiyacım var.

 

[xxrt]

Sub calis()
MsgBox ("MAKRONUN ÇALIÞMA ZAMANI GELDİ")
End Sub
kısmını
Sub calis()
MsgBox ("MAKRONUN ÇALIÞMA ZAMANI GELDİ")
End
End Sub
ile değiştir.Bakalım olacakmı..
Loop döndüsünü durdurmanız gerek.

 

[oerbas]

xxrt demişki

End Sub
kısmını
Sub calis()
MsgBox ("MAKRONUN ÇALIÞMA ZAMANI GELDİ")
End
End Sub
ile değiştir.Bakalım olacakmı..

Hocam önerinizi denedim ama olmadı. Sanıyorum derdimi tam olarak anlatamadım. İstediğim şu; Yaptığım bir programa deneme süresi koymak. Yani Program kullanılmaya başlandıktan bir ay sonra diğer kodları silecek bir kodun devreye girmesi. Açıklamak gerekirse Ã?rnek Excel kitaplığı ilk açıldığında süre başlatılsın ve program kullanılmaya başlandıktan bir ay sonrada kullanıcı bir mesajla uyarılsın ve program kullanılamaz hale getirilsin.

 

[danersin]

1 nolu sayfa gizli.
İlk açılışta a1 hücresi boşsa zamanı yazıyor.
dolu ise geçiyor.

Þimdiki zaman - a1 de yazan zaman 30 'dan büyükse
mesaj verip döngüden çıkıyor.
değilse xxxx i çağırıyor.

[vb:1:efa9efe511]Private Sub Workbook_Open()
If Sheets(1).Cells(1, 1) = "" Then
Sheets(1).Cells(1, 1) = Now
End If
Zaman = Now
If Zaman - Sheets(1).Cells(1, 1) > 10 Then
MsgBox "Program süresi dolmuş"
Exit Sub
End If
Call xxxx
End Sub
[/vb:1:efa9efe511]

 

[oerbas]

danersin demişki

Þimdiki zaman - a1 de yazan zaman 30 'dan büyükse
mesaj verip döngüden çıkıyor.

Bendeki örnekte analiz raporları sayfası C1 hücresinde şimdiki zaman yazılı. kodu buna göre düzeltmeye çelıştım. ama hata veriyor. kodu bir inceleyebilirmiziniz

KOD:

Private Sub Workbook_Open()
If Sheets("analiz raporları").Cells(1, 3) = "" Then
Sheets(1).Cells(1, 1) = Now
End If
Zaman = Now
If Zaman - Sheets("analiz raporları").Cells(1, 3) > 10 Then
MsgBox "Program süresi dolmuş"
Exit Sub
End If
Call xxxx
End Sub