Makro İle Sayfa Korumasını Aktif Pasif Etme (Özel İzinli)

[Furkan TARAKÇI]

Merhaba bir çalışma sayfam var ve bu sayfada makro ile filtreleme için butonlar atadım. Tablomda da korumalı sayfalar mevcut olduğundan sayfa koruması aktifken filtreleme yapmıyor. Bende makro içerisine

ActiveSheet.Unprotect

MAKROM

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True

bu şekilde yazdım fakat şifre atayamadım. Bunun bana şifreli versiyonu lazım.

 

[Muzaffer Ali]

Merhaba.

    ActiveSheet.Unprotect Password:="Şifreniz"

    ActiveSheet.Protect Password:="Şifreniz", DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowSorting:=True, AllowFiltering:=True

 

[Furkan TARAKÇI]

Teşekkür ederim Muzaffer Bey,