ReadOnly mesajı

[algil]

Merhaba
Bir adet yazma korumalı ve ReadOnly bir dosya oluşturdum. Genel kullanımda bu dosyayı readonly olarak çalıştırıyorum. değişiklik yapıldığındada şifreyi girip değişikliği yapıyorum. Sayfa1 e eklediğim butona tıkladığım zaman, o dosyanın ReadOnly olup olmadığını belirten bir makro yazabilirmiyiz.
teşekkürler

 

[algil]

Aradığım kodu buldum.

Sub uyarı()
If ActiveWorkbook.ReadOnly Then
    MsgBox "ActiveWorkbook is ReadOnly"
End If
End Sub