(22/02/2021, 23:09)feraz yazdı:Kayıt ekleme kodunu ılk satırına yukardaki end sub tan önceki satırada alttaki kodu ekleyin.Tabii sifre yerine istediğiniz yazılacak.ThisWorkbook.Worksheets("Ana Sayfa").Unprotect "sifre"
ThisWorkbook.Worksheets("Ana Sayfa").Protect "sifre"
Feraz Bey çok teşekkür ederim. Gayet basitçe hallolmuş.Sağolun.
(22/02/2021, 21:32)atoykan yazdı: Form açılırken sayfa korumasını kod ile kaldırın işlem bitince yeniden korumaya alın. Arşivimde benzer konuya ilişkin eski bir kod buldum, benzer bir yapı uygulayabilirsiniz.
Const PW As String = "password" '<-password yazan yere şifrenizi uygulayın
On Error GoTo exit_proc
With ActiveSheet
.Unprotect PW
.ShowDataForm
exit_proc:
.Protect PW
End With
End Sub
veya userinterface özeliğinden aşağıdakine benzer bir kod ile fayda sağlayabilirsiniz.
Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Protect , UserInterfaceOnly:=True
Next wks
End Sub
Dediğiniz gibi Feraz hocamın kodu işi çözdü. Sağolun.