22 | 02 | 2017

Protect Sheet With Password

 Protect a sheet with a password with the code below. 

Sub LockSheetWithPassword(ByVal Password As String)
 
'****************************************
'*** Code from VisibleVisual.com ********
'****************************************
 
Dim Password    'This line of code is optional
ActiveSheet.Protect Password, True, True, True
End Sub
 
 
Sub UnLockSheetWithPassword(ByVal Password As String)
ActiveSheet.Unprotect Password
End Sub
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2174911
Latest Articles