Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 23.12.2024 16:37
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


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?
zivot je moja domovina.
↑  ↓

#2 23.12.2024 17:22
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re:Nakon klika na excel file minimizirat i pokaze samo userform1
Mislis na prozor na vb editora u exelu
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 24.12.2024 12:27
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


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

Slicice prilozenih slika:
MINIMILIZIRATI.png
Tip datoteke:Informacije o tipu datoteke za:png png
Preuzimanja:3
Velicina datoteke:234.34 KB
Velicina slike: 1642 x 884 Pikseli
MINIMILIZIRATI_2.png
Tip datoteke:Informacije o tipu datoteke za:png png
Preuzimanja:2
Velicina datoteke:14.61 KB
Velicina slike: 1027 x 582 Pikseli

zivot je moja domovina.
↑  ↓

#4 28.12.2024 23:59
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 29.12.2024 11:28
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


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
zivot je moja domovina.
↑  ↓

#6 29.12.2024 16:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 29.12.2024 20:37
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


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?
zivot je moja domovina.
↑  ↓

#8 29.12.2024 22:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 30.12.2024 11:47
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


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:
Informacije o tipu datoteke za:zip  forma min textbox ddmmgggg.zip
Preuzimanja:1
Velicina datoteke:10.59 KB

zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 30.12.2024 11:49 od strane Avko. ↑  ↓

#10 31.12.2024 00:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 8: 18 pm.