Sayfa korumalıdan çıkınca şifre sorsun.

[gecemavisi]

Saygıdeğer arkadaşlar;
bi sürü makrolarım var ve hepsi

ActiveSheet.unProtect "1" diyerek şifreyi açıyor ve işi bitince

ActiveSheet.Protect "1"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True

bu komutla sayfayı kilitliyor.
Ama araçlar ve koruma dan sayfa korumasını kaldır deyince parola sormadan hemen korumayı kaldırıyor.

Parola sormasını nasıl sağlayabilirim.
Saygılarımla...

 

[xxrt]

http://www.excel.web.tr/search.php

 

[Levent Menteşoğlu]

Sadece aşağıdaki satır kalsın diğerlerini silin.

ActiveSheet.Protect "1"

 

[gecemavisi]

Saygıdeğer Levent Hocam,
Aşağıdaki satırı kullanmazsam eğer süzgeçler vb. Renklendirme işlemleri vs. işler çalışmıyor o zaman.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin.

[vb:1:65e514b903]ActiveSheet.Protect "1", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
[/vb:1:65e514b903]

 

[gecemavisi]

Saygıdeğer Levent Hocam, Problemlerin çoğunu sayenizde hallettim. Aşağıdaki kod içinde ne gibi değişiklik yapmak gerekir.
Saygılarımla..

On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Protect Password:="1"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True
Next sayfa

 

[gecemavisi]

Sayın Levent Bey;
onu da şu şekilde yaptım. Yardımlarınız için içten teşekkür ederim...

sayfa.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True