Proba.xls

Excel - odkrywanie kolumn tylko przez wybranych użytkowników

Jeśli zamysł Ci odpowiada, należy dopracować to i owo. Sugeruję odkryć wszystkie z jednym wyjątkiem, przerabiając pętlę. NpFor i = 1 To Sheets.Count If Sheets(i).Name <> "Admin" Then Sheets(i).Visible = True End If NextI w następnej kolejności, jeśli loguje się ktoś posiadający uprawnienia, udostępniać arkusze "administracyjne". Przetestuj załącznik (wymaga dopracowania oczywiście). Na początek dołożyłem obsługę błędu i kilka zabezpieczeń. Np po trzecim nieudanym logowaniu lub przy "twardym" zamknięciu formularza. Założyłem także hasło VBA (dla zobrazowania). Jest łatwe (masz je przed oczami) ale w razie czego pisz, podpowiem :)

&quot; ng1 &quot; , &quot; ng2 &quot; , &quot; ng3 &quot; , &quot; ng4 &quot; , &quot; ng5 &quot; , &quot; ng6 &quot; , &quot; ng7 &quot; , &quot; ng8 &quot; , &quot; ng9 &quot; , &quot; ng10 &quot;
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
,,,,,,,,,
, &quot; nazwa u?ytkownika &quot; , &quot; has?o &quot; ,
, &quot; Admin &quot; , &quot; admin &quot;
, &quot; Gandalf &quot; , &quot; has?o1 &quot;
, &quot; Adamas &quot; , &quot; has?o2 &quot;
, &quot; Chef &quot;
 &quot; nazwa u?ytkownika &quot; , &quot; has?o &quot; , &quot; kategoria &quot;
&quot; Admin &quot; , &quot; admin &quot; , &quot; administrator &quot;
&quot; Gandalf &quot; , &quot; has?o1 &quot; , &quot; u?ytkownik &quot;
&quot; Adamas &quot; , &quot; has?o2 &quot; , &quot; u?ytkownik &quot;
&quot; Chef &quot; , &quot; has?o1% &quot; , &quot; administrator &quot;