Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → Nakon klika na excel file minimizirat i pokaze samo userform1


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


zxz (30.12.2024 23: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.

Avko (30.12.2024 10: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

zxz (29.12.2024 21: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 (29.12.2024 19: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 15: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 10: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 (28.12.2024 22: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 (24.12.2024 11: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

zxz (23.12.2024 16:22):
Predmet: Re:Nakon klika na excel file minimizirat i pokaze samo userform1
Mislis na prozor na vb editora u exelu

Avko (23.12.2024 15: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?

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 19 pm.