AccessTr.neT

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

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

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.

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

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

Berduş hocam bu 4.mesajdaki kod hata verdi.