Müşteri sayfasını silmek

[yavuz829]

Merhaba arkadaşlar ekteki dosyamda UserForm1 de silmek istediğim müşterinin sayfasında iken müştri sil butonunu tıkladığım zaman beni uyarsın örneğin MEHMET adındaki müşteriyi silmek istiyormusun EVET HAYIR seçeneği ile sorsun evet dediğim zaman MEHMET sayfasını silsin hayır dediği zaman silmesin. Bu konuda yardımcı olursanız sevinirim.

Koruma şifresi: 123

 

[asi_kral]

Merhaba
Dosyanızın açılışına şifre koymuşsunuz. Bu dosyanın şifresini kaldırın. Ayrıca koruma şifresini de kaldırın yardımcı olmaya çalışayım.

 

[yavuz829]

Hocam kusura bakma giriş şifresini kaldırmayı unutmuşum. Giriş şifresini kaldırdım. Sayfa ve kitap koruması şifresi 123 dır. Hocam giriş yaptığımız veriler ve çalışma sayfaları yanlışlıkla silinmesin diye formdaki arkadaşlar şifreleri kod olarak ekmişlerdi. Benim istediğim müşteri sayfasını sil dediğim zaman sayfa korumasını kaldıracak sayfayı silecek ve tekrar kitabı koruma altına alacak.

 

[asi_kral]

Merhaba
Userform'daki kodu bununla değiştirin ve deneyin.

Private Sub ComboBox1_Change()
On Error Resume Next
ActiveSheet.Unprotect "123"
Application.DisplayAlerts = False
Sheets(ComboBox1.Text).Delete
Application.DisplayAlerts = True
ActiveSheet.Protect "123"
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
UserForm1.Show
End Sub
Private Sub UserForm_Initialize()
Dim SYF As Long
For SYF = 3 To Sheets.Count
ComboBox1.AddItem Sheets(SYF).Name
Next
End Sub

 

[yavuz829]

Çok, çok teşekürler hocam ellerinize sağlık.

 

[asi_kral]

Çok, çok teşekürler hocam ellerinize sağlık.

Kolay Gelsin.