Sayfayı Kilitleme Makrosu

[halilerdem]

Sayfayı şifreli kilitlerken «Nesneleri Düzenle» seçeneğine check atarak nasıl kilitlerim

Normal kilit aç ve kapamayı aşağıda olduğu gibi yapıyoruz

Sub AC ()
ActiveSheet.Unprotect Password:="123"
End Sub

Sub KAPAT()
ActiveSheet.Protect Password:="123"
End Sub

Fakat kapat makrosu içinde birde «Nesneleri Düzenle» seçeneği checkli olmasını istiyorum

 

[Seyit Tiken]

Bu şekilde deneyiniz.

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True

 

[halilerdem]

Teşekkürler