こんな感じでロック解除 -------------------------------------------------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' ' A1セルのダブルクリックでシート保護の解除 ' 再度A1セルをダブルクリックするとシート保護 ' If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If Me.ProtectContents = True Then Me.Unprotect Else Me.Protect End If Cancel = True End Sub 

こんな感じでロック解除 -------------------------------------------------------------------------------------- ...
=======================================

こんな感じでロック解除

--------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
' A1セルのダブルクリックでシート保護の解除
' 再度A1セルをダブルクリックするとシート保護
'
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Me.ProtectContents = True Then
Me.Unprotect
Else
Me.Protect
End If
Cancel = True

End Sub


http://ift.tt/1abnmbU
June 13, 2017 at 04:54PM