Farklı Kaydeti iptal etme

[jeday_jey]

Arkadaşlar merhaba. Öncelikle konuyu forumda aratırdığımı belirtmek isterim fakat bir sonuca ulaşamadım. Benim bir excel tablom var ve read only açılıyor. Bu dosyanın başka bir bilgisayara veya yere farklı kaydet yapmasını engelleyebilirmiyim.Dosya read only olduğundan dolayı kaydet yapılamıyor farklı kaydette yapılmasın istiyoruz. Böyle bir şey mümkünmü.

Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Bir deneyiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = True
End If
End Sub

 

[jeday_jey]

Arkadaşım süpersin. tam istediğim gibi oldu. Fazla yüzsüzlük yapmak gibi olmazsa bu komuta birde bu dosya farklı kaydet ve kaydet işlemi yapılamaz gibi bi r mesaj çıkartabilirmiyiz.

Teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = True
End If
MsgBox "Bu dosyada kaydet & farklı kaydet yapılamaz!", vbInformation
End Sub

 

[Orion1]

Merhaba.
Acaba makrolar devre dışı (güvenlik düzeyi yükseltildiğinde) bırakıldığında farklı kaydetme işlemi olacakmı..!!:roll: :roll:

 

[conari]

+ Belge Kilitlenmeli

 

[N.Ziya Hiçdurmaz]

yanıt

Bir sayfa hariç tüm sayfaları makro ile gizleyip şifreli olarak .Ve makro ile bu sayfaları tekrar gösterme durumu olursa bu iş hallolur.(Yani makrolar kullanılmak zorunda kalınmış olunur.)

 

[jeday_jey]

V.Basic For Applications Hocam teşekkür ederim yardımlarından dolayı.