Dosya Kapatma

[heft]

Merhabalar,
Bir dosyam var bu dosyanın sağ üst köşedeki "X" dan kapatılmasını istemiyorum.

Yani buradan çıkmaya çalışılırsa "çıkışı buradan yapamazsınız " gibi bi uyarıyla uyarmak istiyorum.

Yardımcı olabilirseniz sevinirim

 

[zafer]

Merhaba


Aşağıdaki linki incelermisiniz

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

 

[matriksx]

Link Çalışmıyor

Malesef link çalışmıyor linki yenilemeniz mümkün mü acaba

 

[heft]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "KAPATAMAZSINIZ"
End Sub

 

[matriksx]

eklediğim CommandButona bastığımda kapanması lazım

 

[matriksx]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "KAPATAMAZSINIZ"
End Sub

tama bu macro exceli hiç kapatmıyorda ben oluşturduğum buton yardımıyla exceli kapatmak istiyorum

 

[matriksx]

Merhaba


Aşağıdaki linki incelermisiniz

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

başka link varmı acaba

 

[Levent Menteşoğlu]

tama bu macro exceli hiç kapatmıyorda ben oluşturduğum buton yardımıyla exceli kapatmak istiyorum

Aşağıdaki kodu thisworkbook sayfasına kopyalayın. Dosyayı kapatacağınız butonun adıda örneğin "Düğme 1" olsun.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Application.Caller <> "D&#252;&#287;me 1" Then Cancel = True
End Sub

Butonada aşağıdaki kodu yazın.

Sub kapat()
ActiveWorkbook.Close
End Sub

 

[matriksx]

çok saol bu kodlar işimi gördü

 

[matriksx]

Aşağıdaki kodu thisworkbook sayfasına kopyalayın. Dosyayı kapatacağınız butonun adıda örneğin "Düğme 1" olsun.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Application.Caller <> "Düğme 1" Then Cancel = True
End Sub

Butonada aşağıdaki kodu yazın.

Sub kapat()
ActiveWorkbook.Close
End Sub

bunu düğme 1 değilde CommandButton1 ' e atayabilirmiyiz

 

[Levent Menteşoğlu]

Thisworkbook sayfasına,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If ad <> "x" Then Cancel = True
End Sub

Commandbuttona,

Private Sub CommandButton1_Click()
kapat
End Sub

Normal modüle,

Public ad
Sub kapat()
ad = "x"
ActiveWorkbook.Close
End Sub

 

[matriksx]

Thisworkbook sayfasına,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If ad <> "x" Then Cancel = True
End Sub

Commandbuttona,

Private Sub CommandButton1_Click()
kapat
End Sub

Normal modüle,

Public ad
Sub kapat()
ad = "x"
ActiveWorkbook.Close
End Sub

Kodlar için çok teşekkür ederim

Public ad
Sub kapat()
ad = "x"
ActiveWorkbook.Close
End Sub

olunca EXCEL arka planda çalışmaya devam ediyor
kodları açağıdaki şekilde yazınca EXCEL arkaplanda çalışmıyor

Public ad
Sub KaPaT()
ad = "x"
ActiveWorkbook.Save
Application.Quit
ActiveWorkbook.Close
End Sub



emeğiniz için teşekkürler

 

[baydeniro]

Teşekkür ederim