Я бы так сделал:
Например в книге есть 3 макроса, 2 из которых пользователю А, а третий польз-ю Б.
При открытии файла:
1. скрыть три кнопки
2. Если имя юзера равно А то отобразить кнопки 1 и 2 иначе отобразить кнопку 3
Private Sub Workbook_Open()
ActiveSheet.Shapes("Button 1").Visible = False
ActiveSheet.Shapes("Button 2").Visible = False
ActiveSheet.Shapes("Button 3").Visible = False
If Environ("UserName")= "A" Then 'Вместо А имя User-а
ActiveSheet.Shapes("Button 1").Visible = True
ActiveSheet.Shapes("Button 2").Visible = True
Else
ActiveSheet.Shapes("Button 3").Visible = True
End If
End Sub
Например в книге есть 3 макроса, 2 из которых пользователю А, а третий польз-ю Б.
При открытии файла:
1. скрыть три кнопки
2. Если имя юзера равно А то отобразить кнопки 1 и 2 иначе отобразить кнопку 3
Private Sub Workbook_Open()
ActiveSheet.Shapes("Button 1").Visible = False
ActiveSheet.Shapes("Button 2").Visible = False
ActiveSheet.Shapes("Button 3").Visible = False
If Environ("UserName")= "A" Then 'Вместо А имя User-а
ActiveSheet.Shapes("Button 1").Visible = True
ActiveSheet.Shapes("Button 2").Visible = True
Else
ActiveSheet.Shapes("Button 3").Visible = True
End If
End Sub