Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
макрос Изменить фон окна
 
#1
31.03.2021 22:06:32
Привет как его запустить на новой версии офиса пишет что то связано с х64
помогите плиз
vb подсвечивает первые строки кода
Код
Option Explicit
Public Declare Function GetSysColorDlg Lib "ChColor" (ByVal hWnd As Long, ByVal Flags As Long) As Long
Public Declare Function WhiteColor Lib "ChColor" () As Long
Public Declare Function GrayColor Lib "ChColor" () As Long
Public Const CC_PREVENTFULLOPEN = 4
Public Const CC_FULLOPEN = 2
 
 
 
#2
31.03.2021 23:10:02
вот оригинальная надстройка
 
 
 
#3
31.03.2021 23:43:52
Код
#If Win64 Then
    #If VBA7 Then    ' Windows x64, Office 2010
        Declare PtrSafe Function GetTickCount Lib "Kernel32" () As LongLong
    #Else    ' Windows x64,Office 2003-2007
        Declare Function GetTickCount Lib "Kernel32" () As LongLong
    #End If
#Else
    #If VBA7 Then    ' Windows x86, Office 2010
        Declare PtrSafe Function GetTickCount Lib "Kernel32" () As Long
    #Else    ' Windows x86, Office 2003-2007
        Declare Function GetTickCount Lib "Kernel32" () As Long
    #End If
#End If
Вот по такому типу надо декларировавать функции
 
 
 
#4
31.03.2021 23:56:24
а как это заставить работать в Изменить фон окна.xla
 
 
 
#5
05.04.2021 19:54:18
подскажите пожалуйста как это заставить работать в Изменить фон окна.xla
 
 
 
#6
05.04.2021 20:45:46
Взломать надстройку и исправить код.
 
 
 
#7
05.04.2021 21:05:03
надстройка  без пароля вроди как
Изменено: fedsum - 06.04.2021 19:04:26
 
 
 
#8
10.02.2023 15:02:37
может кто нибудь запустил надстройку?
 
 
 
#9
10.02.2023 16:02:58
fedsum, там ещё код ссылается на библиотеку (ChColor.DLL), которой в Windows нет. Т.е. её нужно будет дополнительно скачивать и регистрировать эту DLL на каждом компьютере, где будет использоваться эта надстройка. Я внёс изменения, но не тестировал код. Так что оставляю это дело за вами - скачать DLL, скопировать её в C:\Windows\System32, потом зарегистрировать ей в Windows (как это делается поищите в интернет) и потом, возможно, приложенная в этом посте надстройка заработает.
P.S. Окна "ФонОкна" в новых Excel, вроде, нет. Поэтому вряд ли эта надстройка заработает на новых версиях Excel. Вы нашли что-то очень древнее (2002 года) и пытаетесь запустить на новых версиях программ.
Изменено: New - 10.02.2023 16:21:06
 
 
 
Страницы: 1
Наверх