ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] §PÂ_Àɮ׬O§_°ßŪ

[¤À¨É] §PÂ_Àɮ׬O§_°ßŪ

Sub Check_ReadOnly()
'§PÂ_Àɮ׬O§_°ßŪ
    If ActiveWorkbook.ReadOnly = True Then
        MsgBox "°ßŪ"
    Else
        MsgBox "Ū¼g"
    End If
End Sub

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD