excell sheet-sayfa şifreleme

[ozgurmutlu]

herkese gunaydin, excellde tüm çalışma kitabını şifrelemeden, sadece içindeki sayfa2 yi şifrelemek istiyorum. Dosyam serverda ortak paylaşımda ancak sayfa2 yi benim dışımdaki çalışanlar açmamalı.
Seçeneklerden sayfa koruma ve gizlemeyi denedim ancak diğerleri bunu kolaylıkla kaldırabilir. Sayfayı tamamen gizleme makrosunu da açmak için yeniden makro girmek gerekiyor. yani hiç pratik değil.
sayfa2 nin üzerine tıklayınca şifre sorsun tek istediğim bu.
Herkese kolay gelsin. :hey:

 

[Zeki Gürsoy]

Aşağıdaki kodları deneyin.

Private Sub Worksheet_Activate()
    
    ActiveWindow.WindowState = xlMinimized
    
    sor = InputBox("Şifreyi girin. Şifre:123", "Onay", "***")
    
    If sor = 123 Then
        Sheets("Sayfa2").Activate
        ActiveWindow.WindowState = xlMaximized
    Else
        Sheets("Sayfa1").Activate
        ActiveWindow.WindowState = xlMaximized
    End If

End Sub

 

[ozgurmutlu]

çok sağolun tam istediğim gibi sayfayı açarken şifre soruyor
ama şifreyi yazsamda yazmasamda , hatta cancel bile desem gene de
sayfa2'yi hep açıyor

 

[ozgurmutlu]

Tamamdır. 4. satırdaki sayfa 2 yi 1 yapınca düzeldi.
yardımınız için çok teşekkürler
iyi çalışmalar


If sor = 123 Then
Sheets("Sayfa1").Activate

 

[zatarro]

Aşağıdaki kodları deneyin.

Private Sub Worksheet_Activate()
    
    ActiveWindow.WindowState = xlMinimized
    
    sor = InputBox("Şifreyi girin. Şifre:123", "Onay", "***")
    
    If sor = 123 Then
        Sheets("Sayfa2").Activate
        ActiveWindow.WindowState = xlMaximized
    Else
        Sheets("Sayfa1").Activate
        ActiveWindow.WindowState = xlMaximized
    End If

End Sub

Arkadaşlar bu kod bende çalışmıyor.
4. satırdaki sayfa2'yi sayfa1 olarak düzelttim yine de çalışmıyor. benim istediğim de sheet'i gizle/göster derken şifre sorması. Bunu nasıl yapabilirm?

Teşekkürler

 

[zatarro]

arkadaşalar yok mu bir cvp

 

[hmt1963]

Dostum sayfa 2 ye makroyu yerleştirdikten sonra onay içindeki yıldızları kaldırırsan şifre yazılmadan açılmayacaktır.

 

[zsafkan]

Slmlar, Bende denedim, şimdi kurtulamıyorum..

Makro çalışmadı, sonra Araçlar/ Makro / Makrolar'ın içinden makroya ulaşmaya çalıştım,göremedim. Sayfa üzerinden, kod görüntüle seçeneğinden makroya ulaşmak istedim Modül1 'in içinde kodu gördüm ve sildim. Dosyayı kapatıp açınca Makro güvenlik uyarısı çıktı.. Modul1' in içini sildiğim halde neden makro varmış gibi güvenlik uyarısı çıkıyor anlamadım..Örnek dosyayı ektedir. Yardımlarınızı rica ederim.

 

[zsafkan]

Makro çalışmadı, sonra Araçlar/ Makro / Makrolar'ın içinden makroya ulaşmaya çalıştım,göremedim. Sayfa üzerinden, kod görüntüle seçeneğinden makroya ulaşmak istedim Modül1 'in içinde kodu gördüm ve sildim. Dosyayı kapatıp açınca Makro güvenlik uyarısı çıktı.. Modul1' in içini sildiğim halde neden makro varmış gibi güvenlik uyarısı çıkıyor anlamadım..Örnek dosyayı ektedir. Yardımlarınızı rica ederim.

Acil Yardımlarınızı bekliyorum..

 

[rustuuslu]

sayfa 1 veya 3 açan makroda şifreyi görüyor bu nasıl olcak?

 

[rekkezum]

Aşağıdaki kodları deneyin.

Private Sub Worksheet_Activate()
    
    ActiveWindow.WindowState = xlMinimized
    
    sor = InputBox("Şifreyi girin. Şifre:123", "Onay", "***")
    
    If sor = 123 Then
        Sheets("Sayfa2").Activate
        ActiveWindow.WindowState = xlMaximized
    Else
        Sheets("Sayfa1").Activate
        ActiveWindow.WindowState = xlMaximized
    End If

End Sub

üstad onay kutusunda şifre yi de gösteriyor. onayda şifreyi göstermemesini nasıl sağlarız

 

[Zeki Gürsoy]

üstad onay kutusunda şifre yi de gösteriyor. onayda şifreyi göstermemesini nasıl sağlarız

Şu kısmı siliniz...

Şifre:123

 

[karmed]

İyi günler aranıza yeni katıldım bi sorum olucaktı yazmış olduğunuz makroyu kullandım fakat makrolu exceli başka bir bilgisayara attığımda makroyu devre dışı bırakıyor nasıl devreye girmesini sağlarım

 

[Ömer]

Merhaba,

Makro ayarlarını düşürmeniz gerekir.Linki inceleyiniz.

http://www.excel.web.tr/f157/office-2007de-makro-guvenlik-ayarlaryny-du-urmek-resimli-t83371.html

.