ActiveSheet eşitlik şartı

[emre311]

Merhaba;
Bir dosyada 2 adet sheet var eğer ActiveSheet mesala Sayfa1 e eşitse kaydetmesin diye worksheet kodlarına yazabilirmiyiz. Yani sadece sayfa 2 de kaydet yapmasını istiyorum sayfa1 de kayıt yapmasını istemiyorum. Mümkünmü acaba şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Thisworkbook' un kod bölümüne

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveSheet.Name = "Sayfa2" Then
ThisWorkbook.Save
Else
Cancel = True
MsgBox "hata"
End If
End Sub

. . .

 

[emre311]

çok teşekkür ederim.