Page 7 -

eri Excel Ders-7

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

Örnek kod ve çıktısı

Sub kilitleme()
sifre = InputBox("çalışma sayfasını kilitlemek mi istiyorsunuz", "kilit ekranı", "bu alana şifre girin")
ActiveWorkbook.Protect Password:=sifre, structure:=True, Windows:=False

End Sub

Sub kilitacma()
sifre = InputBox("çalışma sayfasını açmak mı istiyorsunuz", "kilit ekranı", "bu alana şifre girin")
ActiveWorkbook.Unprotect Password:=sifre

End Sub