Çalışma sayfasını dahada korumalı yapmak

[gecemavisi]

Saygıdeğer arkadaşlar.
Benim sizden ricam,
Mesela bir exel sayfam var. Kimi hücrelerimde formüller var ve onlar kilitli, kimi hücrelerim sadece veri girmek için ve kilitsiz. Makrolarım var ve gerekli olduğunda otomatik olarak sayfa kilidini açıyor ve işi bitince sayfayı gene kilitliyor.
Benim istediğim ise bunun haricinde nasıl bir makro tuşu ayarlamam lazım ki; adam sayfanın üzerindeki verilerde gezerken verilerin hiçbiri değişmesin, veri değişmek icap ettiğinde o tuşa bassın ve sadece kilitsiz hücrelerde değişiklik yapsın ve, değişiklik yaptıktan sonra gene tek bir tuşla komple sayfayı değiştirilemez hale getirsin.

Bu konuda yardımlarınızı esirgemezseniz sizlere minnettar kalacağım. Sağolun exel severler...

 

[Metin Karaağaç]

Sub Auto_open()
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
End Sub

bu kodla sayfa açıldığında bütün hücreleri kilitleyebilirsiniz.

Sub Makro4()
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
End Sub

bu kodla da sadece formüllü hücreleri kilitleyip, diğer hücreleri değişime açmış olursunuz.

Düzeltme: Yalnız bu kodların içinde sayfa koruması yoktur. Unutmuşum da

 

[gecemavisi]

valla sn Acemi1,
yanıtınız tam soruma uygun olmadı. Daha iyi bir cevap lazım. Denedim, Sonuç olumlu değil.
İlginize teşekkürler.

 

[Metin Karaağaç]

Sub Auto_open()
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
End Sub

Sub Makro4()
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
End Sub

Sanırım şimdi oldu. Tabi istediğinizi doğru anladıysam

 

[gecemavisi]

Cells.Select
Selection.Locked = False BURDA HATA VERİYOR....
Selection.FormulaHidden = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select


Sn Acemi1,
Benim Sayfam sorumda da verdiğim gibi normalde kilitli. Makrolarım sadece çalışmak için otomatik olarak sayfanın korumasını kaldırıyor ve işi bitince gene dosyamı kilitliyor. Benim isteğim öyle bir tuş olacakki ona basınca tüm sayfa değiştirilemez olacak ve değiştirme yapıldığında uyarı verecek. bir ikinci tuşa basıldığında da gene formüllü yani önceden kilitli olan hücrelerim gene kilitli kalacak ama kilitsiz olanlar değiştirilecek.
Yani burda kısaca ben kilitli hücrelerim gene aynen kalacak ama kilitsizler kilitli olacak. gereğinde hangi hücrelerim önceden kilitli değilse yapacağım düğmeyle gene kilitsiz olacak.
İlginiz için teşekkürler..

 

[Metin Karaağaç]

Anladım.
Ancak şimdi çıkmam gerekiyor. Size yardımcı olamadım, kusura bakmayın.

 

[gecemavisi]

Ne demek sn Acemi1,
İlgilenmeniz bile hoş Sağolun. İyi çalışmalaar...

 

[gecemavisi]

Arkadaşlar,
olayı hallettim. Kullanıcıların aralıkları düzenlemesine izin ver olayını kullanacağım
Saygılar...

 

[gecemavisi]

Saygıdeğer arkadaşlar...
Sayfa aralıklarını düzenlemeye izin ver seçeneği sayesinde olayı çözdüm.
Adam parolayı girince düzenleyebiliyor ancak. Ama farzedin ki adam parolayı girdi ve 1 yeri düzenledi. Dosyayı tekrar kapatıp açmadan aşağıdaki koda bnzer bir makro düğmesi sayesinde gene eski konumdaki gibi parola korumalı hale getirtebilirmiyiz. Yani düğmeye koyduğum bu kod hata veriyor..

sizce neden.

ActiveSheet.Protection.AllowEditRanges.Add Title:="Aralık1", Range:=Range( _
"$A$7:$P$599;$R$7:$T$599;$V$7:$X$599;$Z$7:$AR$599;$AT$7:$AV$599"), Password:="as"

 

[gecemavisi]

Saygıdeğer arkadaşlar,
Sizlerden konumla ilgilenmenizi rica ediyorum.
Saygılarımla...