AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

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

1 2 3 4 5 6 7
05/03/2021, 01:15

Oğuz Türkyılmaz

(05/03/2021, 00:34)berduş yazdı: 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
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.
05/03/2021, 07:57

berduş

dosyanızı ekleyebilirsiniz.
kodla ilgili ayrıntılı bilgiye sahip değilim, araştırıp çözmeye çalışırım
05/03/2021, 09:40

feraz

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-ko...#pid178005
05/03/2021, 12:12

berduş

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
05/03/2021, 13:42

Oğuz Türkyılmaz

(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-ko...#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.
05/03/2021, 13:54

feraz

Berduş hocamızın aslında kodu const ile şifre tanımlansa daha iyi olur
1 2 3 4 5 6 7