+- 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)
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
(05/03/2021, 00:34)berduş yazdı: bu kod tüm sayfaları şifreler siz istediğiniz sayfaları şifrelersinizBerduş Hocam
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
Burda anlatmak istediğinizi sanırım yanlış anlıyorum. Ben parola belirleyerek koyduğum sayfa korumalarını her sayfa için ayrı ayrı yapmama gerek kalmayacak bu metodu yazdığımda otomatik tüm mevcut ve yeni açacağım sayfalar korumalı olacak diye algıladım. Kodu uyguladığımda da herhangi bir şekilde sayfalar korumaya alınmadı. Biraz daha açabilirmisiniz anlatmak istediğinizi.
Yani aslında bir kod yazsam ve bu kod Excel çalışma kitabındaki tüm sayfaları parolalı korumaya alsa ben ayrı ayrı her sayfaya koruma koymaya uğraşmasam iyi olur. Belki amaç bu kodda budur ama ben sanırım tatbik etmeyi beceremedim. Konu cevaplanmışlara taşındığı için yazılan kodları gösteremiyorum.
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 05/03/2021
dosyanızı ekleyebilirsiniz.
kodla ilgili ayrıntılı bilgiye sahip değilim, araştırıp çözmeye çalışırım
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - feraz - 05/03/2021
Aslında daha önceki konuda yazmıştım.Bir sub içine kilitac diğerinede kilitle eklenmeli dihe.Uygulanmamış maliesef dediğim
O konuda alttaki linkte.
https://accesstr.net/konu-userformdan-korumali-sayfaya-veri-kaydetme-hakkinda.html?pid=178005#pid178005
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 05/03/2021
kodu aşağıdaki gibi düzenleyip deneyebilirsiniz?
ama ayrıntılara sizin dikkat etmeniz gerekiyor, neler korunacak neler hangi durumda değişecek siz belirlemelisiniz
For a = 1 To Sheets.Count
'ThisWorkbook.Worksheets(a).Unprotect "171717"
strPassword = "171717"
ThisWorkbook.Worksheets(a).Protect Password:=strPassword, _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True, _
AllowFormattingCells:=False, _
AllowFormattingColumns:=False, _
AllowFormattingRows:=False, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=False, _
AllowFiltering:=False, _
AllowUsingPivotTables:=False
NextRE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Oğuz Türkyılmaz - 05/03/2021
(05/03/2021, 09:40)feraz yazdı: Aslında daha önceki konuda yazmıştım.Bir sub içine kilitac diğerinede kilitle eklenmeli dihe.Uygulanmamış maliesef dediğim
O konuda alttaki linkte.
https://accesstr.net/konu-userformdan-korumali-sayfaya-veri-kaydetme-hakkinda.html?pid=178005#pid178005
Feraz hocam ekledim kodda var ama modülde değil butonların tıklandığında olaylarında bu akşam da modüle ekleme önerinizle birlikte berduş hocamın önerisini deneyeceğim teşekkür ederim.
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - feraz - 05/03/2021
Berduş hocamızın aslında kodu const ile şifre tanımlansa daha iyi olur
