AccessTr.neT
Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında (/konu-range-sinifinin-delete-yontemi-basarisiz-hatasi-hakkinda.html)

Sayfalar: 1 2 3 4 5 6 7


Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Oğuz Türkyılmaz - 04/03/2021

Merhaba Userformda arama butonuna tıklayarak  yazdığım ID numasına ait kaydı silmek istediğimde  Range Sınıfının Delete  Yöntemi Başarısız Hatası alıyorum. Aynı kod başka bir Excel projemde hatasız çalışıyor. Bu sorunu nasıl halledebilirim. Teşekkürler
[Resim: do.php?img=10773]
[Resim: do.php?img=10774]


RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 04/03/2021

sayfanız şifre korumalı işlem yapmadan önce onu kaldırıp dener misiniz?


RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Oğuz Türkyılmaz - 04/03/2021

Sn.Berduş
ThisWorkbook.Worksheets("Ana_Sayfa").Unprotect "171717" ile
ThisWorkbook.Worksheets("Ana_Sayfa").Protect "171717" Sayfa koruma ve koruma kaldırma kodlarını yazmayı unutmuşum. Teşekkür ederim.


RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 05/03/2021

sayfayı şifrelerken sadece kullanıcı arayüzü seçeneğini aktifleştirirseniz galiba sadece doğrudan sayfa üzerinde işlem yapılması engelleniyor, macro ve yordamlarda sorun çıkmıyor
kitap açılma olayına/Workbook_Open olayına
Sheet1.Protect Password:="şifre", UserInterfaceOnly:=True
kodunu ekleyip dener misiniz?
bu işlem tüm şifreli sayfalar için yapılacak
Not: Test etmedim sadece tahmin


RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 05/03/2021

bu kod tüm sayfaları şifreler siz istediğiniz sayfaları şifrelersiniz
Private Sub Workbook_Open()
For a = 1 To Sheets.Count
ThisWorkbook.Worksheets(a).Unprotect "171717"
ThisWorkbook.Worksheets(a).Protect Password:="171717", UserInterfaceOnly:=True
Next
End Sub



RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Oğuz Türkyılmaz - 05/03/2021

Berduş hocam bu 4.mesajdaki kod hata verdi.