Sayfa Korumasını Kaldırma

[quesh]

Arkadaşlar Ömer Bey tarafından bana tüm sayfaları korumaya almak için yazılmış bir kod bulunmakta şu şekilde.

Sub SayfaKoru()
For Each sayfa In ActiveWorkbook.Worksheets
With sayfa
.Unprotect "123"
.Cells.Locked = False
.Cells.FormulaHidden = False
.Range("X:AD").Locked = True
.Range("X:AD").FormulaHidden = True
.Protect "123"
End With
Next sayfa
End Sub


bu kodu uyguladıktan sonra "tüm sayfaların" korumasını "aynı anda" kaldırabilmek için bir koda ihtiyacım var.

yardımlarınızı bekliyorum.

 

[İhsan Tank]

Arkadaşlar Ömer Bey tarafından bana tüm sayfaları korumaya almak için yazılmış bir kod bulunmakta şu şekilde.

Sub SayfaKoru()
For Each sayfa In ActiveWorkbook.Worksheets
With sayfa
.Unprotect "123"
.Cells.Locked = False
.Cells.FormulaHidden = False
.Range("X:AD").Locked = True
.Range("X:AD").FormulaHidden = True
.Protect "123"
End With
Next sayfa
End Sub


bu kodu uyguladıktan sonra "tüm sayfaların" korumasını "aynı anda" kaldırabilmek için bir koda ihtiyacım var.

yardımlarınızı bekliyorum.

merhaba
module

Sub sayfakorumayı_kaldır()
For Each sayfa In ActiveWorkbook.Worksheets
With sayfa
.Unprotect "123"
.Cells.Locked = False
.Cells.FormulaHidden = False
.Range("X:AD").Locked = True
.Range("X:AD").FormulaHidden = True
.Unprotect "123"
End With
Next sayfa
End Sub

bu kod'u yapıştırıp çalışın.

 

[Merhum İdris SERDAR]

.

Sub Sayfaac()
For Each sayfa In ActiveWorkbook.Worksheets
With sayfa
.Unprotect "123"
End With
Next sayfa
End Sub

Deneyin.

 

[quesh]

teşekkür ederim ancak ben , parola sormasını istiyorum ama parolayı çalısma sayfasında kac tane sayfa varsa o kadar soruyor ardı ardına , parolayı bir kere girsem de tüm sayfaların korumasını kaldırsa.. bu mümkün müdür?

teşekkürler

 

[security]

Sub SayfaKoru_iptal()
Application.Dialogs(xlDialogProtectDocument).Show
End Sub
kodunu deneyin...

 

[quesh]

şifre sormuyor
teşekkür ederim.

Sub SayfaKoru_iptal()
For Each sayfa In ActiveWorkbook.Worksheets
With sayfa
.Unprotect "123"
.Cells.Locked = False
.Cells.FormulaHidden = False
.Range("X:AD").Locked = True
.Range("X:AD").FormulaHidden = True
End With
Next sayfa
End Sub

 

[quesh]

ben şifre sormasını istiyorum ancak yanıtladığım şifreyle tüm sayfaların kilidini aynı anda açmasını istiyorum .

 

[security]

şifre sormuyor
teşekkür ederim.

Kod Güncellendi..

Sub SayfaKoru_iptal()
Application.Dialogs(xlDialogProtectDocument).Show
End Sub

 

[quesh]

çok teşekkür ederim...

Kod Güncellendi..

Sub SayfaKoru_iptal()
Application.Dialogs(xlDialogProtectDocument).Show
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun..

Sub SifreKaldır()
sifre = InputBox("Şifreyi girin", "Administrators Girişi")
    If sifre <> "[COLOR=red]123[/COLOR]" Then Exit Sub
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Unprotect "[COLOR=red]123[/COLOR]"
    Next sayfa
End Sub

.

 

[quesh]

Bir sorum daha olacak; aşağıdaki kodu incelediğinizde şifre doğruysa bu uyarıyı veriyor ve işlemi bitiriyor ve tekrar bir uyarı veriyor. peki şifre yanlışsa "şifre hatalı" uyarısını nereye ve hangi komutla koymalıyım ? ve şifre hatalıysa işlemi durdurmasını istiyorum.

teşekkür ederim


Private Sub CommandButton4_Click()
sifre = InputBox("Lütfen Şifreyi girin", "YETKİLİ GİRİŞİ")
If sifre = "123" Then MsgBox "Şifre Doğru", vbInformation, "OK"
For Each sayfa In ActiveWorkbook.Worksheets
sayfa.Unprotect "123"
Next sayfa
MsgBox "Tüm Sayfaların Kilidi Açıldı!", vbInformation, "BİTTİ"
End Sub

 

[Mahir64]

Merhaba

Önce kod çalışıyormu onu kontrol edin şifre girmeden de sayfa korumalarını açıyır.

<> "123" Exit Sub

olmadan InputBox görevini bu kodda yapmaz.

 

[quesh]

o zaman şöyle söyleleyim

Private Sub CommandButton4_Click()
sifre = InputBox("Şifreyi girin", "Yetkili Girişi")
If sifre <> "123" Then
msgbox "şifre yanlış", "vbcritical", "uyarı"
Exit Sub
For Each sayfa In ActiveWorkbook.Worksheets
sayfa.Unprotect "123"
Next sayfa
MsgBox "Tüm Sayfaların Koruması Kaldırıldı ", vbInformation, "MURAT H."
End Sub

şeklinde düzenlemek istiyorum ancak BLOCK IF WIHOUT ENDIF hatası alıyorum.
Teşekkürler

Önce kod çalışıyormu onu kontrol edin şifre girmeden de sayfa korumalarını açıyır.

<> "123" Exit Sub

olmadan InputBox görevini bu kodda yapmaz.

 

[Ömer]

Bu şekilde deneyiniz..

Sub SifreKaldır()
sifre = InputBox("Lütfen Şifreyi girin", "YETKİLİ GİRİŞİ")
    If sifre = "123" Then
        For Each sayfa In ActiveWorkbook.Worksheets
            sayfa.Unprotect "123"
        Next sayfa
        MsgBox "Tüm Sayfaların Kilidi Açıldı!", vbInformation, "BİTTİ"
    Else
        MsgBox "Yanlış Şifre Girdiniz!", vbInformation, "HATA"
    End If
End Sub

.

 

[security]

Sub security()
 
sifre = InputBox("Lütfen Şifreyi girin", "YETKİLİ GİRİŞİ")
If sifre = "123" Then
 
MsgBox "Şifre Doğru", vbInformation, "OK"
 
For Each sayfa In ActiveWorkbook.Worksheets
sayfa.Unprotect "123"
Next sayfa
 
 
MsgBox "Tüm Sayfaların Kilidi Açıldı!", vbInformation, "BİTTİ"
 
Else
MsgBox ("Yanlıs Sifre")
End If
 
End Sub