Farklı kaydeti engellemenin yolları varmı?

[svorm]

Merhaba,

İşletmede yaptığım sorgularda excel dosyalarının kopyalanıp farklı işlemler yapılarak dosyaların bozulmasına sebep oluyorlar. Orjinal dosyada şifre olduğu için onun üzerinde birşey yapamıyorlar fakat dosyaları kendi pc lerine farklı kaydet ile alıp bir şekilde bozuyorlar.

Yaptığım bir excel dosyasının farklı kaydedinin çalışmamasını nasıl sağlarım.
Sanırım bu benim işimi çözer.

 

[Mehmet Şahin]

Merhaba,
workbook kod sayfasına aşağıdaki kodu yapıştırın ve deneyin. Kolay gelsin.

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

 

[siyahim]

kod çalışıyor eline sağlık peki uyarı vermesi mümkünmü acaba

 

[Mehmet Şahin]

Merhaba,
aşağıdaki gibi değiştirebilirsiniz, iyi çalışmalar.

If SaveAsUI Then
MsgBox "istenilen mesaj"
Cancel = True
End If

 

[siyahim]

olmadı hocam işe yaramadı farklı kaydetmeye izin veriyor bu şekilde

 

[siyahim]

tamam hocam çözdüm
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then MsgBox "istenilen mesaj"
Cancel = True
End Sub



bu şekilde denedim çalıştı

 

[siyahim]

ama bu sefer hiç kaydetmiyor

 

[Mehmet Şahin]

Pardon,
ben anlayamadım save as iptal ve sadece save çalışıyor. Bunun dışında farklı bir şey miydi istediğiniz, saygılar.

 

[baydeniro]

Sayın dentex, elinize, aklınıza sağlık. Çok işe yarar bir kod.