Hücre Koruma

[eminuslu]

Sevgili arkadaşlar ekte gönderdiğim ve Web.tr.sitemizden almış olduğum örneği korumalı kullandığım bir programa eklemek istiyorum.Ama ek örnek dosya korumalı olduğunda çalışmıyor dosyayı korumalı nasıl çalıştırabilirim. Herkesi saygı ve sevgiler.

 

[Murat OSMA]

Bu şekilde deneyin;

Sub AUTO_OPEN()
    Yan_Son
End Sub

Sub Yan_Son()
    DoEvents
    If Range("E9") >= 0 Then
        Range("E9").Interior.ColorIndex = xlNone
        Exit Sub
    End If
    If Range("E9").Interior.ColorIndex = 3 Then
        ActiveSheet.Unprotect "1"
            Range("E9").Interior.ColorIndex = xlNone
        ActiveSheet.Protect "1"
    Else
        ActiveSheet.Unprotect "1"
            Range("E9").Interior.ColorIndex = 3
        ActiveSheet.Protect "1"
    End If
    Application.OnTime Now + TimeValue("00:00:01"), "Yan_Son"
End Sub

 

[eminuslu]

Murat bey sayfayı korumalı çalıştırmak istiyorum korumalı çalışmıyor.

 

[Murat OSMA]

Biliyorum. Kodları ona göre düzenledim zaten.

Hata aldığınız satırdan önce ActiveSheet.Unprotect "1" hata aldığınız satırdan sonra ActiveSheet.protect "1" yazıp deneyin..

 

[eminuslu]

Murat bey ben yapamadım kusura bakmazsanız dosyayı siz düzeltip 123 şifreli yapabilirmisiniz

 

[Murat OSMA]

Önemli değil yapar yollarım ama yapmanızı istediğim çok zor bir şey değildi.

Dosyanız ek'te...

 

[eminuslu]

Murat bey çok teşekkür ederim aslında gerçekten kolaymış ama bizler makro yazmayı bilmediğimizden sizler sayesinde bir şeyler yapıyoruz.

 

[Murat OSMA]

Emin Bey, size söylediklerimden farklı bir şey yapmadım. Bu yüzden zor bir şey değil dedim.


Hoşça kalın !