Page 5 -

eri Excel Ders-7

Çalışma Kitabını Kilitleyip Açma işlemini makro kodu ile yapmak:

Örnek kod ve çıktısı

Sub kilitleme()
sifre = ActiveSheet.Range("g5").Value
ActiveWorkbook.Protect Password:=sifre, structure:=True, Windows:=faalse

End Sub

Sub kilitacma()
' sifre = ActiveSheet.range("g5").Value
ActiveWorkbook.Unprotect Password:=sifre

End Sub