excel kitap korumaları

[mustafa7691]

sn dostlar sorunum yada iteğim mevcut bir excel kitabındaki tüm sayfa korumalarını tek bir düğme atayarak hepsini kaldırmak yada korumak mümkün olabilirmi(tüm sayfa parolaları aynı)şimdiden herkese teşekkürler saygılarımla

 

[mehmett]

Aşağıdaki makrolardan biri sayfaları (şifresiz olarak) korur diğeri korumayı iptal eder. Ekte uygulamalı dosya var.

Sub Sayfaları_koru()
For x = 1 To Worksheets.Count
Sheets(x).Protect
Next
End Sub

Sub Korumayı_kaldır()
For x = 1 To Worksheets.Count
Sheets(x).Unprotect
Next
End Sub

 

[mustafa7691]

teşekkürler saygı ve sevgilerimle