AccessTr.neT

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

(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.

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.

(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.

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.

(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.