У мене є серія макросів у формі, яку я створив для того, щоб люди моїх людей могли використовувати. Коли вони заповнили документ і хочуть надіслати його відповідним людям, я створив ЗАКОННИЙ макрос. Це в основному очищує документ для них, зменшуючи розмір файлу до приблизно 50 КБ з 2 МБ + Макрос (нижче) в основному робить наступне:
A.) Видаліть кнопки керування, які я надіслав на форму, яку вони можуть використовувати під час введення своїх даних. Ці кнопки є; Заморожувати дані - перетворює всі формули документа в статичний текст Зберегти файл - надає файлу унікальне ім’я на основі вмісту комірки в документі FINISH - Кнопка, відповідна макросу FINISH
B.) Видаляє вкладку зі спадними даними на ній.
Коли я намагаюся використовувати кнопку FINISH для запуску макросу, я отримую повідомлення з написом "Неможливо запустити макрос" Формат оцінки - 2.xlsm'Button11_Click ". Макрос може бути недоступним у цій робочій книжці, або всі макроси можуть бути відключені "
Макроси в робочій книжці Однак, коли я піднімаю список макросів, він чітко показує, що макрос є в цій робочій книжці.
Sub Finish()
Application.DisplayAlerts = False
'
' Finish Macro
' Finish Document For Sending out
'
'
Sheets("DropDownData").Select
ActiveWindow.SelectedSheets.Delete
ActiveSheet.Shapes.Range(Array("Button 10")).Select
Selection.Delete
Selection.Cut
ActiveSheet.Shapes.Range(Array("Button 11")).Select
Selection.Delete
Selection.Cut
ActiveSheet.Shapes.Range(Array("Button 9")).Select
Selection.Delete
Selection.Cut
Range("A6").Select
Application.DisplayAlerts = True
End Sub
Хтось може допомогти у цьому?