Guru do Excel e Power BI

Olá

Crie um comando para salvar uma planilha, mas não estou sabendo deixar ele fixo na planilha e do jeito que fiz aparece como um pop up, e deste ficou ruim, pois vou precisar salvar a planilha após a atividade estiver concluída.



Ou questão, Como bloquear a digitação de algumas colunas, pois forma que fiz, está por coluna por coluna .


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column =3 Then
If Target.Row >=4 Then
Beep
Cell(Target.Row, Target.Column).Offset(0,1).Select
End if
End if

End Sub


Grato

Estou fazendo uma por uma, tem outra forma de escrever a função adicionar todas as colunas de uma vez ?



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
If Target.Row >= 43 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If

If Target.Column = 6 Then
If Target.Row >= 43 Then
Beep
Cells(Target.Row, Target.Column).Offset(0, 1).Select
End If
End If


If Target.Column = 11 Then
If Target.Row >= 4 Then