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

Katılım
20 Şubat 2006
Mesajlar
259
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...
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sadece aşağıdaki satır kalsın diğerlerini silin.

ActiveSheet.Protect "1"
 
Katılım
20 Şubat 2006
Mesajlar
259
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
20 Şubat 2006
Mesajlar
259
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
 
Katılım
20 Şubat 2006
Mesajlar
259
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
 
Üst