Auto_open ile çalışma kitabını koruma

[karzer]

Merhaba,

Sub Auto_Open()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True 'Korumayı devreye sokar
End Sub

makrosu ile çalışılan sayfayı korumaya alıyorum acaba bunu çalışma kitabı olara komple nasıl yapa bilirim acaba, teşekkürler.

 

[karzer]

#

ActiveWorkbook.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

denedim ama olmadı ....

 

[Ayhan Ercan]

Merhaba
Aşağıdaki gibi deneyiniz...

Sub Auto_Open()
    ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

 

[karzer]

###

Merhaba, bu kod çalışıyor fakat benim tam istediğim kullanıcı

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

bu kodda olduğu gibi tüm sayfalarda etkili olaması idi çalışma kitabı bu işlevi yerine getirir diye düşünmüştüm farklı bir çözüm varmı acaba.

 

[Ayhan Ercan]

Tüm sayfaları Koruyun o zaman...

for i = 1 to Sheets.Count
Sheets(i).Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Next

 

[clawera]

Merhaba
Aşağıdaki gibi deneyiniz...

Sub Auto_Open()
    ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub

bu kodu ekledim fakat silmeme rağmen çalışma kitabını korumaya devam ediyor acaba çalışmasını nasıl durdurabilirim.

 

[Trilenium]

ActiveWorkbook.Protect Structure:=false, Windows:=False

kodu Tekrar çalıştırın

 

[EmrExcel16]

Kodu sildiyseniz çalışmaya devam etmez korumaya aldığınız için öyle kalmış , manual olarak bir defa kaldırın korumayı yada şu kodu çalıştırın.

Sub Koruma_Kaldir()
 ActiveWorkbook.Protect Structure:=False, Windows:=False
End Sub