Elektroda.pl
Elektroda.pl
X
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Excel VBA - blokowanie edycji -

tabix94 14 Sep 2016 12:07 3843 9
  • #1
    tabix94
    Level 7  
    Cześć wszystkim!
    Mam pomysł ale nie mam za bardzo wiedzy żeby go wykonać.
    Mianowicie mam plik Excel z markami który jest baza danych magazynu. Plik jest udostępniony na serwerze i pracują na nim do 5-6 osob.
    Chciałbym zablokować poszczególne komórki aby ich edycja była możliwa po wpisaniu hasła w wyskakujacym okienku i musiało by wyskakiwac z każdą próba edycji.

    Był bym bardzo wdzięczny za pomoc.
  • #2
    Flesz
    Level 22  
    Do tego nie jest potrzebna znajomość VBA.
    Excel ma funkcję blokowania komórek - zaznaczamy komórki do zablokowania, blokujemy i włączamy ochronę arkusza.
    W momencie włączenia ochrony Excel zapyta o hasło.
    Trzeba sobie włączyć widoczność paska narzędzi "ochrona"
  • #3
    tabix94
    Level 7  
    Flesz wrote:
    Do tego nie jest potrzebna znajomość VBA.
    Excel ma funkcję blokowania komórek - zaznaczamy komórki do zablokowania, blokujemy i włączamy ochronę arkusza.
    W momencie włączenia ochrony Excel zapyta o hasło.
    Trzeba sobie włączyć widoczność paska narzędzi "ochrona"

    Tak zgadzam się z tobą ale problem polega na tym że mam makro co usuwa filtry i nie działa.ono wtedy gdy są zablokowane komórki.
  • Helpful post
    #4
    JRV
    VBA, Excel specialist
    Makro może odblokowac i blokowac z powrotem
    Code: vb
    Log in, to see the code
  • #5
    tabix94
    Level 7  
    Super ta opcja z możliwością blokowania przez makro. Tylko jest jeden problem bo kiedy nie mam ustawionego żadnego filtru a uruchomie to makro to.wyskakuje błąd i zostają odblokowanie komórki.
    Poniżej moje makro:

    Sub Odświerz1()

    '

    ' Odświerz1 Makro

    '



    '

    Sheets("Magazyn Główny").Unprotect "1234"

    ActiveWorkbook.Worksheets("Magazyn Główny").AutoFilter.Sort.SortFields.Clear

    ActiveSheet.ShowAllData

    Sheets("Magazyn Główny").Protect "1234"

    End Sub
  • Helpful post
    #6
    JRV
    VBA, Excel specialist
    Który z linii makro 'Odświerz1' błąd? ActiveSheet.ShowAllData ?
    wtedy
    Code: vb
    Log in, to see the code
  • #7
    tabix94
    Level 7  
    Powstał nowy problem.
    Po udostępnieniu skoroszyt w serwerze nie działa to makro.
    Code: vb
    Log in, to see the code



    Czy jest to spowodowane tym ze nie można chronić zmieniać ochrony arkusza po udostepnieniu.
    Proszę o pomoc.
  • #8
    JRV
    VBA, Excel specialist
    Nie jest jasne, jak nie działa, jeśli wystąpi błąd, jego zawartość i w którym wierszy
  • #9
    adamas_nt
    Moderator of Programming
    Zobacz Link
    Quote:
    Ochrona lub zaprzestanie ochrony arkuszy lub skoroszytów
  • #10
    tabix94
    Level 7  
    Miałem na myśli to że kiedy mam włączona ochronę arkusza, który jest udostępniony, a w marko mam wpisane wyłączenie ochrony i później włączenie ochrony to wtedy nie działa. Bo chyba nie jest to.mozliwe żeby włączać ochronę i wyłączać na pliku udostępnionym.
    Czy można to jakoś ominąć?