Toplu Silme

[dost-el]

Koruma+Makro

Sayfa Korumasını Aktif ettiğim zaman Aşağıdaki Kod Çalışmıyor Sayfa Korumasını Kaldırdığımda Çalışıyor bu konuda yardımcı olabilecek arkadaşlara teşekkür ederim

Sub Dikdörtgen2_Tıklat()
sifre = InputBox(" KAYIT ETTİNİZMİ !!! ::: ŞİFRE... x")
If sifre = "" Then Exit Sub
If sifre <> "1" Then MsgBox "YANLIŞ ŞİFRE GİRDİNİZ ! LÜTFEN KONTROL EDİN.": Exit Sub
Sayfa1.Range("E3:E85").ClearContents
Sayfa1.Range("J3:J85").ClearContents
Sayfa1.Range("O3:O73").ClearContents
Sayfa1.Range("T3:T73").ClearContents
Sayfa1.Range("Y3:AA3").ClearContents
End Sub

 

[Korhan Ayhan]

Forumda koruma+makro ifadesi ile arama yapınız.

 

[Korhan Ayhan]

Ben size arama yapin dedim, siz yeni baslik acmissiniz.

Linki inceleyiniz.

Sayfa korumasi varken makro calistirmak