Otomatik sayfa koruma şifresini aktif etme..

[mybluecat]

Merhabalar

Kullandığım birçok dosyada sayfa koruma şifreleri mevcut.aman zaman değişiklik amacıyla sayfa korumalar kaldırılıyor ve unutuluyor.Bu durum dosya güvenliği için tehlike arz ettiğinden dosyanın tekrar açılması ile birlikte sayfa korumasını aktif ettirmek mümkün mü?Koruma kaldırılsa bile her açıldığında otomatik olarak korumalı açılması gerekiyor.Aşağıdaki kodun bir kısmı bunu yapıyor sanırım ama zamana bağlı çalışıyor.Zamandan bağımsız her açılışta olabilir mi?

Sub kontrol()
   islemzamani = TimeValue("15:20:00")
   zaman = Time
   If zaman > islemzamani Then
    ActiveSheet.Unprotect "3452"
    Sheets(1).Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
     ActiveSheet.Protect "3452"
   End If
End Sub

Teşekkürler...

 

[muygun]

Merhaba;

Boş bir modüle;

Sub Auto_Open()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="123"
Next
End Sub

Kodlarını yerleştirin. (Bu her açılışta sayfaları şifreleyecektir.)

veya bu işlemi dosya kapanırken yapmak isterseniz;


ThisWorkbook kısmına;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="123"
Next
ThisWorkbook.Save
End Sub

Kodlarını yerleştirin.

İyi çalışmalar.

 

[mybluecat]

Elinize sağlık. Teşekkür ederim )