Kullanıcı Aralıklarının Parolasını Makrolaştırmak

[baydeniro]

Merhaba arkadaşlar. Kullanıcı aralık şifresi makroya nasıl yazılır ?

Araçlar > Koruma > Kullanıcı Aralıklarının Düzenlenmesine İzin Ver

 

[baydeniro]

Örneğin; Sayfa koruma ile ilgili parola makroya şu şekilde yerleştiriliyor.

ActiveSheet.Unprotect "5323"

Bu tarzda "Kullanıcı aralık" şifresi makroya nasıl yazılır ?

 

[ozgretmen]

Aşağıdaki gibi dener misiniz ?

ActiveSheet.Protection.AllowEditRanges.Add Title:="Aralık1", Range:=Range("A1:A20"), Password:="55555"

 

[baydeniro]

Sayın ozogretmen ilginiz için çok teşekkürler. Öncelikle aramıza hoş geldiniz. Kodu aşağıdaki gibi denedim olmadı.

Sub Kullanici()
ActiveSheet.Protection.AllowEditRanges.Add Title:="Aralık1", Range:=Range("B1:B20"), Password:="55555"
End Sub

 

[baydeniro]

Arkadaşlar bu konuda bir fikri olan var mı ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ARALIK_TANIMLA_PAROLA_EKLE()
    Dim Aralık As Variant
    On Error Resume Next
    ActiveSheet.Unprotect "12345"
        For Each Aralık In ActiveSheet.Protection.AllowEditRanges
        Aralık.Delete
        Next
    ActiveSheet.Protection.AllowEditRanges.Add Title:="Aralık1", Range:=Range("A1:A10"), Password:="12345"
    ActiveSheet.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[baydeniro]

Sayın Korhan Ayhan çok çok teşekkür ederim. Allah sizlere uzun ömür versin, sağlıcakla kalın.