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.
Public Function LockIt(ByVal nlValue As Integer, ByVal rangeIN As String) As Boolean On Error GoTo ErrHandler: Dim lLock As Boolean Dim lSuccess As Boolean If nlValue = 1 Then lLock = False Else lLock = True End If Sheet1.range(rangeIN).Locked = lLock Debug.Print Sheet1.range(rangeIN).Locked LockIt = lLock ErrCleanup: LockIt = lSuccess Exit Function ErrHandler: lSuccess = False MsgBox Err.Description, vbExclamation + vbOKOnly, "Error Encountered" Resume ErrCleanup End Function
|Excel Conditional Statements||11||36|
|VBA name newly created sheet||4||22|
|Excel Need to return the text of a filter column||11||20|
|How to copy formulas in 1 column through manual page breaks in Excel||1||23|