Userform1 e alttaki kodu ekleyin.Ucase yazmasanızda olur büyük harfe çeviriyor Türkçe karakterlerde sorun olabilir.ALI burdaki büyük I yı kendiniz yazınız.

Function islemYapma() As Boolean

    If UCase(ActiveSheet.Name) = "ALI" Or UCase(ActiveSheet.Name) = "AHMET" Or UCase(ActiveSheet.Name) = "ZEYNEP" Then

        MsgBox "Bu sayfalarda silme,degistirme,ekleme gibi olaylar olamaz...", vbCritical, "Bilgi"

        islemYapma = True

    Else

        islemYapma = False

    End If

End Function

Alttaki kodlarıda kadetme silme degistirme gibi kodlara ekleinin resimdeki gibi olacak.

If islemYapma = True Then Exit Sub