Private Sub PwProtectSheet() Dim strPW As String strPW = "password" With Worksheets(1) .EnableSelection = xlNoSelection .Protect Password:=strPW, Contents:=True .xlButtonControl(3).Enable = False End With End Sub
|Consolidate xl 2010 worksheets with text||2||24|
|sorry something went wrong and word was unable to start (2)||2||35|
|Hard coding time and date into Excel||2||32|
|How do I crate a Pivot table in Excel||2||10|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!