sayfa koruması hk da

[wirtue]

arkadaşlar merhba ;

Tabloya sayfa koruması yapacacağım fakat A-B-H VE I 4 sutunda boş kalan hucrelere veri girişi yapmak için koruma uyarısı almak istemiyorum..hücrelere veri girişi yapıp Ctr+s yaptıktan sonra da hücreler korumaya dahil olabilirmi ?

tşk ler

 

[belinay42]

Sn Wirtue

Sizin söylediğiniz olay bence biraz zor çünkü sayfaya koruma koyduğunuz zaman bütün eylemleri kilitliyor seçili hücre , satır yada sütunlara müdahale etme şansımız kalmıyor.

Ama isterseniz VBA kodlarıyla istediğiniz yapılabilir

Parola-Şifre Girişi diye arama yaparsanız belki size uyar bence incelemekte fayda var

Saygılar

 

[wirtue]

Re :

Sn Wirtue

Sizin söylediğiniz olay bence biraz zor çünkü sayfaya koruma koyduğunuz zaman bütün eylemleri kilitliyor seçili hücre , satır yada sütunlara müdahale etme şansımız kalmıyor.

Ama isterseniz VBA kodlarıyla istediğiniz yapılabilir

Parola-Şifre Girişi diye arama yaparsanız belki size uyar bence incelemekte fayda var

Saygılar

Tşk ler belinay ..Araştırma yapacağım olmadı Vba kodlarına ihtiyacım olabilir..

 

[wirtue]

Re :

arkadaşlar sanırım vba kodlarıyla olacak..ekteki dosyayı incelerseniz koruma koymak istediğim sutunlar A-B-F ve G,,,Bu sutunlar eğer boş ise hücrelerde işlem yapılabilsin..Eğer doldurulmuş ise Kaydet komutu ile belirlenen bir şifre ile şifrelensin

 

[manasız]

Sayın arkadaşım eğer sayfa korumasını biraz kurcalıdıktan sonra soruna engüzel şekilde yardımcı olabileceğine inannıyorum isteğin gibi koruma atabilrsin

ben şöle izah edeyim

araçlar
kullanıcı aralıkları düzenlemesine izin ver bölümüne

tıkladığın dair orda koruma alacağın yerleri seçersin sonra koruma dersin yani sayfayı koru dersin ondan sonra ise sayfan koruma altına alınacaktır istedigin yerlerin yazman dahilinde

teşkür:::

 

[leumruk]

Sub Makro1()
ActiveSheet.Unprotect 12345
For i = 2 To 10
If Cells(i, "a") = "" Then
    Cells(i, "a").Locked = False
    Else:
    Cells(i, "a").Locked = True
End If
If Cells(i, "b") = "" Then
    Cells(i, "b").Locked = False
    Else:
    Cells(i, "b").Locked = True
End If
If Cells(i, "f") = "" Then
    Cells(i, "f").Locked = False
    Else:
    Cells(i, "f").Locked = True
End If
If Cells(i, "g") = "" Then
    Cells(i, "g").Locked = False
    Else:
    Cells(i, "g").Locked = True
End If
Next i
ActiveSheet.Protect 12345
End Sub

Syn. Wirtue,
Düğmeye her tıklamanızda kod devreye girer, belirttiğiniz kısımlarda boş hücre varsa, bu hücreleri veri girişine açar. Veri girişlerini tamamladığınız zaman yeniden düğmeye bastığınızda dolu hücreleri kilitler.
İsterseniz kodu sayfaya uyarlayarak otomatiğe bağlayabilirsiniz.

 

[wirtue]

süper çok tşk ederim sayın leumruk,,,herhangi bir düğme değilde Ctrl+S yaptıktan sonra devreye girerse tam süper olucak

 

[leumruk]

Kısa yol (CTRL+S). Dosya ekte.

 

[wirtue]

hocam çok tşk ler yanlız Sub auto_open() şeklinde dosya açılışında çalışan başka bir makro mevcut olduğundan sorun yaratıyor sanırım göndermiş olduğunuz tablodaki kodu ne şkilde düznleyebiliriz

 

[leumruk]

hocam çok tşk ler yanlız Sub auto_open() şeklinde dosya açılışında çalışan başka bir makro mevcut olduğundan sorun yaratıyor sanırım göndermiş olduğunuz tablodaki kodu ne şkilde düznleyebiliriz

Geçerli satırı alıp, diğer makronuzun içine kopyalayabilirsiniz.
Örnek:
Sub Autpen()
Kısayol makrosu
Sizin makronuz
End Sub