1. 保护特定选定单元格： 使用Worksheet对象的Protect方法，可以保护指定的单元格，示例如下：

Sub ProtectCells()
    '定义要保护的单元格范围
    Dim rng As Range
    Set rng = Range("A1:A10")
    
    '保护单元格
    rng.Locked = True
    ActiveSheet.Protect Password:="mypassword"
End Sub

上述代码将A1:A10区域内的单元格设为保护状态，并设置密码为“mypassword”。

2. 取消保护特定选定单元格： 使用Worksheet对象的Unprotect方法，可以取消指定的单元格保护，示例如下：

Sub UnprotectCells()
    '定义要取消保护的单元格范围
    Dim rng As Range
    Set rng = Range("A1:A10")
    
    '取消保护单元格
    rng.Locked = False
    ActiveSheet.Unprotect Password:="mypassword"
End Sub

上述代码将A1:A10区域内的单元格设为非保护状态，并设置密码为“mypassword”。