Sayfa Korumada Kullanıcılara Verilecek izinler Hk.

[DEUMEHMET]

Selam Arkadaşlar bir çalışma kitabının içerisindeki tüm sayfaları;
Sub SayfaKoru()
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="123"
Next
End Sub
İle koruma altına alabiliryorum. Ancak kullanıcılara verilecek izinlerde sadece ilk iki kutucuk işaretli oluyor. ilk 5 izini bu makroya ne ekleyerek verebilrim?
şimdiden çok teşekkürler.

 

[PLİNT]

Selam Arkadaşlar bir çalışma kitabının içerisindeki tüm sayfaları;
İle koruma altına alabiliryorum. Ancak kullanıcılara verilecek izinlerde sadece ilk iki kutucuk işaretli oluyor. ilk 5 izini bu makroya ne ekleyerek verebilrim?
şimdiden çok teşekkürler.

Merhaba
Makro kaydetle bulabilirsiniz.

For Each Worksheet In ActiveWorkbook.Worksheets
    Worksheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True
        Next

 

[DEUMEHMET]

çok teşekkür ederim. sanırım bu excelden bişeyler anlamaya başladım ve üye olmanın vakti geldi

 

[DEUMEHMET]

arkadaşlar tekrardan merhaba takıldığım bi nokta daha oldu

Sub ozelliklikoru
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Next
End Sub

burada ilk 5 izni açtım ama satır ekleme izninide eklemek istiyorum. kodları bilmediğim için
InsertShifts:=True yazdım olmadı, AllowInsertShifts:=True yazdım olmadı. Bu konuda yardımlarınızı bekliyorum.

 

[DEUMEHMET]

Sadece satırlar ekle komutunun karşılığını bir türlü bulamıyorum. excel ingde olmadı onuda kabul etmedi
arkadaşlar bu konuda yardımcı olursanız çok sevinirim.
satırlar ekle izninin vba kısmındaki karşılığı
saygılarımla

 

[DEUMEHMET]

Merhaba arkadaşlar. sayfa korumasında kullanıcılara verilecek izinler kısmında yer alan;
satırlar ekle
sütunlar ekle
komutlarının kod karşılığı nedir acaa?
yukarıda açıklamaya çalıştım ancak yanıt alamadığım için tekrar sormak zorunda kaldım.
Şimdiden yardımlarınız için çok teşekkürler.
Saygılarımla.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki satırlar ile olması lazım.
Sütun ekle: AllowInsertingColumns:=True
Satır ekli: AllowInsertingRows:=True

Ancak; hücreleri biçimlendirme seçeneklerindeki "Kilitli" seçeneğinin dikkate alınması lazım diye düşünüyorum.

Örneğin sütun için; sütundaki hücrelerin tümünün özelliği "Kilitli" olarak seçilmişse; sayfa korumasında
"Kilitli hücreleri seç" seçeneğinin de seçilmesi gerekebilir.

Denemek lazım, bence deneme/yanılma ile bulabilirsiniz.

 

[DEUMEHMET]

Sayın Ömer BARAN, cevabınız için çok çok teşekkür ederim. hemen deneyeceğim size bilgi vereceğim. saygılarımla.

 

[DEUMEHMET]

Sayın Ömer BARAN denedim ve oldu. aşağıdaki kod ile tüm sayfaları aynı anda koruyarak gerekli bazı izinleride verebiliyorum. Çok teşekkürler. Allah Razı Olsun. Saygılarımla.

Sub ozelliklikoru
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True
Next
End Sub

 

[Ömer BARAN]

Estağfurullah, iyi günler dilerim.