Excel kapat tuşu

[mtbi00]

iyi günler

öğrenmek istediğim excelin sağ üst köşede bulunan (X) tuşunu pasif edebilirmiyiz. Yani dosyayı açınca otomatik olarak (X) pasif yapmak istiyorum. Çıkış için ayrıca bir buton koyacağım. Bunu makroyla nasıl yapabilirim. Teşekkürler.

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/showthread.php?t=56112&highlight=excel+kapatmak&page=2

 

[Orion1]

Ekli dosyayı inceleyiniz.
Önce boş bir modül oluşturun ve ona aşağıdaki kodu yazın.sonra Çalışma kitabının Before close olayına onun altındaki kodu yazın.sonrada bir modüle onun altındaki kodu yazın butonada o kodu atayın.

Global kapa As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If kapa = False Then
    MsgBox "X ten veya Alt+F4 ile kapatamazsınız." & vbLf & _
    "Kapatmak için Sayfa1 deki kapat tuşuna basınız.", vbCritical, "E V R E N"
    Cancel = True
End If
End Sub

Sub kapat()
kapa = True
ThisWorkbook.Close
End Sub

 

[abazya]

iyi günler

öğrenmek istediğim excelin sağ üst köşede bulunan (X) tuşunu pasif edebilirmiyiz. Yani dosyayı açınca otomatik olarak (X) pasif yapmak istiyorum. Çıkış için ayrıca bir buton koyacağım. Bunu makroyla nasıl yapabilirim. Teşekkürler.

http://www.excel.web.tr/forumdisplay.php?f=127
Yanlış hatırlamıyorsam, Mahmut bayram'ın kod bankası dosyasında bununla ilgili makrolar vardı.