protect sheet
 

I need to password protect the worksheet when the userform is closed and
unprotect it when the userform is open. Can anyone help me???

protect sheet
 

enyaw wrote:
I need to password protect the worksheet when the userform is closed and
unprotect it when the userform is open. Can anyone help me???

How about....

Call ProtectSheet(False, "Sheet1")
frmUserForm.Show 1
... do whatever provessing the form requires ...
Call ProtectSheet(True, "Sheet1")

Private Sub ProtectSheet(bProtect As Boolean, sSheet As String)

If bProtect Then
Worksheets(sSheet).Protect Password:="<your password",
AllowFiltering:=True
Else
Worksheets(sSheet).Unprotect ("<your password")
End If

End Sub



I use a string variable to hold the password, and ProtectSheet because
I can use it for different worksheets, but you can just as easily use
just the code within the IF statement if you wish.


HTH

protect sheet
 

enyaw wrote:
I need to password protect the worksheet when the userform is closed and
unprotect it when the userform is open. Can anyone help me???

How about....

Call ProtectSheet(False, "Sheet1")
frmUserForm.Show 1
... do whatever provessing the form requires ...
Call ProtectSheet(True, "Sheet1")

Private Sub ProtectSheet(bProtect As Boolean, sSheet As String)

If bProtect Then
Worksheets(sSheet).Protect Password:="<your password",
AllowFiltering:=True
Else
Worksheets(sSheet).Unprotect ("<your password")
End If

End Sub



I use a string variable to hold the password, and ProtectSheet because
I can use it for different worksheets, but you can just as easily use
just the code within the IF statement if you wish.


HTH