Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
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 3366 9
  • #1
    tabix94
    Level 6  
    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.
    Ethernet jednoparowy (SPE) - rozwiązania w przemyśle. Szkolenie 29.09.2021r. g. 11.00 Zarejestruj się za darmo
  • #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 6  
    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 6  
    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 6  
    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 6  
    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ąć?