Çalışılan Sayfanın Çarpıdan Kapanmaması ?

[ozgurpeh]

Sayfanın çarpıdan kapatılmasını engellemek için nasıl bir macro yapılmalı. Teşekürler

 

[Seyit Tiken]

Kitabın ThisWorkbook bölümüne kodu yapıştırarak deneyiniz.

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

 

[ozgurpeh]

Kitabın ThisWorkbook bölümüne kodu yapıştırarak deneyiniz.

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

Peki uyarıda verdirsek çarpıdan kapanmaz diye

 

[ozgurpeh]

Peki uyarıda verdirsek çarpıdan kapanmaz diye

ama hiçbir şekilde kapıyamıyom artık normalde kapatma macrosu var. Sadece onunla kapansın istiyorum.

 

[Seyit Tiken]

Bu kapatma makronuz :

Sub Düğme1_Tıklat()
ThisWorkbook.Close
End Sub

Buda kapatma uyarısı :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "Burdan kapatamazsınız!"
End Sub

 

[ozgurpeh]

Bu işe yaramadı. sadece 1 çalışma sayfası için istiyorum bunu mesela sayfa2 için

 

[Seyit Tiken]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ActiveSheet.Name = "Sayfa1" Then ActiveWorkbook.Close
If ActiveSheet.Name = "Sayfa1" Then Cancel = True
End Sub

ThisWorkbook'a kopyalayıp deneyiniz.