Korumalı Sayfada Onay Kutusuna İzin Vermek

[yenilik025]

(Altın üyeyim ancak onayım yapılmamış sanıırım dosya ekleyemedim kusuruma bakmayın.)

Merhabalar.

Korumalı bir sayfada Onay Kutusuna izin vermek için nasıl bir işlem yapmalıyım.


Sub OnayKutusu574_Tıklat()
Dim Parola As Variant

If OnayKutusu574 Then

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.Unprotect Pass

Else
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _
, AllowFiltering:=False
ActiveSheet.Unprotect Pass
End If

End Sub

yardımcı olursanız memnun oalcağım.

 

[YUSUF44]

Onay kutusunun özelliklerinden Kilitli/Locked durumunu değiştirmeyi denediniz mi?

 

[yenilik025]

Evet denedim. yine aynı hata veriyor.
https://www.hizliresim.com/bmtdwt4