Dosya ismi ve uzantısını değiştirmeyi engellemek

[cocoa35]

Arkadaşlar;
Excel dosyasının ismini ve uzantısını değiştirmeyi engelliyen kodlar varmı?
xls ve xlsm içinde geçerli olmalı...
yardımcı olan arkadaşlara şimdiden teşekkür ederim..

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayın.

Private Sub Workbook_Open()
If Not ThisWorkbook.Name = "Kitap1.xls" And ThisWorkbook.Name = "Kitap1.xlsm" Then
    MsgBox "Dosya İsmi Yada Uzantısı Değiştirilmiş. Kitap1.xls Yada Kitap1.xlsm Olmalıdır", vbInformation
    ActiveWorkbook.Save: ActiveWorkbook.Close
    Application.Quit
End If
End Sub

 

[cocoa35]

Ömer bey;
Çalışmanız için tşk ederim ama kodları ThisWorkbook sayfasına kopyalama rağmen birşey değişmedi ben rahatlıkla dosyamın adını değiştirip içine girebildim..uygulamada atlamamı yapıyorum acaba..

 

[Ömer]

Haklsınız yazarken hata yapmışım.

2. satırda And yerine Or yazarak denermisiniz..

.

 

[cocoa35]

Sn Ömer bey;
Tşk.ederim tamamdır...

 

[hamzasaricicek]

Aynı kodu bende uyguladım ama dosya ismi aynı olmasına rağmen açılmıyor ömer bey? ne yapabilirim ?

 

[hamzasaricicek]

Ömer bey, şuan üzerinde çalışma yaptığım dosyayı açamıyorum. Bayada bir çalışmam mevcut bu kodu nasıl kaldırabilirim bilginiz varmı acaba ?

 

[Ömer]

Merhaba,

Önce boş bir excel sayfası açın ve Araçlar / Makro / Güvenlikten Çok Yüksek seçeneğini işaretleyin ve kitabı kapatın. Daha sonra açamadığınız dosyayı açın ve kodları silin. İşiniz bittikten sonra güvenliği tekrar düşürüp dosyayı kaydetip kapatın.

.

 

[hamzasaricicek]

Teşekkürler ömer bey ilginiz için. Problem giderildi..