Skip to main content

AccessTr.neT


Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında

Oğuz Türkyılmaz
Oğuz Türkyılmaz
37
3666

Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında

#13
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 Sub
Cevapla
#14
(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.

[Resim: do.php?img=10775]
.rar WİNPERAX.rar (Dosya Boyutu: 75,85 KB | İndirme Sayısı: 2)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 05/03/2021, 21:39, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#15
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.
Cevapla
#16
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#17
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.
Cevapla
#18
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task