excel dosyasının ismini sabitleme

[cem]

mrb,

hazırlanmış bir excel dosyasının isminin başkası tarafından değiştirilmemesini istiyorum.mesela dosya ismi maliyet...bunu gönderdiğim kişinin değiştirmemesini istiyorum.excel de böyle bir özellik var mı..

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanızda makro kullanacaksanız olur.

Private Sub Workbook_Open()
On Error GoTo atla
    If Application.ActiveWorkbook.Name <> Workbooks("maliyet").Name Then
atla:
        MsgBox "Dosya ismi değiştirilmiş.Dosya ismi maliyet olmalı.", vbInformation
        ActiveWorkbook.Save: ActiveWorkbook.Close
    End If
End Sub

 

[cem]

çok teşekkürler..

sizin gönderdiğiniz dosya düzgün çalışıyor.fakat aynı kodu başka bir sayfada deniyorum şöyle bir sorun çıkıyor..önce isim değiştirilmiş mesajı ekrana geliyor ama tamam a tıklayınca buraya geçiyor..