sayfayı kaydetmeyi önleme

[ferdinand]

Arkadaslar ogrenmek istedigim,

excel de sadece bir sayfayı (sheet) farklı kaydet veya kaydetmeyi onleyici bir yol veya makro varmıdır? tesekkurler.

 

[hamitcan]

Bu kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    MsgBox "bu kitabı kaydedemezsiniz"
End Sub

 

[ferdinand]

oncelikle tesekkur ederim.
bu kodun işlemesi için excelin kayıt yapması gerekiyor. kodu yazdıktan sonra kendi excelimi nasıl kayıt edecegim

 

[hamitcan]

Önce dosyanızı oluşturun, sonra kodu yapıştırın.

 

[ferdinand]

dosyam zaten oluşmuş vaziyette. bu kodu yapıştırıyorum thisworkbook kod bolumune. kodun çalışması için kaydetmem gerek. bu kitabı kaydedemezsiniz diyor.

 

[ferdinand]

Olayı şöyle çözdüm
thisworkbook kod bölümüne;

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if Sayfa1.Visible=True Then
Cancel = True
MsgBox "bu kitabı kaydedemezsiniz"
End Sub

yazdım. sorun çözüldü. tesekkur ederim hamitcan.

 

[Orion1]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[B][COLOR="Red"]if activesheet.name="Sayfa1" then[/COLOR][/B]
Cancel = True
MsgBox "bu kitabı kaydedemezsiniz"
end if
End Sub

 

[ferdinand]

tesekkur ederim Evren ve Hamitcan Bey.

 

[Orion1]

tesekkur ederim Evren ve Hamitcan Bey.

Rica ederim.
İyi çalışmalar.