Avko 23.12.2024 16:37
Predmet:Nakon klika na excel file minimizirat i pokaze samo userform1

Postoji li kod kojim bi dvoklikom na excel file minimilizirali knjigu i ostavii samo prikazan userform1?

zxz 23.12.2024 17:22
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

Mislis na prozor na vb editora u exelu

Avko 24.12.2024 12:27
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

ostane na ekranu samo userform pokrenut, evo na slikama min knjigu i min vb ekran
Prilozi:
MINIMILIZIRATI.png (Velicina datoteke:234.34 KB)
MINIMILIZIRATI_2.png (Velicina datoteke:14.61 KB)

zxz 28.12.2024 23:59
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

Ovaj kod stavi u neki modul. Otvori novi modul ako nemas.
PreuzmiIzvorni kôd (Visual Basic):
  1. #If VBA7 Then
  2.     Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  3.     Private Declare PtrSafe Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  4.     Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long
  5.     Private Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long
  6.     Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
  7. #Else
  8.     Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  9.     Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  10.     Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long
  11.     Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long
  12.     Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
  13. #End If
  14.  
  15. Const SW_MINIMIZE = 6
  16.  
  17.  
  18. Private Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
  19.     Dim windowTitle As String
  20.     Dim processId As Long
  21.    
  22.     If IsWindowVisible(hwnd) Then
  23.         windowTitle = String$(256, Chr$(0))
  24.         GetWindowText hwnd, windowTitle, Len(windowTitle)
  25.         windowTitle = Left$(windowTitle, InStr(windowTitle, Chr$(0)) - 1)
  26.         If Len(windowTitle) > 0 Then
  27.             br = InStr(1, windowTitle, "Microsoft Visual Basic for Applications")
  28.             If br > 0 Then
  29.             ShowWindow hwnd, SW_MINIMIZE
  30.             Exit Function
  31.             End If
  32.         End If
  33.     End If
  34.     EnumWindowsProc = 1
  35. End Function
  36.  
  37. Function Minimiziraj()
  38.     EnumWindows AddressOf EnumWindowsProc, 0
  39. End Function
a ovo stavi u modul user form
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub UserForm_Initialize()
  2.    Minimiziraj
  3. End Sub

Avko 29.12.2024 11:28
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

hvala na trudu, ali ne radi.
Ono iza VBA7 se crveni.
Trazio po internetu pa naletio na neki excel primjer i tamo bilo ovo:

U ThisWorkbook staviti sljedece:

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Workbook_Open()
  2.  
  3.     Application.ScreenUpdating = False
  4.     Application.WindowState = xlMinimized
  5.  
  6.     UserForm1.Show vbModeless
  7.  
  8. End Sub

zxz 29.12.2024 16:13
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

Hehe nece ti to pomoc.
Posto nisi napisao koju verziju op sisitema imas i koji ofis imas.
Napisi mi to pa cu probati ali to mora da radi ako si dobro ti uradio.
isprobano na win 10 64 bitni i office ver 14 32 bit.

Avko 29.12.2024 20:37
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

Excel 2007, WIN10, 64bit

A sto ako to ponesem sa sobom pa pokusam na Excel 2016, WIN11, 64bit dali ce i onda raditi?

zxz 29.12.2024 22:07
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

trebalo bi da radi ako si dobro postavio.
Za kod trebas otvoriti modul.
i onda onaj kod na za poziv na modul od user forme.

Avko 30.12.2024 11:47
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

ono tvoje mi nije radilo, a ono sto sam nashao na internetu kod mene radi.

evo primjer kako ono sa interneta radi, jedina je mana sto onaj koji pokrece mora kliknuti na omoguci izvodenje jer nije folder u sigurnom folderu
Prilozi:
forma min textbox ddmmgggg.zip (Velicina datoteke:10.59 KB)

zxz 31.12.2024 00:09
Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1

Moje nije ni radilo ono sto ti hoces.
ja sam razumio da hoces kada pokrenes userform a ovo zatvaras pri otvaranju exela.