aktif çalışma kitabı korumalımı değilmi nasıl anlarım

[hsayar]

Sub CkKorumaKont()
Dim acCK As Workbook
Set buCK = ActiveWorkbook
'ProtectContents
If acCK.[B]xxxxxxxx[/B] Then
MsgBox acCK.Name & " korumalıdır"
Else
MsgBox acCK.Name & " korumasızdır"
End If
End Sub

aktif çalışma kitabı korumalımı değilmi nasıl anlarım

 

[hsayar]

çalışma kitabının korumalı olduğunu nasıl anlarız

 

[Levent Menteşoğlu]

Aşağıdaki komutu kullanın.

ActiveWorkbook.ProtectStructure

 

[hsayar]

teşekkür ederim hocam

işlme tamamdır kullanılması gerekn yerde kullanmaya geldi sıra şimdi.

Sub CkKOrKont()

If ActiveWorkbook.ProtectStructure Then
MsgBox "korumalı kitap"
Else
MsgBox "korumasız kitap"
End If

End Sub

 

[hsayar]

ocam peki şöyle bir şey mümkün mü
korumayı koyduktan sonra çalışma kitabınıza koruma koydunuz diye mesaj gönderen (Makro koruma konunca otomatik çalışaşcak), kaldırıncada koruma klaktı diye mesaj göndertmek mümkün müdür?