Public Sub SetSpreadStyle(AnySs As vaSpread, aFlg As Boolean)
With AnySs
If aFlg = True Then
.AutoClipboard = False
.EditModePermanent = False
.OperationMode = OperationModeSingle
.ProcessTab = False
.ScrollBarExtMode = True
Else
.AutoClipboard = True
.EditModePermanent = True
.OperationMode = OperationModeNormal
.ProcessTab = True
.ScrollBarExtMode = False
End If
End With
End Sub