+- 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 - feraz - 05/03/2021
Private Sub Workbook_Open() içine Halil hocanınkini yazdıktan sonra alttaki koduda eklerseniz Sayfa eklemelerde kilitlenir.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
strPassword = "171717"
ThisWorkbook.ActiveSheet.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
End SubRe: 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, 12:12)berduş yazdı: 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
Next
Berduş Hocam bu kodu oluşturacağım yeni bir modülemi yapıştırmam gerekiyor, UserForm_Initialize() yordamına yazdığımda kod çalışmıyor.
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 05/03/2021
Dikkat ederseniz ben kodu workbook open olayına eklemiştim.
Ama burada kod sanki çalıştırılmadan hata veriyor gibi, doğru mu?
Yazım hatası yoksa bu aşamada hata olmaması gerek.
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, 21:53)berduş yazdı: Dikkat ederseniz ben kodu workbook open olayına eklemiştim.
Ama burada kod sanki çalıştırılmadan hata veriyor gibi, doğru mu?
Yazım hatası yoksa bu aşamada hata olmaması gerek.
Evet Berduş Hocam kodu eklediğim anda kırmızıya dönüyor.
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 05/03/2021
açıkçası sizin dosyanızda neden hata verdi bilmiyorum -dosyanız bende de hata verdi- ama sizin kodlar silip mesajdaki kodu kopyala/yapıştırla yapıştırınca hata gitti.
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, 22:56)berduş yazdı: açıkçası sizin dosyanızda neden hata verdi bilmiyorum -dosyanız bende de hata verdi- ama sizin kodlar silip mesajdaki kodu kopyala/yapıştırla yapıştırınca hata gitti.
Berduş Hocam Hata vermeyen dosyayı paylaşırmısınız Lütfen bakalım ben bilgisayarıma indirdiğimde ne olacak.