Makroya Sayfa Koruma Parolası Nasıl Eklenir

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki makroda parola girmeden sayfadaki korumayı açıp, işlemi yapan ve yine parolasız olarak koruma altına alan bir kod var. Bu kod bu hali ile iyi çalışıyor. Ancak gerek açılışta ve gerekse kapanışta parola nasıl koyulabilir. Yalnız bu parolayı makro çalışırken sormamalı !!!

Sub Koruma()
ActiveSheet.Unprotect
Range([e2]).Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("B10").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

ActiveSheet.Unprotect "12345"

ActiveSheet.Protect "12345"

 

[baydeniro]

Sayın Korhan Ayhan yardımınız için çok teşekkür ederim. Kodları uyguladım ve aşağıdaki duruma geldi. Yalnız Sayfadan korumayı kaldırmak istediğimde parolayı sormuyor.

Sub Koruma()
ActiveSheet.Unprotect "qwerty"
Range([e2]).Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("B10").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protect "qwerty"
ActiveWorkbook.Save
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub Koruma()
    ActiveSheet.Unprotect Password:="qwerty"
    Range([e2]).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("B10").Select
    ActiveSheet.Protect Password:="qwerty", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveWorkbook.Save
End Sub

 

[baydeniro]

Sayın Korhan Ayhan, yardımınız için çok teşekkür ederim. Şimdi süper oldu. Sağlıcakla kalın.