Normalde kaydet düğmesine tıklayınca aktif sayfa ali,zeynep yada ahmet ise işlem yapmadan mesaj verip çıkıyordu.
Belki tam kodu ekleyememişsinizdir yada kaydete basınca aktif sayfa adı dediklerimden birisi değildir ve o şekilde kaydetmiştir.Bugün bakakarım.
Sayfa adları eşleşmeli koddaki ile.

Hocam Dosyayı ekliyorum. Kodu yanlış eklemiş olabilirim.

Hocam Ofis 2010 kullaniyorum.

Tamam mümkünse 2003 olarak olmasın çünkü açılmıyor ben değiştiriyorum.

---

Ucase siz deneseydiniz birde.

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

Hocam Çok, çok teşekkürler ellerinize sağlık. Tam istediğim gibi olmuş.

'Unload Me
'UserForm1.Show
Exit For
End If


Kaydet koduna eklediğiniz yukarıdaki kodları UserForm1 Değiştir Butonuna ve UserForm4 FİRMA BİLGİLERİNİ

GÜNCELLE butonlarına da uygulayabilirmiyiz. Ben ekledim hata veriyor.

(03/05/2020, 16:33)m_demir yazdı: Hocam Çok, çok teşekkürler ellerinize sağlık. Tam istediğim gibi olmuş.

'Unload Me
'UserForm1.Show
Exit For
End If


Kaydet koduna eklediğiniz yukarıdaki kodları UserForm1 Değiştir Butonuna ve UserForm4 FİRMA BİLGİLERİNİ

GÜNCELLE butonlarına da uygulayabilirmiyiz. Ben ekledim hata veriyor.

Rica ederim.Dosyanın son halini eklermisiniz xlsm formatında.Akşama bakabilirim.Yada aynı dosya üzerinde yaparım.Aslında çok kodlarınız değişmeli bana göredr uzun iş tümünü sıfırdan yazmak gibi birşey.En iyisi adım adım hatalı olanları düzeltmek.