Работа с данными на форме

Private Sub CommandButton1_Click()
Dim str As Integer
Dim stlb As Integer
 
With ActiveWorkbook.Worksheets(1) 'предполагается, что данные на 1й 
                                  'лист вставляются
    str = 1
    Do Until .Cells(str, 1).Value = '' 'Поиск первой непустой ячейки
                                       ' в 1м столбце
        str = str + 1
    Loop
    .Cells(str, 1).Value = Me.TextBox1.Value
End With
End Sub

Dim cbCntr As CommandBarControl
 
For Each cbCntr In Application.CommandBars('Standard').Controls
If cbCntr.Caption Like '*Печать*' Then cbCntr.Visible = False: Exit For
Next cbCntr

For Each cbCntr In Application.CommandBars('Cell').Controls
    If cbCntr.Caption Like '*Очистить содер*' Then cbCntr.Visible = False: Exit For
Next cbCntr

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
Select Case txtUserName 'Значение этой переменной можно хранить во
'внешнем файле или Реестре, записывая его туда из поля формы
'UserForm 'пользователь' (при желании зашифровав)
Case 'Decadent':boolПраво=True
Case 'vlth':boolПраво=False
...
End Select
 
If boolПраво=False then
For Each cbCntr In Application.CommandBars('Cell').Controls
If cbCntr.Caption Like '*Удалить*' Then
cbCntr.Visible = False: Exit For
Еlse
cbCntr.Visible = True: Exit For
Next cbCntr
 
End Sub

Dim CmdBar As CommandBar
 
On Error Resume Next
For Each CmdBar In CommandBars
If CmdBar.Name = 'Имя_панели' Then
CmdBar.Protection = msoBarNoCustomize + msoBarNoMove + msoBarNoChangeVisible'(Эту строку можно продолжать ... + msoBarNoResize и т.д.)
End If
Next CmdBar

Sub На_каждую_хитрую_задницу()
On Error Resume Next
For Each панель In Application.CommandBars
панель.Protection = msoBarNoProtection
Next панель
End Sub

Sub Копировать () 'Для кнопки копировать на панели инструментов и т.д.
Msgbox ('Ну и что мы собрались копировать?')
End sub