Sayfa Koruma Şifresi Hk.

[baykan_m]

Merhaba Arkadaşlar,

Bir buton ile belli kriterler ile sayfa koruması yapacağım. Kriterleri seçmeden

ActiveSheet.Protect "123"

kodu ile sayfa koruması yapabiliyorum. Ancak kriterleri seçerken bunu yapamıyorum. Bu arada bu işlemi makro kaydederek yapmaya çalışıyorum. Aşağıdaki kodu şifre koyarak nasıl değiştirebilirim acaba?

Sub Makro2()
'
' Makro2 Makro
'

'
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
        True, AllowFiltering:=True
End Sub

 

[baykan_m]

Çözümü buldum

Sub Makro2()
'
' Makro2 Makro
'

'
    ActiveSheet.Protect Password:="321", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
        True, AllowFiltering:=True
End Sub

 

[ÖmerBey]

? ? ?