Sayfa korumasını kaldırma pasif

[volkantipi]

Merhaba, destek verdiğim bir firmada, çalışma sayfasında bazı sayfalar korumaya alınmış fakat bugün açtıklarında sayfa korumasını kaldırma pasif gözüküyor. Ne yapmam lazım?

 

[Merhum İdris SERDAR]

.

Dosyadaki kodlara (makrolara) bakmak gerekir.

.

 

[volkantipi]

sayfada kod falan yok sadece koru denmiş.

 

[Merhum İdris SERDAR]

.

Dosyayı ekleyebilir misiniz?

.

 

[volkantipi]

Bütün sayfalar kapalı değil, mesela en sağda "2007 12-03" isimli bir sayfa korumalı teşekkürler.

 

[Merhum İdris SERDAR]

Bütün sayfalar kapalı değil, mesela en sağda "2007 12-03" isimli bir sayfa korumalı teşekkürler.

.

Tüm sayfalarınız kontrol ettim.


Herhangi bir probleme rastlamadım. Protect veya Unprotect pasif değil hepsinde aktif.

.

 

[volkantipi]

Excel 2003 ile mi baktınız acaba? Screenshot ekledim.

 

[Merhum İdris SERDAR]

Excel 2003 ile mi baktınız acaba? Screenshot ekledim.

.

Evet. Excel 2003 ile baktım.

Resmini koyduğunuz sayfa da unprotect edilebililiyor. Herhangi bir şifresi yok.

Yalnız ilk sayfa olan "2008 7 ÖRNEK" sayfası şifreli olarak koruma altına alınmış.

.

 

[volkantipi]

Excel 2003 ile denemiştim kaldırabiliyor evet, ama herkeste 2007 kurulu ayrıca 2003 de açıp kaldırayım desem çoklu kaldıramıyorum hepsini tek tek yapmak lazım çok sayfa var.

 

[Merhum İdris SERDAR]

Excel 2003 ile denemiştim kaldırabiliyor evet, ama herkeste 2007 kurulu ayrıca 2003 de açıp kaldırayım desem çoklu kaldıramıyorum hepsini tek tek yapmak lazım çok sayfa var.

.

Toplu Kaldırma için, aşağıdaki kodu kullanın.

Sub Korumakaldir()
    
    Application.ScreenUpdating = False
    
    Dim wSheet As Worksheet
    Dim Pwd As String
     
    Pwd = InputBox("Şifre girin (Şifre yoksa boş bırakın.)", "ŞİFRE GİRİŞ")
    On Error Resume Next
    For Each wSheet In Worksheets
        wSheet.Unprotect Password:=Pwd
    Next wSheet
    If Err <> 0 Then
        MsgBox "Yanlış Şifre. Sayfa koruması " & _
        "kaldırılamadı.", vbCritical, "Yanlış Şifre"
    End If
    On Error GoTo 0
    
     Application.ScreenUpdating = True     
End Sub

.

 

[volkantipi]

Kod kullanmadım hiç ya nasıl yapıcam excel üzerinde

 

[Merhum İdris SERDAR]

Kod kullanmadım hiç ya nasıl yapıcam excel üzerinde

.

Dosyanz ekte.

Sadece ilk sayfanın korumasını kaldırmıyor. Onun şifresini kullanarak kaldırabilirsiniz.

.

 

[volkantipi]

Çok teşekkür ederim elinize sağlık.