evet hayır eklemek

[mcetinkaya65]

Bir dosyamda sizlerin yardımıyla form temizliğini çok kolaylaştır dık.Ama Form temizle dediğimzde bize uyarı mahiyetinde temizleme için evet hayır diye sorması,hatta bu silme işini bir şifreye bağlaması mümkün mü?
Çalıştırdığım makrolar;

Sub Temizle() 'kısaltıldı

Dim son As Long

son = Rows.Count
Range("A4:C" & son & ",E4:F" & son & ",H4:H" & son).ClearContents

End Sub

 

[Murat OSMA]

Sitede MsgBox yazıp aratınız...

 

[asi_kral]

Merhaba

Sub Temizle() 'kısaltıldı
'Konu       :   Şifre Sorulması
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim son As Long, asi As String
asi = InputBox("Şifre Giriniz", "Şifre Girişi")
If asi <> "123" Or asi = "" Then
MsgBox "Şifre Yanlış" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
Exit Sub
End If
son = Rows.Count
Range("A4:C" & son & ",E4:F" & son & ",H4:H" & son).ClearContents

Bu şekilde dener misiniz_?

 

[numan şamil]

Bir dosyamda sizlerin yardımıyla form temizliğini çok kolaylaştır dık.Ama Form temizle dediğimzde bize uyarı mahiyetinde temizleme için evet hayır diye sorması,hatta bu silme işini bir şifreye bağlaması mümkün mü?
Çalıştırdığım makrolar;

Sub Temizle() 'kısaltıldı

Dim son As Long

son = Rows.Count
Range("A4:C" & son & ",E4:F" & son & ",H4:H" & son).ClearContents

End Sub

Merhaba
Bende birşeyler hazırlamıştım Boşa gitmesin
Şifre = 12345
Sub Temizle() 'kısaltıldı

Dim son As Long
Dim kafkas
son = Rows.Count
sifre = InputBox("şifre giriniz.", "şifre penceresi", "")
If sifre = "" Then
MsgBox "ŞİFREYİ BOŞ GEÇEMEZSİNİZ."
Exit Sub
End If
If sifre = "12345" Then
kafkas = MsgBox("DİKKAT VERİLERİ TEMİZLİYORUM", vbYesNo, "Onay")
If kafkas = vbNo Then Exit Sub

Range("A4:C" & son & ",E4:F" & son & ",H4:H" & son).ClearContents

Else
MsgBox "şifre yanlış"
Exit Sub
End If
End Sub

 

[numan şamil]

4.Nolu mesajımdaki kodlar düzeltilip güncellendi
Tekrar deneyebilirmisiniz

 

[mcetinkaya65]

Hepinizden Allah razı olsun.
Selamlar..

 

[asi_kral]

Hepinizden Allah razı olsun.
Selamlar..

Kolay Gelsin.

 

[numan şamil]

Hepinizden Allah razı olsun.
Selamlar..

Sizdende Allah razı olsun
İyi çalışmalar