sayfa koruması aktif olmuyor

[yusuf09]

AŞAĞIDAKİ ŞEKİLDE KOD YAZILMIŞ BU VE BENZERİ SAYFALARDA SAYFA KORUMASI NEDEN DEVRE DIŞI KALIR?

SAYFALAR NORMALDE KORUMALI AMA EXCEL DOSYASINA İLK GİRİŞTE BAZEN SAYFA KORUMASIZ OLARAK KARŞIMA ÇIKIYOR BU DA SAYFALARDAKİ FORMÜLLERİN BOZMAMASI İÇİN KOYDUĞUM KORUMANIN ANLAMSIZ KALMASINA NEDEN OLUYOR. BİRKAÇ HATALI İŞLEM YAPILDI BU YÜZDEN.

NE YAPMAK GEREKİYOR???



Private Sub Worksheet_Activate()
Sheets("Kısmi Alım Takip").Unprotect "12345"
On Error Resume Next
Dim bul As Range
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For Each bul In Range("b12:b509")
If bul.Value = Empty Then
Rows(bul.Row).Hidden = True
Else
Rows(bul.Row).Hidden = False
End If
Next bul
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Sheets("Kısmi Alım Takip").Protect "12345"
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Kısmi Alım Takip").Unprotect "12345"
If Intersect(Target, [J5E9]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
If Cells(5, Target.Column) <> "" Then Columns(Target.Column + 1).EntireColumn.Hidden = False
For sut = 109 To 11 Step -1
If Cells(5, sut - 1) = "" Then Columns(sut).EntireColumn.Hidden = True
Next
Cells(5, [DF5].End(1).Column + 1).Activate
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Sheets("Kısmi Alım Takip").Protect "12345"
End Sub

 

[Orion1]

Kırmızı satırı silin.

Private Sub Worksheet_Activate()
[B][COLOR="Red"]Sheets("Kısmi Alım Takip").Unprotect "12345"[/COLOR][/B]

 

[yusuf09]

Denedim ama işe yaramadı veri girişi yapınca oluyor genelde

 

[Orion1]

Denedim ama işe yaramadı veri girişi yapınca oluyor genelde

Kırmızı satırı kaldırın.

Private Sub Worksheet_Change(ByVal Target As Range)
[B][COLOR="Red"]Sheets("Kısmi Alım Takip").Unprotect "12345"[/COLOR][/B]

 

[yusuf09]

bu kez de diğer kodlarda hata veriyor ?

 

[yusuf09]

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Kısmi Alım Takip").Unprotect "12345"
If Intersect(Target, [J5E9]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
If Cells(5, Target.Column) <> "" Then Columns(Target.Column + 1).EntireColumn.Hidden = False
For sut = 109 To 11 Step -1
If Cells(5, sut - 1) = "" Then Columns(sut).EntireColumn.Hidden = True
Next
Cells(5, [DF5].End(1).Column + 1).Activate
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Sheets("Kısmi Alım Takip").Protect "12345"
End Sub



BU KISIMDA BİR SORUN VAR AMA ÇÖZEMİYORUM!!!

 

[Orion1]

bu kez de diğer kodlarda hata veriyor ?

Formül olan hücrelere ve korunmasını istediğiniz hücrelere kilit koyun.veri gireceiğiniz hücrelerde ise kilidi kaldırın,manuel olarak.

 

[yusuf09]

Formül olan hücrelere ve korunmasını istediğiniz hücrelere kilit koyun.veri gireceiğiniz hücrelerde ise kilidi kaldırın,manuel olarak.

istediğim hücreler kilitli ancak yapmak istediğim

If Intersect(Target, [J5E9]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
If Cells(5, Target.Column) <> "" Then Columns(Target.Column + 1).EntireColumn.Hidden = False
For sut = 109 To 11 Step -1
If Cells(5, sut - 1) = "" Then Columns(sut).EntireColumn.Hidden = True
Next
Cells(5, [DF5].End(1).Column + 1).Activate
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic

yukarıdaki işlem öncesi koruma kaldırıp işlem bitimi korumanın aktifleştirilmesinde problem var

 

[yusuf09]

sanıım kodlarda bir sorun yok ve çalışıyor.

şöyle bir durumla karşılaştım kilitlemediğim veri girişi yapılan hücrelere veri girişi yapıldıktan sonra sayfa korumalı durumdan çıkıyor. bunun nedeni ne olabilir???