Sub ProtectMe() Dim ws As Excel.Worksheet For Each ws In Worksheets ws.Protect Password:="password1" Next ws End Sub
Looking for relevant Development Whitepapers? Visit the SearchSQLServer.com Research Library.