Dosya kapanmasın.

[Orion1]

Mrb.
Liste1,Liste2,Liste3,Liste4 isminde 4 adet sayfam var.
Liste2 adlı sayfam aktifken Dosyam , alt+F4 ile veya x işaretine tıklayarak kapanmasın istiyorum.
Teşekkür ederim.
Kolay gelsin.

 

[danersin]

........


soruyu yanlış okumuşum. özür.

 

[Haluk]

ThisWorkbook modulüne yerleştirilecek kodlar:

[vb:1:c5e7206f2f]Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Name = "Liste2" Then
Cancel = True
End If
End Sub[/vb:1:c5e7206f2f]

 

[Orion1]

Sn:Raider.
Gönderdiğiniz cevap için teşekkür ederim.
İyi çalışmalar.