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