Çalışma kitabı kapat (x) pasif etme

[kemal turan]

Merhaba,
Çalıştığım excel sayfasının Çalışma kitabı kod bölümüne çıkış (x) butonunu pasif eden kodu ekliyorum.
fakat her açtığımda ilk defa mesaj veriyor. bir daha veya herhangi bir hücreye tıkladığımda kod çalışmıyor.
neden olabilir.
(x) tuşunu tamamen gizleme veya farklı bir kod varmı.
teşekkür ederim.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("VERILER").Range("AE1").Value = "x" Then
MsgBox "KAPAT BUTONUNU KULLANINIZ.."
Cancel = True
Else
End If
End Sub


Private Sub Workbook_Open()
Sheets("VERILER").Range("AE1").Value = "x"
Sheets("VERILER").Range("T1").Value = ""
End Sub

 

[Korhan Ayhan]

Merhaba,

Paylaştığınız kod dosya kapanışında çalışacaktır...

bir daha veya herhangi bir hücreye tıkladığımda kod çalışmıyor.

Kod sadece bir kez çalışıyorsa VERILER sayfasında AE1 hücresindeki X bir şekilde siliniyor olabilir..

 

[kemal turan]

Korhan hocam merhaba,
AE1 hücresine kontrolu ben ekledim.
Çünkü başka dosyadan veri alıp yapıştırma yapıyorum. o esnada yapıştırmayı aktif etmem gerekiyordu.
hücreyi takip ediyorum "X" var.
Aslında dün bir sıkıntı yoktu kodda bugün ortaya çıktı.
Kodu aşağıdaki şekilde denedim. yine çalışmıyor.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

Private Sub Workbook_Open()
Sheets("VERILER").Range("AE1").Value = "x"
Sheets("VERILER").Range("T1").Value = ""
End Sub

 

[Korhan Ayhan]

Daha önce benzer bir çalışma hazırlamıştım. Linkteki dosyayı deneyiniz.

X kapat düğmesi

Merhaba, Ben hazırladığım çalışma kitabında sayfalara şifreli koruma koydum. Ancak exceli kapatmak için X kapat düğmesine tıklayıp programdan çıkmak istediğimde, sayfa korumasını kaldırmak istediğimde çıkan ve şifre isteyen kutu çıkıyor. Programa aynı zamanda kapat butonu da koydum. O butona...

www.excel.web.tr

 

[kemal turan]

Merhaba hocam
bu çalışmanıza ulaşmıştım.
örnek dosyanızı tekrar indirdim, dosyanızı masa üstüne kaydedip açtım.
direk kapatma düğmesine bastığımda mesaj kutusu geliyor.
Tamam butonuna tuşluyorum.
tekrar kapatma düğmesine bastığımda mesaj kutusu çıkmadan direk kapanıyorç
Bilgisayar la ilgili bir durum olabilir mi acaba.

 

[Korhan Ayhan]

Olabilir... Bilgisayarınızı kapatıp tekrar açıp sonrasında yeniden deneyin.

 

[kemal turan]

Korhan hocam
Başka bilgisayar da sorun çıkmadı
Yarın kapatıp açayım sorun düzelir herhalde