Kaydet yada Farklı kaydet özelliğini kapatmak.

[udentr2002]

Merhaba arkadaşlar bana laızm olan şey.
Excel dosyamın hiç bir şekilde farklı kaydet şeklinde kayıt edilmemesi yani excel dosyam olduğu gibi kalmalı. Dosyayı bir çok kullanıcı kulanıyor bu kullanıcılar kaydetmek istediklerinde farklı kaydet özelliği ile başka bir isim verme zorunluğu getirip başka bir isim adı altında farklı kaydedebiliyorlar. Benim istediğim bu özellliğinde kalkması.

Dosyaya kullanıcılar için "read" yada "write" hakları veriyoruz ya işte burada sadece read hakkı verdiğim kullanıcı kaydetmek istediğinde farklı kaydet özelliğini açıp başka bir isimle kaydedebiliyor bunuda engellememizin bir yolu var mı acaba.

Bu konu hakkıda yardımcı olursanız çok sevinirim.

SAYGILARIMLA

 

[levo26]

Merhaba;
Aşağıdaki kodları denermisiniz

1 ) ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways

2 ) Sub KaydetVeFarklıKaydetButonunuPasifleştir()
Application.EnableCancelKey = xlDisabled
For Each Ctrl In Application.CommandBars.FindControls(Id:=3)
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(Id:=748)
Ctrl.Enabled = True
Next Ctrl
Application.OnKey "^s"
Application.CellDragAndDrop = True
End Sub

3 ) Sub KaydetVeFarklıKaydetButonunuAktifleştir()
Application.EnableCancelKey = xlDisabled
For Each Ctrl In Application.CommandBars.FindControls(Id:=3)
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(Id:=748)
Ctrl.Enabled = False
Next Ctrl
Application.OnKey "^s", ""
Application.CellDragAndDrop = False
End Sub

 

[udentr2002]

Hocam öncelikle ilgilendiğiniz ve vakit ayırdığınız için teşekkürler.

Fakat anlamadığım bu kodların 3 ünü de birden bir modülemi yazacağım bu konuda aydınlatırsanız çok sevinirim.

 

[udentr2002]

Hocam sizi tekrar yoruyorum ama denedim ama başaramadım sanırım.
Kodları nasıl kullanacağımı anlatırmısınız sevinirim.

SAYGILARIMLA

 

[levo26]

Pardon, yoğundum ancak dönebildim.
Ekte Test dosyası var. Modülde bulunanları çalışma dosyanıza yapıştırın.

 

[udentr2002]

Hocam tekrar selam siz benim demek istediğimi anlamadınız sanırım yada ben anlatamadım.

Dosya içinde kullanıcı gerekli işlerini yapacak ( verilerini girip hesaplamalarını yapacak çıktısını alacak) Bunların dışında hiç bir kayıt yapamayacak dosyayı kaydedemeyecek ve farklı kaydet deyip başka bir isim verip de kaydedemeyecek yada dosyayı kopyalayıp başka bir yerede yapıştıramayacak bunun için ne yapabilrim..

Sizi tekrar yoruyorum ama ilgilenirseniz sevinirim.