Запрет на изменение файла данных

application.visible=false

Sub Workbook_Open()
Application.Visible = False
End Sub

Const pannelName = "имя панельки"
 
Sub Auto_Open() ' выполняется в момент открытия файла
    Dim chk As Boolean
    Dim button_01 As Object
    
    chk = False
    On Error Resume Next
        chk = (Application.CommandBars(pannelName).Name <> "") ' проверяем наличие панельки
    On Error GoTo 0
    
    If Not chk Then ' панельки нет - создаем
        Application.CommandBars.Add(Name:=pannelName, Position:=msoBarTop, Temporary:=True).Visible = True
        Set button_01 = Application.CommandBars(pannelName).Controls.Add(Type:=msoControlButton)
        With button_01
            .OnAction = "имя макроса"
            .FaceId = 6703
            .Caption = "Разметить..." ' то что будет показываться при наведении курсора
        End With
    End If
End Sub
 
 
Sub auto_close() ' выполняется в момент закрытия файла
    Dim tmp As Variant
    Dim cb As Variant
    Dim funcName As String
    
    If Not ThisWorkbook.Saved Then ' защита от выхода из макроса без сохранения
        If MsgBox("Текущий макрос был изменен. Сохранить изменения?", vbYesNo) = vbYes Then
            ThisWorkbook.Save
        End If
    End If
 
    For Each cb In CommandBars
        If cb.Name = pannelName Then
            cb.Delete
            Exit For
        End If
    Next cb
 
    On Error Resume Next
        ThisWorkbook.Close ' может и не закрыться, если используется кем-то
    On Error GoTo 0
End Sub