AccessTr.neT

formdan silinip Workbook_Open olayına eklenmiştir.

Private Sub Workbook_Open()

strPassword = "171717"

For a = 1 To Sheets.Count

'ThisWorkbook.Worksheets(a).Unprotect "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

End Sub

Berduş Hocam Teşekkür ederim Fakat indirdiğim dosyanın Workbook_Open yordamında sadece resimdeki kodları görebiliyorum. Fakat sizin yazdığınız kodların tamamını görüntüleyemedim. Yanlış yere mi bakıyorum bilmiyorum ama foruma yüklediğim dosyada da workbook_Open yordamını bulamamıştım zaten.

19. mesajdaki dosyayı 2 defa indirip baktım kodlar vardı. hatta mesajın ortasında tekrar indirip kontrol ettim vardı yazdığım kodlar

(06/03/2021, 12:13)berduş yazdı: [ -> ]19. mesajdaki dosyayı 2 defa indirip baktım kodlar vardı. hatta mesajın ortasında tekrar indirip kontrol ettim vardı yazdığım kodlar

Hocam yani evet ben çok zaman dikkatsizim ve acele ediyorum ama hepmi bana rastlar böyle enteresan şeyler. Yeminlen yok. Üsttede sizin dosyanız olduğu belli. Cinler Periler musallat oldu benim excele galiba yok vallahide yok billahide yok.

siz userformdaki koda bakıyorsunuz ki o kodun orada olmaması gerek aslında o yordamı userformdan silin
siz buçalışmakitabı altında olana bakmalısınız

Evet bir şey daha öğrenmiş oldum bu durumu çözdüm peki sizin ilk indirdiğiniz dosyada çalışan Userformdaki Arama butonuna bastığınızda bilgilerin tamamının Userformda ekrana gelmesi durumu sizin yaptığınız bu konuyla alakasız olduğunu düşündüğüm kodlama sonrası neden hata veriyor. Ve bilgilerin bir kısmını getirip bir kısmını getirmiyor. Kod aynı.