On Sep 19, 11:10 pm, Maruza wrote:
I need to input data only by macro programming.
Data sheet must be protected and only macro can unprotect to write data entry.
Then macro protects data sheet again to avoid any change.

I already try to protect with menu:
Tools Protection Protect sheet

But macro cannot remember the password.
Password is now always blank, which means can be unprotected by anybody.

To unprotect the sheet:
Sheets("Sheet2").Unprotect Password:="YourPassword"

To protect the sheet:
Sheets("Sheet2").Protect Password:="YourPassword"

To run a check and proceed accordingly:
Sub thiser()
Dim pw As String
pw = "YourPassword"
With Sheets("Sheet2")
If .ProtectContents = True Then
.Unprotect Password:=pw
Else
.Protect Password:=pw
End If
End With
End Sub