if you close the form, close the entire excel

Închis
myhay99
Mesaje: 110
Membru din: Mar Aug 04, 2009 8:20 am
Localitate: Bucuresti
Contact:

if you close the form, close the entire excel

Mesaj de myhay99 » Lun Sep 07, 2009 5:39 pm

pot face in asa fel incat, daca cineva inchide o forma in excel/visual basic, fara a completa informatiile cerute de forma, sa fie inchis automat si acel sheet?

multumesc anticipat.

Avatar utilizator
Dr.Excel
Site Admin
Site Admin
Mesaje: 1997
Membru din: Sâm Ian 24, 2009 1:45 pm
Localitate: Bucharest
Contact:

Re: if you close the form, close the entire excel

Mesaj de Dr.Excel » Lun Sep 07, 2009 6:27 pm

adica sa fie inchis fisierul Excel cand se inchide formularul

la evenimentul deactivate se invoca metoda close:

ActiveWorkbook.Close False

false inseamna ca se inchide fara salvare, se pune true daca vrei sa se faca si salvarea fisierului curent

MCT, MCITP
MOS Master Instructor
IT Learning

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: if you close the form, close the entire excel

Mesaj de Dr. Cloud » Lun Sep 07, 2009 6:31 pm

Cred ca Mihai vrea sa spuna urmatorul lucru:
-eu deschid userform-ul, ma uit la el (ca deh... curiozitatea e mare si apoi il inchid (fara sa completez ceva)
Mihai vrea sa previna acest lucru.
Cum:...inchizand workbook-ul daca nu completezi nimic in textbox-uri.
Asa este Mihai sau ma insel?

myhay99
Mesaje: 110
Membru din: Mar Aug 04, 2009 8:20 am
Localitate: Bucuresti
Contact:

Re: if you close the form, close the entire excel

Mesaj de myhay99 » Lun Sep 07, 2009 6:38 pm

imi cer scuze pt neclaritarte!
am reusit sa creez un sistem de user name si password (stiu ca e o tampenie ca am facut asta in excel, dar asta e). Totul este functional cu o singura exceptie.
Se deschide fisierul si apara fereastra in care trebuie sa iti bagi username-ul si parola. Daca nu bagi username-ul si parola ok nu poti merge mai departe, INSA, daca inchizi pur si simplu fereastra in care ti se cer datele de autentificare, poti lucra linistit in fisier:)

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: if you close the form, close the entire excel

Mesaj de Dr. Cloud » Lun Sep 07, 2009 6:42 pm

Mihai trebuie sa iti creezi tu propria caseta de dialog in care userul sa isi introduca datele.
Pui si doua butoane: Ok si Cancel.
Ok devine vizibil daca bagi parola si numele (cu conditia sa fie corecte) si Cancel iti inchide workbook-ul.

myhay99
Mesaje: 110
Membru din: Mar Aug 04, 2009 8:20 am
Localitate: Bucuresti
Contact:

Re: if you close the form, close the entire excel

Mesaj de myhay99 » Lun Sep 07, 2009 6:44 pm

multumesc alexx, deja am facut ceea ce zici tu, si este totul functional. Doar ca daca inchizi pur si simplu caseta de dialog de la "x"-ul de sus, poti a lucrezi nestingherit in fisier, fara sa-ti mai bagi parola sau username:)

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: if you close the form, close the entire excel

Mesaj de Dr. Cloud » Lun Sep 07, 2009 7:17 pm

Ca sa ii opresti functionalitatea in vba introduci urmatorul cod:

Cod: Selectaţi tot

Private Sub UserForm_QueryClose _
  (Cancel As Integer, CloseMode As Integer)
    'Utilizatorul nu va putea folosi butonul de inchidere _
      (acel X rosu din coltul Userform-ului)
    If CloseMode = vbFormControlMenu Then
         'poti folosi acest mesage box de mai jos, dar nu este indicat
         'MsgBox "Imi pare rau dar nu poti folosi acest buton.", vbInformation, "Eroare"
        Cancel = True
    End If
End Sub
Eu am anulat acel mesaj in care iti zice ca nu poti folosi acel x rosu, dar este indicat sa nu ii pui mesaj.
El doar apasa pe acel x rosu si nu se intampla nimic.

myhay99
Mesaje: 110
Membru din: Mar Aug 04, 2009 8:20 am
Localitate: Bucuresti
Contact:

Re: if you close the form, close the entire excel

Mesaj de myhay99 » Lun Sep 07, 2009 7:34 pm

wow, deci voi chiar sunteti super tari. Multumesc inc-odata pt gasirea unei solutii care ma scuteste de f mult timp.
Multumesc si va datorez multe beri.

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: if you close the form, close the entire excel

Mesaj de Dr. Cloud » Lun Sep 07, 2009 7:38 pm

am reusit sa creez un sistem de user name si password (stiu ca e o tampenie ca am facut asta in excel, dar asta e)
Sa stii ca nu este o tampenie. Si eu am ales aceasta metoda la munca, mai ales ca multe workbook-uri le tin intrun folder share-uit si nu vreau sa imi umble toti in el.
Este o metoda foarte buna.

Multumesc si va datorez multe beri.
A fost placerea noastra sa oferim o mana de ajutor.

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: if you close the form, close the entire excel

Mesaj de Dr. Cloud » Mar Sep 08, 2009 2:03 pm

Poti sa pui sa se inchida workbook-ul atunci cand apasa el pe acel x rosu al userform-ului.
Modifici putin codul:

Cod: Selectaţi tot

Private Sub UserForm_QueryClose _
  (Cancel As Integer, CloseMode As Integer)
    'Utilizatorul nu va putea folosi butonul de inchidere _
      (acel X rosu din coltul Userform-ului)
    If CloseMode = vbFormControlMenu Then
         'inchide workbook-ul
         ActiveWorkbook.Close
        Cancel = True
    End If
End Sub

Închis

Înapoi la “Visual Basic for Application (VBA) cu Excel - Intrebari tehnice”