В настоящее время у меня есть несколько макросов, которые работают с использованием следующих команд:
Sub Workbook_Open()
Application.OnKey "^+{Q}", "Load_Theme"
Application.OnKey "^+{W}", "Table_Headings"
Application.OnKey "^+{E}", "Table_Rows_Green"
Application.OnKey "^+{R}", "Table_Rows_Darker_Green"
Application.OnKey "^+{T}", "Table_Rows_Blue"
Application.OnKey "^+{A}", "Autofill_To_The_Right"
Application.OnKey "^+{S}", "Increase_Decimal"
Application.OnKey "^+{D}", "Decrease_Decimal"
Application.OnKey "^+{Z}", "Auto_Colour_Numbers"
Application.OnKey "^+{X}", "Number_Format_Cycle"
Application.OnKey "^+{C}", "Flip_Sign"
Application.OnKey "^+{V}", "Divide_by_1000"
Application.OnKey "^+{B}", "Autofit_Column"
Application.OnKey "^+{\}", "IF_Error_Wrap"
End Sub
Sub Workbook_BeforeClose(cancel As Boolean)
Application.OnKey "^+{Q}"
Application.OnKey "^+{W}"
Application.OnKey "^+{E}"
Application.OnKey "^+{R}"
Application.OnKey "^+{T}"
Application.OnKey "^+{A}"
Application.OnKey "^+{S}"
Application.OnKey "^+{D}"
Application.OnKey "^+{Z}"
Application.OnKey "^+{X}"
Application.OnKey "^+{C}"
Application.OnKey "^+{V}"
Application.OnKey "^+{B}"
Application.OnKey "^+{\}"
End Sub
Хотя макросы отлично работают на моем компьютере, когда я копирую код модуля и код Рабочего листа (тот, что выше) в кого-тоеще VBA, макросы не запускаются
Для пояснения, макросы отлично работают на другом компьютере (путем их индивидуального выбора с помощью alt + F8), но ярлыки не работают (даже если они работаютна моем компьютере)
Что-то не так с кодом?Или кто-нибудь знает о настройках Excel, которые могут мешать другому компьютеру, а не моему?
Любая помощь будет высоко ценится
Заранее спасибо,
Томас
Код модуля находится в «Модуле 1», а код, который я разместил выше, находится в «ThisWorkbook»