Dosya adı değiştirilememesi

[darkhome]

Excelde yaptığım bir program var.
Bu dosyanın adının başkası tarafından değiştirilmesini istemiyorum.
Ne yapmam gerekiyor. Visual Basic kodunu bir türlü yazamadım
Şimdiden teşekkürler

 

[Necdet]

Merhaba,

Thisworkbook kısmına aşağıdaki kodu kopyalayın ve dosya adını düzeltin.

Private Sub Workbook_Open()

    If Not ThisWorkbook.Name = "[COLOR="Red"][B]abc.xlsm[/B][/COLOR]" Then ThisWorkbook.Close Savechanges:=False
    
End Sub

 

[darkhome]

Vakit ayırdığınız için teşekkürler.

Denedim fakat excel dosyasına sağ tıklayıp yeniden adlandır dediğimde dosya ismini değiştirebiliyorum.

Maalesef olmadı.

 

[Necdet]

O değiştirdiğin dosyayı açtığın zaman çalışmaz ama hemen kapanır.

 

[darkhome]

O değiştirdiğin dosyayı açtığın zaman çalışmaz ama hemen kapanır.

Evet makrolar çalışmıyor.

Teşekkürler.