[es] - dali moze da se vidi samo FORM MASKA

predrag69

Član broj: 256899
Poruke: 28
77.28.161.*

+3 Profil

dali moze da se vidi samo "FORM MASKA"

^{11.05.2010. u 15:49 - pre 169 meseci}

Imam tabelu u excel-u.Tabela izgleda ovako: A4- reg,B4-br s-ka,C4-cas,D4-litri.Kada selektiram ova polja i pritisnem na "FORM" Data>Form pojavi se maska Form koja sadrzi polja koja su selektirana iz tabele.Kako popunjavam polja u Formu avtomatski se popunjava i tabela.moje pitanje je: Kada se otvori Excel dokumenat dali moze da se vidi samo "Form maska"koju korisnik treba da popuni a radni list u kojem je tabela da ostane sakriven ?Ako moze kako ?
POZDRAV

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: dali moze da se vidi samo "FORM MASKA"

^{11.05.2010. u 16:04 - pre 169 meseci}

Ne znam da li je to odgovor koji si tražio ali barem jedan list uvek mora biti vidljiv.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
212.200.65.*

+9 Profil

Re: dali moze da se vidi samo "FORM MASKA"

^{12.05.2010. u 01:52 - pre 169 meseci}

Excelova predefinisana forma koju koristis ne moze da zadovolji to sto hoces. Ona je deo excela i kao takva je vrlo ogranicena. Za to sto ti hoces, treba da napravis sopstvenu formu (neki userform) u vba, pa onda kroz procedure forme da omogucis ili onemogucis ostale detalje. Jedan primer procedure za formu koja je "dominatna", tj. koja se prostire preko celog ekrana, i "sakriva" sheet je preuzet sa ovog foruma i glasi:

'****** deklaracije za skidanje komandne linije sa forme
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'***** Funkcija za brisanje znaka X za zatvaranje forme *****
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
'Private Declare Function FindWindowA Lib "user32" _
'(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'***************************************************************************

Private Sub UserForm_Initialize()

'***** Ostali deo kode za znak X zatvaranje forme *****
'znak X namerno uklonjen u slucaju ako utilizator zeli zatvoriti formu pre isteknutog vremena
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
'*************************************************************************

End Sub

Odgovor na temu