"Tüm Kitaba" olarak algılanan komutu "aktif sayfaya"şeklinde değiştirmek

[asiye_konya]

"Tüm Kitaba" olarak algılanan komutu "aktif sayfaya"şeklinde değiştirmek

Arkadaşlar aşağıdaki iki makrom tüm kitaba uyguluyor. Bunu aktif sayfaya şeklinde nasıl değiştirebilirim.

Sub Sayfa_Koru()
For Each syf In Worksheets
syf.Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
syf.EnableSelection = xlNoSelection
Next
MsgBox "Kilitlendi.", vbInformation, "Bilgi!"
End Sub
---------------------------------------------------------
Sub Koruma_Ac()
Sifre = Application.InputBox("Şifreyi Giriniz", "Hoşgeldiniz")
If Sifre = False Then Exit Sub
If Sifre = "1234" Then
For Each syf In Worksheets
syf.Unprotect Sifre
Next
Else:
MsgBox "Yanlış Şifre", vbCritical, "Uyarı!"
End If
End Sub

 

[asiye_konya]

Yok mu arkadaşlar bir cevap verecek :'(

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayfa_Koru()
ActiveSheet.Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
MsgBox "Kilitlendi.", vbInformation, "Bilgi!"
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Koruma_Ac()
Sifre = Application.InputBox("Şifreyi Giriniz", "Hoşgeldiniz")
If Sifre = False Then Exit Sub
If Sifre = "1234" Then
ActiveSheet.Unprotect Sifre
Else:
MsgBox "Yanlış Şifre", vbCritical, "Uyarı!"
End If
End Sub

.