Az zaman bulabildim ve değiştir ve sil olayına kod ekledim .

Dim say As Integer

var:



say = say + 1



If say = 5 Then Exit Sub

GoTo var

Yukkarıdaki kodları ekledim.5 kere yanlış şifre olursa kapanır.

Dim say As Integer

If islemYapma = True Then Exit Sub

ActiveSheet.Unprotect "4455"

var:

GIRIS = InputBoxDK("ÞÝFRE GÝRÝNÝZ.", "ÞÝFRE PENCERESÝ", "") ''InputBox a parola maskesi baþý devacý modülde







sifre = "111" ' Þifrenizi buraya tanýmlayýnýz.

If GIRIS = "" Then

MsgBox "ÝÞLEMÝ ÝPTAL ETTÝNÝZ"

Exit Sub

End If

If GIRIS <> sifre Then

MsgBox "ÞÝFRE YANLIÞ"

say = say + 1

If say = 5 Then Exit Sub

GoTo var

Exit Sub

End If

MsgBox "KAYITLAR DEÐÝÞTÝRÝLDÝ!!!" 'InputBox a parola maskesi sonu

Çok, çok teşekkürler Hocam Ellerinize sağlık. 
Saygılarımla size ve bütün sevdiklerinize sağlıklı günler diliyorum.

Arkadaşlar Konuyu cevaplanmış konular bölümüne taşıyabilirsiniz. Saygılarımla.