Kodu alttaki gibi yapın Sayfa1 yerine sayfa1 olacakmış çünkü sayfa adınız o şekilde.Koddaki Ş gibi harfleri tekrar yazamanız gerekebilir.
Koddaki liste ile sayfa adı aynımı kontrol edin.

Ayrıca Option Compare Text bu kodu userform1 kodunun en üstüne ekleyin harf duyarlılığı için.
Office 2010 ise xlsm formatında kullanmaız daha iyi olur o şekilde dosya atıyorum.

Function islemYapma() As Boolean

    If ActiveSheet.Name = "sayfa1" Or ActiveSheet.Name = "ÞABLON" Or ActiveSheet.Name = "liste" Then

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

        islemYapma = True

    Else

        islemYapma = False

    End If

End Function