Snasui Excel Forum

Code: Select all

Sub Macro1()
ActiveSheet.Unprotect Password:="s1234"
ActiveCell.Locked = False
    Range("G6:J22,M6:M22,O6:AA22").Select
    Range("O6").Activate
    Range("G6:J22,M6:M22,O6:AA22,B26:F44").Select
    Range("B26").Activate
    Selection.ClearContents
    ActiveSheet.Protect Password:="s1234"
End Sub

Code: Select all

Option Explicit
Private Sub Workbook_Open()
Sheets(1).Unprotect Password:="s1234"
Sheets(1).Cells.Locked = False
End Sub

Code: Select all

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    lock1
End Sub

Code: Select all

Sub lock1()
    ActiveSheet.Unprotect Password:="s1234"
    If ActiveCell.Row <> 1 Then
        ActiveCell.Offset(-1, 0).Locked = True
        ActiveSheet.Protect Password:="s1234"
    Else
    ActiveCell.Locked = True
    ActiveSheet.Protect Password:="s1234"
    End If
End Sub

Code: Select all

Sub Macro1()
ActiveSheet.Unprotect Password:="s1234"
ActiveCell.Locked = False
    Range("G6:J22,M6:M22,O6:AA22").Select
    Range("O6").Activate
    Range("G6:J22,M6:M22,O6:AA22,B26:F44").Select
    Range("B26").Activate
    Selection.ClearContents
    ActiveSheet.Protect Password:="s1234"
End Sub

Code: Select all

Sub Macro1()
    Application.EnableEvents = False
    ActiveSheet.Unprotect Password:="s1234"
    ActiveCell.Locked = False
    Range("G6:J22,M6:M22,O6:AA22").Select
    Range("O6").Activate
    Range("G6:J22,M6:M22,O6:AA22,B26:F44").Select
    Range("B26").Activate
    Selection.ClearContents
    ActiveSheet.Protect Password:="s1234"
    Application.EnableEvents = True
End Sub