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.

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

The code given below will make it easy for anyone to learn the password if
they look in the code.

You can restrict access to your VB code by going to your project properties
(right click on your project in the project explorer window). Navigate to the
Protection tab and check the Lock project for viewing option. Enter a
password.

Anyone trying to access the VB code will require this password.

--
Amrit


"JW" wrote:

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

On Sep 20, 4:48 am, AR wrote:
The code given below will make it easy for anyone to learn the password if
they look in the code.

You can restrict access to your VB code by going to your project properties
(right click on your project in the project explorer window). Navigate to the
Protection tab and check the Lock project for viewing option. Enter a
password.

Anyone trying to access the VB code will require this password.

--
Amrit

"JW" wrote:
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

True, very true. It is always best to lock down VBA code IMO.

Note that project protection is easily bypassed by techniques reely
available to anyone who has the ability to find these groups...



In article ,
AR wrote:

Anyone trying to access the VB code will require this password.

tks a lot guys

"JW" wrote:

On Sep 20, 4:48 am, AR wrote:
The code given below will make it easy for anyone to learn the password if
they look in the code.

You can restrict access to your VB code by going to your project properties
(right click on your project in the project explorer window). Navigate to the
Protection tab and check the Lock project for viewing option. Enter a
password.

Anyone trying to access the VB code will require this password.

--
Amrit

"JW" wrote:
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

True, very true. It is always best to lock down VBA code IMO.