Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Sub prot() Dim rng As Range Dim prot As Range Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.ProtectContents = True Then ws.Unprotect ws.Cells.Locked = False On Error Resume Next Set prot = ws.Cells.SpecialCells(xlCellTypeFormulas, 23) On Error GoTo 0 If Not prot Is Nothing Then prot.Locked = True For Each rng In prot If rng.Parent.ProtectContents = False Then rng.Parent.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False Next End If Set prot = Nothing Next End Sub
|Trying to fix NUMBER ARRANGE Button to load faster and more efficiently.||20||24|
|Excel remove Chars in Conditional formating.||6||19|
|What is MicroStrategy.NET?||2||28|
|Conditional Formatting Rule in Excel 2007||5||0|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!