Sayfa Koruması Varsa Mesaj Göster - Microsoft Excel

Eğer çalışma sayfasında sayfa koruması aktif durumdaysa mesaj gösteren VBA kodudur.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.AllowEdit = False Then
        MsgBox "Sayfa koruması aktif durumdadır."
    End If
End Sub