Aktif çalışma sayfasını korumasını aktifleştiren veya pasifleştiren VBA kodudur.
Option Explicit
Sub AktifCalismaSayfasiniKoru()
ActiveSheet.Protect Password:="ORNEK_PAROLA"
End Sub
Sub AktifCalismaSayfasininKorumasiniKaldir()
ActiveSheet.Unprotect Password:="ORNEK_PAROLA"
End Sub