(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _ Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ Skomentowałem kod, więc nie powinieneś mieć żadnego problemu ze zrozumieniem go. Otwórz nową instancję programu Excel i wklej poniższy kod do modułu. Oto, co Spy++ pokaże ci za Okno "VBAProject Password" Jeśli chcesz stać się dobry w API jak FindWindow, FindWindowEx i SendMessage następnie pobierz narzędzie, które daje graficzny widok procesów systemu, wątków, okien i wiadomości okien. Once the uchwyt przycisku OK znajduje się, wystarczy użyć SendMessage, aby go kliknąć.ĭla API Ten jest najlepszym linkiem, który mogę polecić. Znajdź uchwyt Buttons w tym oknie za pomocą FindWindowEx Po znalezieniu uchwytu pola edycji, po prostu użyj SendMessage, aby do niego napisać. Po znalezieniu, znajdź uchwyt pola edycji w tym oknie, używając FindWindowEx Znajdź uchwyt okna "VBAProject Password" za pomocą FindWindow Powiedzmy, że mamy skoroszyt, który jest VBA obecnie projekt wygląda tak. To, co chcesz, można osiągnąć, jednak musisz upewnić się, że skoroszyt, dla którego chcesz usunąć ochronę VBA, musi zostać otwarty w osobnej instancji Excela. W niektórych przypadkach są niezawodne, ale nie zawsze. Zamieniłem to na blog post dla VBA i VB.Net.
0 kommentar(er)
