sayfa koruma ekle butonu

[otelci01]

Merhaba Sayfayı koru makrosu yapmak istiyorum aynı zamanda korumayı kaldır butonu teşekkürler şimdiden
Butona bastığım zaman koruma şifresinide istesin


Sub SEÇİLEN_ALANI_KORU()
ActiveSheet.Unprotect
Cells.Locked = False
Selection.Locked = True
ActiveSheet.Protect
End Sub

 

[Orion1]

Merhaba Sayfayı koru makrosu yapmak istiyorum aynı zamanda korumayı kaldır butonu teşekkürler şimdiden
Butona bastığım zaman koruma şifresinide istesin


Sub SEÇİLEN_ALANI_KORU()
ActiveSheet.Unprotect
Cells.Locked = False
Selection.Locked = True
ActiveSheet.Protect
End Sub

kaldır;

ActiveSheet.Unprotect

koru;

ActiveSheet.Protect

 

[otelci01]

Merhaba, sayfayı koru makrosuna şifre ekranı getirebilirmiyiz şimdiden teşekkürler

 

[Orion1]

Merhaba, sayfayı koru makrosuna şifre ekranı getirebilirmiyiz şimdiden teşekkürler

Sub Sayfa_koruma()
ActiveSheet.Protect "evren"

End Sub
Sub koruma_kaldir()
Dim deg As String
deg = InputBox("Sayfa Koruma Şifresini Giriniz : ", "SAYFA KORUMA ŞİFRESİ")
If deg = "evren" Then
    ActiveSheet.Unprotect deg
    Else
    MsgBox "yanlış şifre girişi", vbCritical, "UYARI"
End If
End Sub

 

[otelci01]

Merhaba, koru makrosunda da ekranı korumak için bir şifre veriniz? diyemezmiyiz istedikleri zaman şifreyi değiştirebilsinler.

 

[Orion1]

Merhaba, koru makrosunda da ekranı korumak için bir şifre veriniz? diyemezmiyiz istedikleri zaman şifreyi değiştirebilsinler.

Sub Sayfa_koruma()
Dim sifre As String
sifre = InputBox("ekranı korumak için bir şifre veriniz:", "ŞİFRE GİR")
ActiveSheet.Protect sifre

End Sub